Re: [問題] 分割檔案問題

看板Perl作者 (陪在妳身邊 :))時間11年前 (2014/06/10 21:38), 編輯推噓1(102)
留言3則, 2人參與, 最新討論串2/2 (看更多)
※ 引述《windguide (夜很深)》之銘言: : 各位好 : 我有一個檔案想要拆成數個檔案,格式如下 : A 5 Alan, Jane group1 : A 5 Jack, Susan group2 : D 5 Mary, group5 : B 2 Tom group3 : C 2 Dennis, Amy group4 : ... 8 ... : ... 8 .. : ... ... ... : 我想依照第二欄的數字分割輸出成數個檔案,也就是 : A 5 Alan, Jane group1 : A 5 Jack, Susan group2 : D 5 Mary, group5 : 與 : B 2 Tom group3 : C 2 Dennis, Amy group4 #!/usr/bin/env perl use 5.014; while (<>) { $_ =~ /^(.*)\s+(\d+)(.*)$/; my $count = $2; open FD, ">>", "output-$count.txt"; print FD; close FD; } -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.113.244.216 ※ 文章網址: http://www.ptt.cc/bbs/Perl/M.1402407516.A.000.html

06/10 21:39, , 1F
喔,這邊 print FD 會把 $_ 裏面的東西印進去
06/10 21:39, 1F

06/11 15:12, , 2F
了解!!,謝謝您~~
06/11 15:12, 2F

06/15 23:06, , 3F
:D
06/15 23:06, 3F
文章代碼(AID): #1JbmfS00 (Perl)
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):
文章代碼(AID): #1JbmfS00 (Perl)