2021年4月23日
perl FileHandle 模块使用
摘要： 打开多个文件时必备啊 1 use FileHandle; 2 3 my (%index,%fh); 4 # 创建句柄,这里利用gzip 压缩下 5 foreach my $k(keys %index){ 6 $fh{$k}=FileHandle->new("| gzip -c > ${k}_1.tx 阅读全文
posted @ 2021-04-23 16:30 un-define 阅读(192) 评论(0) 推荐(0)