作者cutecpu (可爱中央处理器)
看板Perl
标题Re: [问题] print时依字元长度自动换行？
时间Sun May 9 01:46:51 2010
#!/usr/bin/perl -w
$_='aaaaaaaaabbbcddddd........zzzz';
s/(.{10})/$1\n/g;
print;
※ 引述《adu (^_^)》之铭言：
: 原始资料以hash的方式储存，每个key是name，value是内容
: ex:
: name1 aaaaaaaaabbbcddddd........zzzz
: name2 dddddddddddddweeeeeeeeeeeeeeeeennn....ssss
: ...
: 现在想把这些print出来，当长度大於10就自动增加"\n"
: >name1
: aaaaaaaaab
: bbcddddd..
: ......zzzz
: >name2
: dddddddddd
: dddweeeeee
: eeeeeeeeee
: ennn....ss
: ss
: 很阳春的想法是先把第一次print的资料">Output1"
: 然後再open Output1,
: 再用
: while(<>){
: chomp;
: if(length($_)>10){
: print "\n";
: }
: }这样的方式:p
: 请教板大们有没有更好的方法呢？
: 谢谢回应！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.137.1.1
1F：推 abliou:推! 05/09 02:14
2F：推 Goldexp:这写法真厉害！ 05/09 11:53
3F：推 yjchang0206:Smart 05/09 14:02
4F：推 adu:感谢! :D 05/09 22:41
5F：推 panppt:这种写法真的要给推了！^^ (笔记啊……) 05/10 12:08