 Jue Mar 16, 2006 6:04 am
|
 |
daniCompaq
Perlero Nuevo
|
Registrado: 16 Mar 2006
Mensajes: 7
|
|
| Cómo abrir archivo y copiar su texto a variable |
 |
|
Buenos días,
Tengo una duda de novato: quiero abrir un fichero TXT y copiar su texto a una variable. Lo he provado con ésto:
| Código: |
$file= "contingut.txt";
open(HOLA, "<$file"); |
Me podeis echar una mano?
gracias de antemano  |
|
|
|
|
Jue Mar 16, 2006 6:40 am
|
|
monoswim
Vive para Perl en Español
|
Registrado: 18 Nov 2003
Mensajes: 716
Ubicación: Buenos Aires
|
|
|
|
|
a ver, para hacer lo que quieres usamos estas líneas de código:
open(HOLA, "<$fele"); #abrimos el archivo en modo solo lectura
my @lineas = <HOLA>; #cargamos las líneas en un array
close(HOLA);
Ahora tenés un elemento del array por cada línea que tenías en el archivo, para imprimirlo podías hacer
print join("\n",@lineas); #imprime las líneas separadas por un salto de línea
Eso sería lo mismo que hacer
foreach my $linea (@lineas){
print $linea . "\n";
}
Espero que te sirva
Saludos |
|
|
Jue Mar 16, 2006 8:53 am
|
|
kidd
Creador de Perl en Español
|
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
|
|
|
|
|
Damian Conway en su libro recomienda:
| Código: |
open my $file, '<', "contingut.txt" or die("No se pudo abrir archivo");
my $texto = do { local $/; <$file> };
close $file;
|
SALUDOS |
|
|
Lun Mar 27, 2006 4:01 am
|
|
daniCompaq
Perlero Nuevo
|
Registrado: 16 Mar 2006
Mensajes: 7
|
|
| gracias |
|
|
sí, me sirve, muchas gracias!  |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
