*********************************code
$file = $ARGV[0];
$replace = $ARGV[1];
open(FILE,"<$file") or die "$file not found!!";
while( $line = <FILE> )
{
chomp($line);
$line =~ s/stand\.tmp/$replace\.tmp/;
$line =~ s/stand\.tmp2/$replace\.head/;
$line =~ s/stand /$replace /;
print "$line\n";
}
close(FILE);
**************************************************************
原稿
perl subckt1.pl LVDSTX_frame.cir stand > stand.tmp
perl subckt2.pl stand.tmp stand > stand.tmp2
希望得到
perl subckt1.pl LVDSTX_frame.cir Sedes > Sedes.tmp
perl subckt2.pl Sedes.tmp Sedes > Sedes.head
小弟是新手 目前的code 可以得到我要的结果
但是我想要取代的 replace name 一共有1000多笔
我希望能用一个list table 直接去执行他
请问要怎样才能做这件事 谢谢