Re: [問題] 分割檔案問題
※ 引述《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
06/10 21:39, 1F
推
06/11 15:12, , 2F
06/11 15:12, 2F
→
06/15 23:06, , 3F
06/15 23:06, 3F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章