作者xatier (陪在妳身邊 :))
看板Perl
標題Re: [問題] 分割檔案問題
時間Tue Jun 10 21:38:34 2014
※ 引述《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://webptt.com/m.aspx?n=bbs/Perl/M.1402407516.A.000.html
1F：→ xatier:喔，這邊 print FD 會把 $_ 裏面的東西印進去 06/10 21:39
2F：推 windguide:了解!!，謝謝您~~ 06/11 15:12
3F：→ xatier::D 06/15 23:06