perl 打开和输出gz压缩文件【更新perl打开的时候自动判断是否压缩文件的模块】...

最新推荐文章于 2021-05-13 04:28:54 发布

转载最新推荐文章于 2021-05-13 04:28:54 发布 · 227 阅读

本文介绍了一种利用PerlIO模块与管道操作自动判断并压缩文件的方法，通过示例代码演示了如何创建一个能够自动生成压缩文件的脚本，简化了文件处理流程。

open IN，“gzip -dc 文件名 |”

open OUT, "| gzip >$out_f.gz" or die $!;

自动判断是否压缩文件，例子：

use PerlIO::gzip;

open FQ1, "<:gzip(autopop)", "$ARGV[0]" || die "Cannot open $ARGV[0]\n";

利用管道输出文件自动生成压缩文件：

perl a.pl | gzip >　out.gz

关注博主即可阅读全文

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

weixin_33787529

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

Perl 读写 .gz .tgz 等压缩文件

Qunero的专栏

12-24

2153

1. 使用PERL直接读取压缩文件 use pipe.gz格式文件1 open(FIN,"gzip -dc $infilename|")ordie("can not open $infilename/n");.tgz(.tar.gz)格式文件1 open(FIN,"tar -xf $infilename -o|")ordie("can not open $infilename/n");7zip格式文件1 open(FIN,"7za e -so $infilename|")ordie("can not

perl 打开gz压缩文件输出gz压缩文件

weixin_30608503的博客

09-17

905

打开压缩文件 open(FILE,"gunzip -c $file|") or die "can't open!"; 输出压缩文件 open(my $result,"|gzip >file_name.fq.gz"); 转载于:https://www.cnblogs.com/artesian0526/p/11532766.html...

参与评论您还未登录，请先登录后发表或查看评论

perl 写入到压缩文件

Coraline_second_year的专栏

12-22

2796

open OUT, "| gzip >$out_f.gz" or die $!;

perl读压缩文件与一般文件

congtao5008的博客

06-10

263

sub open_zip_file{my $path = $_[0];my $filename = $_[1];my $gzh; if ( $filename =~ /\.csv/ ){#一般文件open($g...

perl-5.32.1.tar.gz

04-29

这个“perl-5.32.1.tar.gz”文件是Perl编程语言的源代码包，版本号为5.32.1，以tar.gz格式压缩，这是在Unix/Linux环境中常见的打包和压缩方式。 Perl 5系列是Perl语言的主流版本，自1994年发布以来，经过多次更新和...

perl-5.24.1.tar.gz

07-14

标题中的"perl-5.24.1.tar.gz"指的是Perl的一个特定版本，5.24.1，这个版本是通过tarball（.tar.gz）格式进行打包的，这是一种常见的在Unix和Linux系统中分发软件的方式。 tar.gz文件实际上是两个命令的结果：首先...

perl-5.30.3.tar.gz随便下载，不涨价哦

11-12

`perl-5.30.3.tar.gz` 是Perl源代码的压缩包，采用的是广泛使用的GNU Tar格式进行打包，并通过gzip工具进行压缩，使得文件更小，便于下载和传输。在Linux或类Unix系统中，你可以通过以下步骤来解压和安装Perl 5.30...

perl-5.30.0.tar.gz

08-20

`.tar.gz` 文件是Linux中常见的压缩格式，由`tar`工具用于打包多个文件和目录，并通过`gzip`工具进行压缩。要解压这个文件，需要执行以下命令： ```bash tar -zxvf perl-5.30.0.tar.gz ``` 解压后，你会得到一个名...

perl-5.26.1.tar.gz

01-23

"perl-5.26.1.tar.gz" 是Perl 5.26.1版本的源代码包，它以tar.gz格式封装，这是一种常见的在Unix/Linux环境中打包和压缩文件的方法。该版本发布于2017年，包含了完整的Perl解释器及其相关的源代码，允许用户在不同的...

perl如何读取压缩文件

小猪打呼噜

12-22

6120

perl如何读取压缩文件

perl 文件句柄处理.gz 文件

whiffen_cann的专栏

05-12

666

打开并读取.gz 文件: open IN,"gzip -dc $yourfile |" or die $!; （gzip -dc 解压缩但不会改变原文件，原文件还是.gz 压缩文件）生成.gz 文件： open OUT , " | gzip >$outfile" or print $!;

Perl语言读取gz压缩文件

weixin_33682719的博客

04-28

1597

use PerlIO::gzip; #Perl IO 读写gz文件 open FQ,"<:gzip",file1.gz||die"$!"; open FN,">:gzip",file2.gz||die"$!"; 合并gz文件 zcat file1.gz file2.gz|gzip >file3.gz 转载于:https://www....

Perl文件类型判断

爱飞的蒲公英

04-08

2189

示例： if(-e "FileName") { print "TRUE\n"; } else { print "FALSE\n"; } 检测选项含义 -r 文件或目录对此（有效的）用户（effective user）或组是可读的 -w 文件或目录对此（有效的）用户或组是可

perl文本常用处理模板

lin159263的博客

11-18

288

use warnings; my $in_1=shift; my $out_1=shift; my $out_2=shift; open IN,“in1";openOUT1,">in_1"; open OUT_1,">in1";openOUT1,">out_1”; open OUT_2,">$out_2"; while(){ chomp; }

使用linux批量引物设计,对组装结果中GAP左右批量设计引物

weixin_29124947的博客

05-13

568

#!/usr/bin/perl -wuse strict;use Cwd qw(abs_path getcwd);use Getopt::Long;use Data::Dumper;use FindBin qw($Bin $Script);use File::Basename qw(basename dirname);use Bio::SeqIO;my $BEGIN_TIME=time();my ...

Perl_读入输出gz压缩文件_gzip_gunzip

BBka要黑化！

04-20

5660

Perl_读入输出gz压缩文件_gzip_gunzip my $fil="/dir/fil.gz"; open IN,"gunzip -c $fil |" or die $!; open IN,"gzip -dc $fil |" or die $!; my $out="/dir/out.gz"; open OUT, "| gzip >$out" or die $!;

perl open函数打开管道