作者nimmal (论文便秘ing)
看板perl
标题Re: [问题] PERL程式请教
时间Fri Jun 24 01:31:33 2005
※ 引述《gosth (双星)》之铭言：
: ※ 引述《nimmal (论文便秘ing)》之铭言：
: : 题目：将超过四个字母的英文单字，且结尾是or的话，把or转换成our
: : ，比如说 color 转换成 colour。
: : 我这样写
: : chomp($str=<>); $str =~ s/or/our/g if $str =~ m/\S{2,}or /; print $str,"\n";
: : 请问错在哪里呢，谢谢
: 我的 Perl 功力不高啦，我的直觉写法是：
: $_ = "color";
: s/or$/our/g if length > 4;
: print;
: 我的想法是，假设你输入某咚咚到预设变数 $_
: 然後你先计算长度，用 length($_) 省略 $_
: s/or$/our/g 就是将 预设变数里以 "or" 结尾的那部分换成 our
: 最後印出来看看罗~~
我要结尾是or才转换喔，而且想要从STDIN输入，我刚试过，
不行，不过还是谢谢你的回答；
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 221.169.94.16