作者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