[已解決]請問如何使perl STDOUT出来的文件为压缩文件.Z

hyoryeo

請問各位大大.如何使perl STDOUT出来的文件为压缩文件.Z..也就是如何在输出文件的同时压缩文件?

[ 本帖最后由 hyoryeo 于 2009-7-2 11:34 编辑 ]

MMMIX

原帖由 hyoryeo 于 2009-7-1 14:02 发表
請問各位大大.如何使perl STDOUT出来的文件为压缩文件.Z..也就是如何在输出文件的同时压缩文件?

不会压缩？看看 Compress::Zlib

hyoryeo

原帖由 MMMIX 于 2009-7-1 14:27 发表

不会压缩？看看 Compress::Zlib

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. use Compress::Zlib;
   
7. 
   
8. binmode STDOUT;
   
9. 
   
10. my $gz = gzopen(\*STDOUT,"wb")
    
11.         or die "Cannot open stdout: $gzerrno\n";
    
12. while (<>) {
    
13.         $gz->gzwrite($_)
    
14.                 or die "error writing: $gzerrno\n" ;
    
15. }
    
16. 
    
17. $gz->gzclose ;
    

复制代码

还是不太明白该怎么使用Compress::Zlib, 可以告诉我该怎样使用吗?

yashiro_lj

楼主是想实现啥功能，1还是2？
1：压缩文件生成新的.Z，并且把原始文件输出到STDOUT
2：压缩文件，把压缩之后的binary输出到STDOUT，不生成新的.Z

hyoryeo

原帖由 yashiro_lj 于 2009-7-2 09:57 发表
楼主是想实现啥功能，1还是2？
1：压缩文件生成新的.Z，并且把原始文件输出到STDOUT
2：压缩文件，把压缩之后的binary输出到STDOUT，不生成新的.Z

在输出句柄中,

1. 
   
2. if (!open(OUTFILE,>1.txt)){
   
3.              die ("Can not....");
   
4. }
   

复制代码

为了节省空间, 希望能把1.txt在输出的同时便压缩成1.txt.Z

[ 本帖最后由 hyoryeo 于 2009-7-2 10:13 编辑 ]

MMMIX

原帖由 hyoryeo 于 2009-7-2 09:47 发表

还是不太明白该怎么使用Compress::Zlib, 可以告诉我该怎样使用吗?

Compress::Zlib 的文档看来么？或者，在上述代码中，你什么地方不明白？

hyoryeo

原帖由 MMMIX 于 2009-7-2 10:33 发表

Compress::Zlib 的文档看来么？或者，在上述代码中，你什么地方不明白？

看了,但是不太明白.也尝试运行那些代码,出来的只是些乱码..

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. use Compress::Zlib;
   
7. 
   
8. binmode STDOUT;
   
9. 
   
10. my $gz = gzopen(\*STDOUT,"wb")
    
11.         or die "Cannot open stdout: $gzerrno\n";
    
12. while (<>) {
    
13.         $gz->gzwrite($_)
    
14.                 or die "error writing: $gzerrno\n" ;
    
15. }
    
16. 
    
17. $gz->gzclose ;
    

复制代码

在这里的例子当中, 应该是它从标准输入读取和写入gzip或数据流的标准输出。 想知道怎么才能输出的是一个标准压缩包.Z

[ 本帖最后由 hyoryeo 于 2009-7-2 10:49 编辑 ]

MMMIX

原帖由 hyoryeo 于 2009-7-2 10:43 发表



看了,但是不太明白.也尝试运行那些代码,出来的只是些乱码..

你直接运行那个程序就相当于 cat 一个压缩包。

在这里的例子当中, 应该是它从标准输入读取和写入gzip或数据流的标准输出。 想知道怎么才能输出的是一个标准压缩包.Z

它是从标准输入读取数据，然后压缩后写到标准输出。至于使用的压缩格式，估计是 gzip。你可以通过将其重定向的文件中，然后检查。

BTW, 既然是压缩，STDIN 也应该设为 binmode，那么此时再用 <> 读取就不恰当了。

[ 本帖最后由 MMMIX 于 2009-7-2 11:02 编辑 ]

yashiro_lj

你把压缩之后的数据以bindmode方式输出到STDOUT，看到的肯定是乱码了

把上面那个例子中的STDIN改成你想要压缩的文件的句柄，STDOUT改成你想要写入的压缩文件的句柄，再试试看

hyoryeo

原帖由 MMMIX 于 2009-7-2 10:53 发表

你直接运行那个程序就相当于 cat 一个压缩包。

它是从标准输入读取数据，然后压缩后写到标准输出。至于使用的压缩格式，估计是 gzip。你可以通过将其重定向的文件中，然后检查。

BTW, 既然是压缩，STDI ...

谢谢MMMIX,的确是gzip.可否不用重定向文件,直接输出便是压缩包?