sub open_zip_file
{
my $path = $_[0];
my $filename = $_[1];
my $gzh;
{
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;
}
open($gzh, "cat ".$path.$filename."|") || return -200;
}
else { #压缩文件
open($gzh, "zcat " .$path.$filename ."|") || return -200;
}
return $gzh;
}
}
sub close_zip_file
{
my $gzh = $_[0];
{
my $gzh = $_[0];
close $gzh;
}
}
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/677997/viewspace-664900/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
perl判断某个打开的文件是否匹配某模式
下一篇：
Python遍历目录
请登录后发表评论
登录
全部评论
