作者gilba (AK Trilogy)
看板perl
标题Re: [问题] PERL程式请教
时间Fri Jun 24 09:57:45 2005
※ 引述《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)