※ 引述《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;
}