作者itemark (你只知道我会做家事)
看板perl
标题[问题] 又来问问题了
时间Fri Jan 13 14:39:12 2006
这次是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
1F:→ wutanliao:可以使用变数 02/10 16:46