[perl] extractor de links y muchas gracias :)

[Adrian Galindo]

On Tue, 10 Oct 2000, Cesar Villegas wrote:

> Hola Amigos
> 
> Muchisimas gracias por la ayuda, de verdad q me dejaron super
> sorprendido por la respuesta tan rapida y eficaz :) bueno, espero no
> decepcionarlos, pero me acabo de construir mi extractor de links hecho
> en perl!! :)  a ver si les gusta, si me ayudan a mejorarlo se los
> agradecere mucho :)
> 
> #############################
> #!/usr/bin/perl -w
> #####extractor de links######
> open (XFILE, "<mapa.shtml");
>   while ( <XFILE> ) {
>   @linea = split(/\>/,$_);
>   foreach $dire (@linea)
>     {
>     if ($dire =~ /href/ )
>     {
>     $dire =~ tr/A-Z/a-z/;
>     $dire =~ s/\" .*/ /;
>     $dire =~ s/\<a href\=\"/ /;
>     print "$dire \n";
>     }
>     }
>   }
> 
> close XFILE;
> ##############################

Se dice que lo bonito de PERL es también el que puedes hacer una misma
tarea de varias formas.
En esta ocasión a mi gusto, creo que escogiste una de las más 'exóticas'. :)
 
Lo que te recomendaría en este caso es que metas el archivo al arreglo e
inmediatamente después lo cierres. Así lo tienes disponible para otros
usuarios (en caso de que los tuvieras) el mayor tiempo posible.

Sería algo así:

open (FILE, $fiel);
@file = <FILE>;
close (FILE);

foreach (@file) {
  # todo lo demas
}



Salu2...

---------------------
L.I. Adrián Galindo Hernández       ICQ: 53497209
Jefe del Departamento de Análisis   Tel Ofna: 5631-1282 ext. 212
Consejo de Salubridad General       http://www.facmed.unam.mx/consejo
Ciudad de México 

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl