[研究] 天彰許

[moonshade (Nacht)]

#!/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