Re: [問題] print時依字元長度自動換行?
#!/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
推
05/09 02:14, , 1F
05/09 02:14, 1F
推
05/09 11:53, , 2F
05/09 11:53, 2F
推
05/09 14:02, , 3F
05/09 14:02, 3F
推
05/09 22:41, , 4F
05/09 22:41, 4F
推
05/10 12:08, , 5F
05/10 12:08, 5F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章