[問題] 又來問問題了

[itemark (妳只知道我會做家事)]

這次是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
→ wutanliao:可以使用變數