把一个文件根据其第一列值分割成多个小文件

fikong2005

举例如下:
有一个文件内容为：
A||87767
A||98786
A||F9878
B||8789
B||90887
C||8U798

要根据第一列的值，分割成多个小文件
第一列有3种值，因此分割成3个小文件，分别为:
A.TXT:
A||87767
A||98786
A||F9878

B.TXT:
B||8789
B||90887

C.TXT:
C||8U798

同时想问一下，split函数是否无法把||作为分割符？
同时要考虑一下性能问题，因为要转换的文件都是百M级别的。

[ 本帖最后由 fikong2005 于 2009-12-17 09:20 编辑 ]

fikong2005

原帖由 guap514 于 2009-12-17 09:06 发表
split函数是否无法把||作为分割符？

可以  split '\|\|',$str;

呵呵，这样真的可以，我之前只是试了：
split /\|\|/,$str;是不可以的。

fikong2005

原帖由 cobrawgl 于 2009-12-17 09:24 发表
#!/usr/bin/perl


use strict;
use warnings;

use IO::File;

my %FH;

$FH{'A'} = IO::File->new('> A.txt') or die;
$FH{'B'} = IO::File->new('> B.txt') or die;
$FH{'C'} = IO::File->new(' ...

但是要创建多少个文件句柄是未知的哦，需要根据数据文件有多少个值来调整创建多少个文件句柄。

fikong2005

原帖由 cobrawgl 于 2009-12-17 10:08 发表
#!/usr/bin/perl



use strict;
use warnings;

use IO::File;

my %FH;

while () {
    my $name = (split //)[0];
    $FH{$name} = IO::File->new("> $name.txt") unless exists $FH{$name}; ...

好的，谢谢！！万分感谢！
不过，还有一个问题是，打开的文件句柄如何关闭呢？

[ 本帖最后由 fikong2005 于 2009-12-17 10:34 编辑 ]