Perl permite trabajar con archivos de texto de una forma muy simple.
Abrir y leer un archivo
open(FILE,"file1");
while ( $a=<FILE> ) {
.....;
}
close(FILE);
En la primera línea abrimos el archivo de nombre file1 y a ese archivo le asignamos el "file handler" : FILE (debe ser cualquier nombre pero en mayúscula). Luego, con el while vamos leyendo línea a línea. Finalmente cerramos el archivo.
Modos de apertura de ficheros
> Abrir para escritura
>> Abrir para concatenar
< Abrir para lectura
>+ Abrir para lectura/escritura
Abrir archivo para escritura
#!/usr/bin/perl
print "Escribe el nombre del archivo: ";
chop ($file=<STDIN>);
print "¿Cuál es tu nombre?";
chop ($nombre=<STDIN>);
open (A,">$file"); # Abrimos para solo escritura el archivo $file
print A "hola $nombre!n"; # si el archivo NO existe, es creado
close(A);
Abrir archivo para concatenar
#!/usr/bin/perl
chop ($pwd = 'pwd');
print "Nombre del fichero: ";
chop ($fichero = <STDIN>);
@l=('Ubicacion: ',$pwd,"n",'Nombre del fichero: ',$fichero,"n");
open(G,">>$pwd/$fichero"); # Abrimos para concatenar al final
print G @l;
close (G);
print "nfichero $file actualizadon";
Autor: NoLimites
http://www.nolimites.net/articulos/index.php/topic,732.0.html
Usuarios que han visto este tema también han visto...
- PostgreSQL con perl en el WEB
- Jerarquía de Operaciones en Perl
- ¿Cómo enviar emails usando Perl y Sendmail?
- Uso del Strict en Perl
- POP3 con Perl
- Versión imprimible de este documento
- Enviar por e-mail este documento
