这次是s///的问题 和上次不一样的是 这次的target不是固定的 先附上我的程式码 #!/usr/bin/perl $file="f_newg1"; open(file, $file) or die "Can't open"; while(<file>) { print if /\#\!MLF\!\#/; print if /\./; print if /sil/; foreach $word (split) { if($word !~ m/一|二|三|四|五|六|七|八|九|零/) { print s/$word/Garbage\n/g; } else { print "$word\n"; } } close(file); 我不确定s/// 中的patten是否可以使用变数 如果不行的话 还有什麽方法可以让非目标的字都变成Garbage -- 一张机，织梭光景去如飞，兰房夜永愁无寐。 呕呕轧轧，织成春恨，留着待郎归。 两张机，月明人静漏声稀，千丝万缕相萦系。 织成一段，回纹锦字，将去寄呈伊。 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 140.117.169.200