论坛 › Perl › perl 分割文件

ysoren 发表于 2017-5-17 09:13:22

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,$array;
}
while(defined ($record =<user>))
{
      @arrays = split(/\|/,$record);
      printf corpmember "%s,%s,%s,%s,0,0\n", $arrays,$arrays,$arrays,$arrays;

}

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

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

查看完整版本: perl 分割文件