[perl] extractor de links y muchas gracias :)

[Cesar Villegas]

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;
##############################

Gracias otra vez

Cesar Villegas Ureta
"Slayer_X"
IRC Undernet #Arequipa #Linuxlatino #Metal
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl