Pourquoi mon tube Perl vers zcat ne meurt-il pas si le fichier n'est pas là?

Question

Si mon fichier gz n'existe pas, pourquoi ne pas le faire?

$ cat test.pl  
open(FILE, "zcat dummy.gz |") or die "DIE"; 

$ ./test.pl  
zcat: dummy.gz: No such file or directory 

Si je lis un fichier normalement, il fonctionne comme prévu:

$ cat test2.pl  
open(FILE, "dummy.gz") or die "DIE"; 

$ ./test2.pl  
DIE at ./test.pl line 2. 

Answer 1

Votre open réussit (comme il fonctionne avec succès zcat), vous ne serez pas le code de sortie de zcat jusqu'à ce que vous fermez le descripteur de fichier si.

Vous pouvez vérifier si le fichier existe et est lisible avant de commencer, par exemple.

die "unable to read file" unless (-f "dummy.gz" and -r "dummy.gz") 

Answer 2

Vous voudrez peut-être envisager d'utiliser PerlIO::gzip, par exemple.

use PerlIO::gzip; 
open(FILE, '<:gzip', 'dummy.gz') or die $!; 

Answer 3

Dans votre deuxième exemple, le fichier ouvert par perl n'existe pas, il va mourir.

Dans votre premier exemple, la commande appelée par perl s'exécute (avec n'importe quel résultat), il n'y a donc aucune raison de mourir.