Foro - Perl en Español

por **ReNcOoR** » 2009-11-17 21:54 @954

Hola, amigos, tengo un problemilla.

Trato de meter en un archivo todos los datos de un array:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(texto,">archivo.txt")

@total=<texto>;

close(texto);Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Según una web donde busqué, me dice que de esta manera quedaría pero no me da los resultados esperados. Saludos y espero sus comentarios.

Pues tienes que abrir el fichero con open(), ir leyendo el contenido, línea a línea, con un while(my $linea = <$fichero>) y por cada línea ver si contiene un ':', que eso lo puedes saber con una expresión regular o con la función index().

Si la línea cumple con tus requisitos, pues la guardas con un push().

por **ReNcOoR** » 2009-11-19 19:39 @860

Hola, explorer. ¿No será mucha molestia si me pones un ejemplo? Un saludo.

por **explorer** » 2009-11-20 04:19 @221

Pero si solo hay que trasladar a Perl lo que te he dicho...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(my$fichero,'<fichero.txt')ordie"ERROR: No puedo leer el fichero.txt: $!\n";
while(my$linea=<$fichero>){
if($linea=~/:/){
chomp$linea;
push@array,$linea;
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tendrías que leer más los tutoriales, leer sobre todo más código escrito por otros.

por **ReNcOoR** » 2009-11-20 18:13 @800

Hola, explorer. Hasta el if() lo tenía bien claro pero trataba de poner otro if() que me dijera si había encontrado la frase o la línea; tal vez no se pueden anidar if() en Perl. ¿O sí?

por **erv-Z** » 2009-11-20 19:06 @837

Sí, existe una función llamada elsif() de Perl, Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$var="holaaaa";
if($vareq"Holaaaa"){
print"sí\n";
}
elsif($vareq"holaaaa"){
print"Comprobación correcta\n";
}
else{
print"Ninguna coincidieron\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-11-21 05:34 @274

if() y elsif() NO son funciones. Son sentencias de control , que en Perl siguen casi las mismas directrices que en otros lenguajes.

El ejemplo que además pones no muestra una anidación, sino una cascada de funciones if().

Un ejemplo de anidación sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($primeraeq$comprobación ){
if($segundaeq$comprobación ){
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **ReNcOoR** » 2009-11-21 14:43 @655

Hola, amigos.

Este es el código completo pero cuando me busca las palabras no me las guarda ni en el fichero archivo.txt ni en pantalla. ¿Cuál será el problema? Un saludo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use LWP::UserAgent;
use HTTP::Request;
 
my $ID = new LWP::UserAgent;
 
$ID-> agent ("Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.1.5) Gecko/20091102 Firefox/3.5.5");
 
print "Escriba la url de la web..\n";
 
my $url = <STDIN>;
 
my $req = HTTP::Request->new (GET => $url);
 
my $response = $ID->request ($req);
 
my $content = $response->content ();
 
print $content;
 
my @fuente;
 
push (@fuente, $content);
 
open (my $debug, ">archivo.txt");
 
close ($debug);
 
open (my $fichero, "archivo.txt");
 
while (my $linea = <$fichero>) {
 
    if ($linea =~ /:/) {
        chomp $linea;
 
        push my @datos, $linea;
    }
}
 
close ($linea);
 
system 'pause>nul';
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Meter array en archivo de texto

Meter array en archivo de texto

Publicidad

Re: Meter array en archivo de texto

Re: Meter array en archivo de texto

Re: Meter array en archivo de texto

Re: Meter array en archivo de texto

Re: Meter array en archivo de texto

Re: Meter array en archivo de texto

Re: Meter array en archivo de texto

Re: Meter array en archivo de texto

Re: Meter array en archivo de texto

¿Quién está conectado?