J'ai une archive gzip avec des données de fin. Si je le déballe en l'utilisant, gzip -d
il me dit: " décompression OK, ordures restantes ignorées " (il en va de même pour gzip -t
qui peut être utilisé comme méthode de détection de l'existence de telles données).
Maintenant, je voudrais faire connaissance avec ces ordures, mais curieusement, je n'ai trouvé aucun moyen de les extraire. gzip -l --verbose
me dit que la taille "compressée" de l'archive est la taille du fichier (c'est-à-dire avec les données de fin), c'est faux et pas utile. file
est également d'aucune aide, alors que puis-je faire?
la source
less
ouhd
ouhd | less
ou quoi que ce soit.while (<>)
boucle dansperl
lira stdin et tous les fichiers répertoriés dans @ARGV .... qui facilitent l'écriture de scripts qui fonctionnent aussi bien comme filtre (c.-à-d. lire stdin, écrire sur stdout) et avec les fichiers nommés ). et stdout, bien sûr, peut toujours être redirigé vers un fichier. la plupart de mes scripts Perl sont écrits sous forme de filtres pour en profiter.push @ARGV,'-' if (!@ARGV);
avant,my $input_file_name = shift;
c'est tout ce qui est nécessaire ici. c'est-à-dire un argument par défaut de-
(le message d'aide pourrait être affiché si $ ARGV [0] == '-h' ou '--help'.). Pour unewhile(<>)
boucle, vous n'auriez même pas besoin de le faire, mais c'est probablement plus difficile que d'écrire comme ça pourIO::Uncompress::Gunzip
.-o
option ou quelque chose. avoir un script basculer automatiquement du premier argument de deux en entrée au premier et seul l'argument en sortie me semble risqué et sujet aux accidents (tentant murphy).