2,204
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
singmj 2004-02-01
- 打赏
- 举报
$size=<STDIN>;
chomp $size
如上，perl如果连这也没有，那不是太不可思议了
chomp $size
如上，perl如果连这也没有，那不是太不可思议了
nadyhuayue 2004-01-07
- 打赏
- 举报
同意laughcry2002的看法，本着学习的原则，我也来写一个：
$a =~ s/^\s*([^\s]{1}.*[^\s]{1})*\s*$/$1/g;
$a =~ s/^\s*([^\s]{1}.*[^\s]{1})*\s*$/$1/g;
demon007 2003-11-06
- 打赏
- 举报
gz
laughcry2002 2003-09-03
- 打赏
- 举报
to joycean(joycean)
你写法的绝对是对的，而且比较简洁
你写法的绝对是对的，而且比较简洁
leebx 2003-09-01
- 打赏
- 举报
$s =~ s/^\s+//isg;
$s =~ s/\s+$//isg;
$s =~ s/\s+$//isg;
joycean 2003-08-30
- 打赏
- 举报
=~s/^\s*|\s*$//g
刚学的，不知道对不对，哈哈
刚学的，不知道对不对，哈哈
Frank1982 2003-08-15
- 打赏
- 举报
$string = join(" ",split " ", $string);
这个比楼上的多一个压缩字符串内的多余空格！
这个比楼上的多一个压缩字符串内的多余空格！
AllCHN 2003-08-14
- 打赏
- 举报
$s =~ s/^\s+/isg;
$s =~ s/\s+$/isg;
$s =~ s/\s+$/isg;
