• Martes 25 de Abril de 2017, 22:23

Autor Tema:  Array con variables  (Leído 1329 veces)

krosty4782

  • Miembro activo
  • **
  • Mensajes: 28
    • Ver Perfil
Array con variables
« en: Sábado 4 de Septiembre de 2010, 02:30 »
0

Publicidad 
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
  1.  
  2. @lineas = ('');
  3. $i=0;
  4. open (PAGINA, "averga.txt");
  5. while (<PAGINA>)
  6. {
  7. push(@lineas, $_);
  8. print "$lineas[i];
  9. $i=$i+1;
  10. }
  11. close(PAGINA);
  12.  

Aver quien me puede ayudar :P
Gracias

su -

  • Moderador
  • ******
  • Mensajes: 2349
    • Ver Perfil
Re: Array con variables
« Respuesta #1 en: Sábado 11 de Septiembre de 2010, 04:46 »
0
Código: Perl
  1. #!/usr/bien/perl
  2. use strict;
  3. use diagnostics;
  4. my @lineas;
  5.  
  6. open PAGINA, "averga.txt" or die
  7.     "Error: $!n";
  8. while ( my $linea = <PAGINA> ) {
  9.     chomp $linea;
  10.     push @lineas, $linea;
  11.     print $linea;
  12. }
  13. close PAGINA;
  14.  
  15.  
Una forma mas facil:
Código: Perl
  1. #!/usr/bien/perl
  2. use strict;
  3. use diagnostics;
  4. use Tie::File;
  5. my @lineas;
  6. tie @lineas, 'Tie::File', "averga.txt" or die "Error: $!n";
  7. print $lineas[0]; # imprime linea 1.
  8. untie @lineas;
  9.  
  10.  
*******PELIGRO LEE ESTO!!*******

There is no place like 127.0.0.1

Conecto luego existo, no conecto luego insisto.

explorer

  • Miembro activo
  • **
  • Mensajes: 57
    • Ver Perfil
Re: Array con variables
« Respuesta #2 en: Martes 23 de Noviembre de 2010, 20:21 »
0
Más directo:
Código: Perl
  1. open PAGINA, "averga.txt" or die "Error: $!n";
  2. my @lineas = <PAGINA>;
  3. close PAGINA;
  4. chomp @lineas;
  5.