krungkuene.org back

to please me link this page or look at my newest art stuff on my site --->

krung's knowledge pages seite in deutsch

published: 2003-09-04

related pages: various perl scripts

rename

renames multiple files in the shell

download

#!/usr/bin/perl

# V 0.1.0 03094 rename.pl
#
# Licensed under GPL
#
#  ¢  ¢
#  ¢ ¢
#  ¢     ¢¢  ¢  ¢  ¢¢   ¢¢     ¢¢   ¢¢   ¢¢
#  ¢ ¢  ¢  ¢ ¢  ¢ ¢  ¢ ¢  ¢   ¢  ¢ ¢  ¢ ¢  ¢
#  ¢  ¢ ¢     ¢¢  ¢  ¢  ¢¢¢ ¢  ¢¢  ¢     ¢¢¢
#                         ¢                ¢
#        martin         ¢¢     krung     ¢¢
#
# ++++++++++++++++++++++++++++++++++++++++++++++++
#
# run as ./rename.pl "*.php" php png
#


#for file in $($1)

for (<$ARGV[0]>){
$file = $_;
s/$ARGV[1]/$ARGV[2]/;

print "mv $file $_ \n";
`mv $file $_`;
}