Re: [問題] print時依字元長度自動換行?
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
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 3 之 5 篇):
Perl 近期熱門文章
PTT數位生活區 即時熱門文章