perl 瓜分文件

perl 分割文件
#!/usr/bin/perl
open(group,"<./source/group.unl") or die "group.unl file is not exists\n";
open(corpinfo,">./data/corpinfo.txt") or die "error $1\n";
open(user,"<./source/user.unl") or die "user.unl file is not exists\n";
open(corpmember,">./data/corpmember.txt") or die "error $1\n";
open(home,"<./source/homegroup.unl") or die "homegroup.unl file is not exists\n";
#open(homeinfo,">./data/homeinfo.txt") or die "error $1\n";
open(hus,"<./source/homeuser.unl") or "homeuser.unl file not exists\n";
open(homeuser,">./data/homeuser.txt") or die "error $1\n";

while(defined ($record = <group>))
{
        @array = split(/\|/,$record);
        printf corpinfo "%s,%s,0,0,-1,1,0\n",$array[1],$array[1];
}
while(defined ($record =<user>))
{
        @arrays = split(/\|/,$record);
        printf corpmember "%s,%s,%s,%s,0,0\n", $arrays[1],$arrays[3],$arrays[3],$arrays[2];

}

while(defined ($record = <home>))
{
        @array = split(/\|/,$record);
        printf corpinfo "%s,%s,0,0,-1,1,0\n",$array[1],$array[1];
}
while(defined ($record = <hus>))
{
        @array = split(/\|/,$record);
        printf homeuser "%s,%s,%s,0,0,%s,0\n",$array[1],$array[3],$array[3],$array[2];
}

close group;
close corpinfo;
close user;
close corpmember;
close home;
#close homeinfo;
close hus;
close homeuser;