perl读压缩文件与一般文件

sub open_zip_file
{
 my $path = $_[0];
 my $filename = $_[1];
 
 my $gzh;

 if ( $filename =~ /\.csv/ ){ #一般文件
  open($gzh, "cat ".$path.$filename."|") || return -200;
 }
 else { #压缩文件
      open($gzh, "zcat " .$path.$filename ."|") || return -200;
 }

 return $gzh;
}

sub close_zip_file
{
 my $gzh = $_[0];

 close $gzh;
}

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/677997/viewspace-664900/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/677997/viewspace-664900/