作者moonshade (Nacht)
看板NTUGIEE_EDA
標題[研究] 天彰許
時間Thu Feb 24 17:51:35 2005
#!/usr/bin/perl
if( $#ARGV < 2 ){
print "USAGE: rename.pl <search for> <substitude to> <files>\n";
exit;
}
@dirlist = @ARGV[2..$#ARGV];
$src = @ARGV[0];
$tar = @ARGV[1];
$text = "";
$temp = "";
foreach $text (@dirlist){
if( $text =~ /$src/ ){
$temp = $text;
$temp =~ s/$src/$tar/;
rename $text, $temp;
}
}
--
拒絕人最好的方法就是慢慢讓他失去希望，或是讓他忘了他一開始
到底想要什麼...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.48.60