作者gosth (双星)
看板perl
标题Re: [问题] PERL程式请教
时间Fri Jun 24 01:49:57 2005
可能可以这样:
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