Re: [問題] PERL程式請教
※ 引述《nimmal (論文便祕ing)》之銘言：
: ※ 引述《gosth (雙星)》之銘言：
: : 我的 Perl 功力不高啦，我的直覺寫法是：
: : $_ = "color";
: : s/or$/our/g if length > 4;
: : print;
: : 我的想法是，假設你輸入某咚咚到預設變數 $_
: : 然後你先計算長度，用 length($_) 省略 $_
: : s/or$/our/g 就是將 預設變數裡以 "or" 結尾的那部分換成 our
: : 最後印出來看看囉~~
: 我要結尾是or才轉換喔，而且想要從STDIN輸入，我剛試過，
: 不行，不過還是謝謝你的回答；
好像不需要用 if 的樣子...
chomp($str=<STDIN>);
$str =~ s/(\w{2,})or/$1our/g;
print "$str\n";
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.14.83.8
※ 編輯: gilba 來自: 163.14.83.8 (06/24 09:59)
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
