Re: [問題] PERL程式請教
※ 引述《gilba (AK Trilogy)》之銘言：
: ※ 引述《nimmal (論文便祕ing)》之銘言：
: : 我要結尾是or才轉換喔，而且想要從STDIN輸入，我剛試過，
: : 不行，不過還是謝謝你的回答；
: 好像不需要用 if 的樣子...
: chomp($str=<STDIN>);
: $str =~ s/(\w{2,})or/$1our/g;
: print "$str\n";
這樣寫可能還會有點問題
比如說這樣:
The audience chorused its approval by loud cheering.
其中的 chorused 可能會被改成 chourused
如果是一行一個單字的話,可以寫成這樣
$str =~ s/(\w{2,})or$/$1our/g;
如果一行裡面有好幾個單字, 就像上面的例子那樣
或許可以這樣寫
$str =~ s/(\w{2,})or(\W)/$1our$2/g;
剛學沒多久,
有問題還請指教
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.14.83.8
※ 編輯: gilba 來自: 163.14.83.8 (06/24 10:07)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 6 之 6 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
