¿Cómo puedo truncar, crear, escribir y moverme en un archivo en Perl? - Perl

¿Es posible hacer estas cosas en Perl?

• truncar un archivo si ya existe, y
• crear, y
• escribir, y
• moviendo el cursor hasta el final para añadir

Respuestas

Utilizar el ">" modo para abierto:

# the file is truncated and opened for output, being created if necessary.
open my $fh, ">", "file" or die $!;

# output to the file
print $fh "Line1n";
print $fh "Line2n";

si ver buscar,

seek FILEHANDLE,POSITION,WHENCE

Establece la posición de FILEHANDLE, al igual que el fseekllamada de stdio. FILEHANDLE puede ser una expresión cuyo valor proporciona el nombre del identificador de archivo. Los valores de WHENCE son 0 para establecer la nueva posición en bytes en POSITION, 1 para establecerla en la posición actual más POSITION, y 2 para establecerla en EOF más POSITION (generalmente negativa). Para DONDE puede usar las constantes SEEK_SET, SEEK_CUR y SEEK_END (inicio del archivo, posición actual, final del archivo) del módulo Fcntl. Devuelve 1 en caso de éxito, 0 en caso contrario.

Todo está en perlfunc. Perl usa principalmente las mismas cosas que C tiene.

• abierto abre archivos de varias maneras.
• truncar Trunca los archivos.
• buscar Se desplaza en archivos.