作者gilba (AK Trilogy)
看板perl
标题Re: [问题] PERL程式请教
时间Fri Jun 24 10:06:01 2005
※ 引述《gilba (AK Trilogy)》之铭言：
: ※ 引述《nimmal (论文便秘ing)》之铭言：
: : 我要结尾是or才转换喔，而且想要从STDIN输入，我刚试过，
: : 不行，不过还是谢谢你的回答；
: 好像不需要用 if 的样子...
: chomp($str=<STDIN>);
: $str =~ s/(\w{2,})or/$1our/g;
: print "$str\n";
这样写可能还会有点问题
比如说这样:
The audience chorused its approval by loud cheering.
其中的 chorused 可能会被改成 chourused
如果是一行一个单字的话,可以写成这样
$str =~ s/(\w{2,})or$/$1our/g;
如果一行里面有好几个单字, 就像上面的例子那样
或许可以这样写
$str =~ s/(\w{2,})or(\W)/$1our$2/g;
刚学没多久,
有问题还请指教
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.14.83.8
※ 编辑: gilba 来自: 163.14.83.8 (06/24 10:07)