perl IO :: zlib print Nur-Text-Datei

Question

Ich habe ein Perl-Skript, das ich möchte für den Benutzer in der Lage zu wählen, ob die Ausgabe in Gzip oder Nur-Text-Datei ist. Ich benutze Perl IO::zlib und die Idee wäre, den Namen der Ausgabedatei zu überprüfen, und wenn es eine .gz Erweiterung hat, verwenden Sie Gzip, ansonsten drucken Sie einfach im Klartext. Ich verwende einen Befehl wie:

my $EXCL = new IO::Zlib;

$EXCL->open($out_file, (substr($out_file, -3) eq '.gz' ? "wb9" : "wT")) || die("ERROR: cannot open EXCL file!") if($out_file);

aber die Ausgabedatei wird immer komprimiert! Mache ich etwas falsch?

Dank,

Answer 1

Warum mit IO :: Zlib für unkomprimierte Dateien überhaupt?

my $fh; 
if (substr($out_file, -3) eq '.gz') { 
    $fh = IO::ZLib->new($out_file) or die "Error opening $out_file: $!"; 
} else { 
    open $fh, '>', $out_file or die "Error opening $out_file: $!"; 
} 

ich nicht fand jeden wT Modus in http://search.cpan.org/~tomhughes/IO-Zlib-1.10/Zlib.pm oder http://search.cpan.org/~pmqs/IO-Compress-2.069/lib/Compress/Zlib.pm

PS: Es ist immer gut, die Dateinamen und Systemfehler ($!) In einer Datei zu öffnen ähnlichen Fehlermeldung zu schließen.