Re: [問題] PERL程式請教
※ 引述《gosth (雙星)》之銘言：
: ※ 引述《nimmal (論文便祕ing)》之銘言：
: : 題目：將超過四個字母的英文單字，且結尾是or的話，把or轉換成our
: : ，比如說 color 轉換成 colour。
: : 我這樣寫
: : chomp($str=<>); $str =~ s/or/our/g if $str =~ m/\S{2,}or /; print $str,"\n";
: : 請問錯在哪裡呢，謝謝
: 我的 Perl 功力不高啦，我的直覺寫法是：
: $_ = "color";
: s/or$/our/g if length > 4;
: print;
: 我的想法是，假設你輸入某咚咚到預設變數 $_
: 然後你先計算長度，用 length($_) 省略 $_
: s/or$/our/g 就是將 預設變數裡以 "or" 結尾的那部分換成 our
: 最後印出來看看囉~~
我要結尾是or才轉換喔，而且想要從STDIN輸入，我剛試過，
不行，不過還是謝謝你的回答；
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 221.169.94.16
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
6
17
