主页 / 问题 / 1127458
Accepted
SerjioNemano
Asked:2020-05-18 19:13:27 +0000 UTC2020-05-18 19:13:27 +0000 UTC

如何将文件添加到存档？Perl

  • 772

来自数据库的选择被保存到服务器上的一个文件中，您需要使用 Compress::Zlib 获取该文件并通过邮件传输它。它有效，但不是您想要的方式。file.gz 存档保存文件，但没有 .txt 扩展名。

use Compress::Zlib;
my $file = './file.txt';
my $gzfile = './file.gz';

open(FILE,$file) or die "$!";
    my @lines = <FILE>;
    my $gz = gzopen($gzfile, 'wb');
    foreach my $line (@lines) {
        my $byteswritten = $ gz-> gzwrite ($line);
    }
    $gz->gzclose();
close(FILE);

请告诉我如何使用 Zlib 正确存档文件。

perl

1 个回答

  1. Best Answer

    迈克同志帮忙了。非常感谢他。

    use Compress::Zlib;
my $file = './file.txt';
my $gzfile = './file.txt.gz';    
open(FILE,$file) or die "$!";
    my $gz = gzopen($gzfile, 'wb');
    while(<FILE>){
        my $byteswritten = $ gz-> gzwrite ($_);
    }
    $gz->gzclose();
close(FILE);
    • 0

相关问题