Foro - Perl en Español

por **explorer** » 2009-11-21 17:47 @782

Yo no veo en ninguna parte del programa que guardes nada a archivo.txt... por eso no te devuelve nada.

Hola, explorer, ya está más o menos solucionado. Perdona la torpeza pero es que apenas comienzo. Éste es el código más o menos pero digo más o menos porque me guarda en el archivo pases las líneas pero enteras yo solo quiero tomar una cantidad de caracteres después de los 2 puntos. ¿Me podrías decir qué debo estudiar para poder manejar estas cadenas? 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 ();
 
my @contenido;
 
push (@contenido, $content);
 
open (AR, ">archivo.txt");
 
print AR @contenido;
 
print "archivo guardado\n";
 
close (AR);
 
my @pases;
 
print "buscando pases..\n";
 
open (AT, "archivo.txt");
 
while (my $linea = <AT>)
 
  {
 
    if ($linea =~ /:/)
 
    {
 
      chomp $linea;
 
     push @pases, $linea;
 
         }
 
      }
 
close (AT);
 
print "estos son tus pases..\n";
 
open (AQ, ">pases.txt");
 
print AQ @pases;
 
close (AQ);
 
system 'pause>nul';
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-11-21 19:08 @839

Lo que no sé es por qué guardas lo que te has bajado desde Internet a un fichero, para luego volver a abrirlo. E incluso podrías ir grabando los @pases a medida de que los vas encontrando, reduciendo un poco el código.

Para extraer parte de una cadena de caracteres, pues depende de si sabes qué es lo que quieres extraer y/o de dónde.

Si sabes exactamente la posición dentro de la cadena, pues debes usar substr() o split() o unpack.

Si no sabes dónde es, puedes localizarlo con index o rindex o, más comúnmente, con una expresión regular. El qué utilizar en cada momento, depende de cada circunstancia.

Tu programa se puede quedar en algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;                                     # Somos novatos y vamos a programar en Perl de forma estricta
use warnings;                                   # ¡Perl! Avísame de todo lo raro que encuentres
use diagnostics;                                # Y con mucha información, por favor
 
use LWP::UserAgent;                             # Vamos a conectarnos como clientes HTTP
use HTTP::Request;                              # Haciendo peticiones HTTP, naturalmente
 
my $ID = LWP::UserAgent->new();                 # Vamos a ser un navegador Firefox (!)
$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";          # Preguntamos al jefe dónde tenemos que mirar
my $url = <STDIN>;
chomp $url;
 
my $req      = HTTP::Request->new(GET => $url);
my $response = $ID->request($req);              # Hacemos una petición HTTP de tipo GET
my $content  = $response->content();
 
die "PROBLEMAS: No he bajado nada: $response" if not $content;
 
my @pases;                                      # Comienzo de la búsqueda de pases
open (AQ, ">pases.txt");
print "Buscando pases...\n";
 
for my $linea (split /[\r\n]+/, $content) {     # Para todas las líneas bajadas
 
    if ($linea =~ /:/) {                        # Si la línea contiene un ':'
        print AQ $linea;                        # La guardamos en el fichero, para la posteridad
        push @pases, $linea;                    # Y en @pases, para informar después
    }
}
 
close (AQ);
 
print "Estos son tus pases...\n";               # Informamos
print @pases;
 
print "Pulsa Enter para terminar..."; <>;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **ReNcOoR** » 2009-11-21 19:24 @850

Muchas gracias, explorer. Me la pones algo difícil ya que use strict, use warnings, use diagnostics son para profesionales como usted. Es más, conozco gente que sabe mucho y no las usa. Un saludo.

por **explorer** » 2009-11-21 19:31 @855

Te equivocas: strict, warnings y diagnostics son las mejores armas con las que cuentas para que el propio Perl te ayude a programar bien.

Pueden parecer pesadas, pero te crearán hábitos de programación muy buenos.

De hecho, programar con Modern::Perl en Perl v5.10, activa todas estas ayudas. Y en Perl v6, por defecto, se programa siempre en modo estricto.

Solo cuando tengas mucha experiencia, o dependa de las circunstancias, puedes dejar de usarlas.

Por ejemplo, cuando se trata de programar algo muy corto y/o rápido, o en pocas líneas, o cuando usas un editor de código Perl que te ayude a encontrar errores de escritura en el código.

Para todo lo demás, siempre son recomendables.

Foro - Perl en Español

Meter array en archivo de texto

Re: 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

¿Quién está conectado?