Foro - Perl en Español

por **krosty4782** » 2010-09-03 19:34 @857

Hola, ¿qué tal?

Lo que quiero hacer es crear un array, y que luego mientras lee las líneas de un txt, almacene cada línea en una posición del array.

Lo que hice fue lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@lineas = ('');
$i=0;
open (PAGINA, "averga.txt");
while (<PAGINA>)
{
push(@lineas, $_);
print "$lineas[i];
$i=$i+1;
}
close(PAGINA);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

A ver quién me puede ayudar

Gracias

my @lineas;
my $i = 0;
open (PAGINA, "averga.txt");
while (<PAGINA>) {
    chomp;         # quitamos el carácter de retorno de carro, que casi siempre nos sobra
    push(@lineas, $_);
    print "$_\n";
    $i++;
}
close(PAGINA);
print "Número de líneas: $i\n";
 
use Data::Dumper;
print Dumper \@lineas;    # Volcado del contenido de @lineas
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Las dos últimas líneas son de pruebas: nos sirven para sacar el contenido de @lineas, y de esa manera comprobar que, efectivamente, cada línea está en cada elemento de @lineas.

por **krosty4782** » 2010-09-03 23:52 @036

Gracias por tu respuesta explorer, pero sigo sin poder hacer lo que quiero.

Modifiqué el código y queda así:

Sintáxis: [ Descargar ] [ Ocultar ]

@lineas;
$i = 0;
open (PAGINA, "averga.txt");
while (<PAGINA>)
{
chomp;
push(@lineas, $_);
`host $lineas[i]`;
$i++;
}
close(PAGINA);

O sea, yo quiero que aplique el "host" para cada posición del array, por eso es que creo un i y voy aumentando su valor.

Gracias.

por **explorer** » 2010-09-04 07:35 @358

Primero, no es 'i', sino '$i'. Si hubieras puesto 'use strict;' o 'use warnings;', Perl te hubiera avisado.

En cuanto al problema, no necesitas guardar la línea en el array, ya que, directamente, la vas a pasar al comando host:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(PAGINA,"averga.txt");
while(my$linea=<PAGINA>){# leemos una línea del fichero
print$linea;# informamos al usuario
chomp$linea;# quitamos fin de línea
printqx(host $linea);# lo pasamos a host y pintamos el resultado
}
close(PAGINA);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra cosa es que quieras guardar las líneas y/o la salida del comando host en una variable, para utilizarlo más tarde.

por **krosty4782** » 2010-09-04 15:07 @671

¡¡¡ Gracias, che !!!
Me estaba comiendo el signo $; estoy acostumbrado a Java xDDD

Saludos.

Foro - Perl en Español

Crear array con variables

Crear array con variables

Publicidad

Re: Crear array con variables

Re: Crear array con variables

Re: Crear array con variables

Re: Crear array con variables

¿Quién está conectado?