Tengo un montón de archivos en un directorio y de cada archivo quiero eliminar la primera línea (incluido el retorno de carro). Puedo leer todo el archivo en una serie de cadenas y escribir todo menos el primer elemento en un nuevo archivo, pero eso me parece un poco engorroso ¿hay formas mejores? Oh, el idioma preferido es Perl.Perl: cómo elimino la primera línea de un archivo sin leer ni copiar todo el archivo
prueba este revestimiento
perl -pi -e '$_ = "" if ($. == 1);' filename
lo he usado antes, debería ser todo lo que necesita.
+1 Nunca necesita almacenar más de una línea a la vez. – mob
¿Puedes explicar cómo funciona esto? – FistOfFury
básicamente dice ejecutar perl, analizar en su lugar y ejecutar la siguiente línea de código. La siguiente línea usa la variable predeterminada $ _ que en este caso es la línea leída por la opción -p. ps es el número de línea de nombre de archivo. entonces, si el número de línea es == 1, configure el texto de la línea en "". –
use Tie::File qw();
for my $filename (glob 'some_where/some_files*') {
tie my @file, 'Tie::File', $filename or die "Could not open $filename: $!";
shift @file;
}
+1 si solo para su PS. :) –
Tenga en cuenta que esto todavía tiene que leer y copiar todo el archivo, pero eso es inherente al problema. No sé de ningún sistema operativo que proporcione otra forma de eliminar datos desde el comienzo de un archivo. – cjm
Tie :: File es mi opción obvia porque se ha escrito explícitamente para tratar esta categoría de problema exacta de manera eficiente. – daxim
perl -n -i -e 'print unless $. == 1' myfile
Esto es similar a la respuesta de stocherilac.
Pero, en cualquier caso (y en todas las demás respuestas dadas) siempre está leyendo el archivo completo. No hay forma de evitar eso, AFAIK.
+1 para más de una forma de hacerlo :) –
+1 para una versión (más fácil de leer). –
En Windows bajo la consola MinGW, ese borró mi archivo "No se puede editar in situ en myfile: Permiso denegado" – user869097
¿Qué tal
tail +2
con cáscara?
(edit: en Linux más reciente es posible que necesite tail -n +2 (gracias, GNU :()!)
Oh el idioma preferido es Perl
veces sed es mejor que sed. incluso perl:
sed -i 1d *
como ha señalado Schwern, la siguiente no no realizar una salida temprana como había pensado en un principio que lo haría:
perl -pi -e '$_ = q// and last if $. == 1;' myFile
parece que uno no puede evitará el tratamiento de todo el archivo después de todo.
Esto no hace lo que usted cree que hace. Si lo hiciera, violaría cómo funcionan los archivos en Unix. Lo que realmente está sucediendo es '$ _ =" "' siempre es falso, por lo que '$ _ =" "y last' es lo mismo que' 0 y last'.Se cortocircuita y nunca llama '' último ''. Usted ha escrito: 'perl -pi e '$ _ = q // si $. == 1 'myFile', que es una manera inteligente de no imprimir la primera línea, pero definitivamente lee todo el archivo. Ejecutar con '-MO = Deparse' para obtener el código y ejecutarlo en el depurador para ver. 'haz {esto; ese; } si algo' es una construcción más segura. – Schwern
@Schwern: Mi mal. Tu explicación tardó un poco, pero entiendo tu punto. – Zaid
Esto es imposible porque cómo se almacenan los archivos. Siempre tendrá que leer todo el archivo y escribir todo menos la primera línea; el sistema operativo no tiene otra opción. – Konerak