作者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/cn.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