推 abliou:推! 05/09 02:14
推 Goldexp:這寫法真厲害！ 05/09 11:53
推 yjchang0206:Smart 05/09 14:02
推 adu:感謝! :D 05/09 22:41
推 panppt:這種寫法真的要給推了！^^ (筆記啊……) 05/10 12:08
#!/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