Re: [問題] print時依字元長度自動換行?

看板Perl作者時間15年前 (2010/06/02 16:32), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/5 (看更多)
my $str = "blahblahblahblahblahblah........."; my $WRAP = qr/(.{0,10}(?{print "$1\n" if $1;}))*/; $str =~ /$WRAP/g; 參考一下 http://pacific-design.com/perl/perlretut.html A bit of magic: executing Perl code in a regular expression ※ 引述《cutecpu (可愛中央處理器)》之銘言: : #!/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" : : aaaaaaaaab : : bbcddddd.. : : ......zzzz : : dddddddddd : : dddweeeeee : : eeeeeeeeee : : ennn....ss : : ss : : 很陽春的想法是先把第一次print的資料">Output1" : : 然後再open Output1, : : 再用 : : while(<>){ : : chomp; : : if(length($_)>10){ : : print "\n"; : : } : : }這樣的方式:p : : 請教板大們有沒有更好的方法呢? : : 謝謝回應! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.64.130
文章代碼(AID): #1C1XS0CJ (Perl)
文章代碼(AID): #1C1XS0CJ (Perl)