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

看板Perl作者 (可愛中央處理器)時間15年前 (2010/05/09 01:46), 編輯推噓5(500)
留言5則, 5人參與, 最新討論串2/5 (看更多)
#!/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
Smart
05/09 14:02, 3F

05/09 22:41, , 4F
感謝! :D
05/09 22:41, 4F

05/10 12:08, , 5F
這種寫法真的要給推了!^^ (筆記啊……)
05/10 12:08, 5F
文章代碼(AID): #1BvQEEzO (Perl)
討論串 (同標題文章)
文章代碼(AID): #1BvQEEzO (Perl)