Programación Web y Scripting > Perl

 Array con variables

(1/1)

krosty4782:
Hola que tal, lo que quiero hacer es, crear un array, y que luego mientras lee las lineas de un txt, almacente cada linea en una posicion del array.
Lo que hice fue lo siguiente:

--- Código: Perl --- @lineas = ('');$i=0;open (PAGINA, "averga.txt");while (<PAGINA>){push(@lineas, $_);print "$lineas[i];$i=$i+1;}close(PAGINA); 
Aver quien me puede ayudar :P
Gracias

su -:

--- Código: Perl ---#!/usr/bien/perluse strict;use diagnostics;my @lineas; open PAGINA, "averga.txt" or die    "Error: $!n";while ( my $linea = <PAGINA> ) {    chomp $linea;    push @lineas, $linea;    print $linea;}close PAGINA;  Una forma mas facil:

--- Código: Perl ---#!/usr/bien/perluse strict;use diagnostics;use Tie::File;my @lineas;tie @lineas, 'Tie::File', "averga.txt" or die "Error: $!n";print $lineas[0]; # imprime linea 1.untie @lineas;  

explorer:
Más directo:

--- Código: Perl ---open PAGINA, "averga.txt" or die "Error: $!n";my @lineas = <PAGINA>;close PAGINA;chomp @lineas; 

Navegación

[0] Índice de Mensajes