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

[xatier (陪在妳身邊 :))]

※ 引述《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
→ xatier:喔，這邊 print FD 會把 $_ 裏面的東西印進去
推 windguide:了解!!，謝謝您~~
→ xatier::D