Re: [問題] PERL程式請教
可能可以這樣:
while (1)
{
print "Please input your string: ";
$my_word = <STDIN>;
chomp($my_word);
$new_word = $my_word;
$new_word =~ s/or$/our/g if length($my_word) > 4;
print "\nOld Word is: $my_word";
print "\nNew Word is: $new_word \n\n";
}
※ 引述《nimmal (論文便祕ing)》之銘言：
: ※ 引述《gosth (雙星)》之銘言：
: : 我的 Perl 功力不高啦，我的直覺寫法是：
: : $_ = "color";
: : s/or$/our/g if length > 4;
: : print;
: : 我的想法是，假設你輸入某咚咚到預設變數 $_
: : 然後你先計算長度，用 length($_) 省略 $_
: : s/or$/our/g 就是將 預設變數裡以 "or" 結尾的那部分換成 our
: : 最後印出來看看囉~~
: 我要結尾是or才轉換喔，而且想要從STDIN輸入，我剛試過，
: 不行，不過還是謝謝你的回答；
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.166.196.77
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 4 之 6 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
6
17
