作者gosth (双星)
看板perl
标题Re: [问题] PERL程式请教
时间Fri Jun 24 01:20:08 2005
※ 引述《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
最後印出来看看罗~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.166.196.77
※ 编辑: gosth 来自: 218.166.196.77 (06/24 01:22)