Tengo un archivo gzip con datos finales. Si lo descomprimo usando gzip -d
, me dice: " descompresión OK, basura final ignorada " (lo mismo se gzip -t
puede usar como un método para detectar que existen tales datos).
Ahora me gustaría conocer esta basura, pero curiosamente no pude encontrar ninguna forma de extraerla. gzip -l --verbose
me dice que el tamaño "comprimido" del archivo es el tamaño del archivo (es decir, con los datos finales), eso está mal y no es útil. file
tampoco es de ayuda, entonces, ¿qué puedo hacer?
gzip
file-format
phk
fuente
fuente
less
ohd
ohd | less
o lo que sea.while (<>)
bucleperl
leerá stdin y cualquier archivo (s) enumerado en @ARGV ... eso hace que sea fácil escribir scripts que funcionen igual de bien como filtro (es decir, leer stdin, escribir en stdout) y con archivo (s) con nombre ) y stdout, por supuesto, siempre se pueden redirigir a un archivo. La mayoría de mis scripts de Perl están escritos como filtros para aprovechar esto.push @ARGV,'-' if (!@ARGV);
antesmy $input_file_name = shift;
es todo lo que se necesita aquí. es decir, un argumento predeterminado de-
(el mensaje de ayuda podría imprimirse si $ ARGV [0] == '-h' o '--help'.). Para unwhile(<>)
bucle, ni siquiera necesitarías hacer eso, pero probablemente sea más problemático de lo que vale la pena escribirlo asíIO::Uncompress::Gunzip
.-o
opción o algo. hacer que un script cambie automáticamente de la primera arg de dos que se ingresa a la primera y que solo la salida de arg se muestra me parece arriesgada y propensa a accidentes (tentador murphy).