[問題] 又來問問題了
這次是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
→
02/10 16:46, , 1F
02/10 16:46, 1F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
