作者dola2007 (....)
看板Perl
标题[问题] 重复replace的问题
时间Thu Apr 11 18:33:43 2013
*********************************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 直接去执行他
请问要怎样才能做这件事 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.202.87.29
1F：推 mmonkeyboyy:就两个while啊~:) 04/11 23:32
2F：→ mmonkeyboyy:一个读list一个做取代 搞定 04/11 23:34
3F：→ mmonkeyboyy:最後再用system ''自动执行 04/11 23:35
4F：→ dola2007:感恩 04/15 10:59