Código
#!usr/bin/perl #Finder Paths #(C) Doddy Hackman 2010 use WWW::Mechanize; use HTTP::Response; my $new = WWW::Mechanize->new(autocheck => 0); $new->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12"); &head; unless($ARGV[0]) { &menu; } else { &scan($ARGV[0]); } &finish; sub menu { &scan($pa); } sub finish { <STDIN>; } sub scan { my @analizar; toma($_[0]); @links = dame_link(); for my $junt(@links) { my $com = $junt->url(); my ($scheme, $auth, $path, $query, $frag) = uri_split($_[0]); if ($path=~/\/(.*)$/) { my $path1 = $1; my ($scheme, $auth, $path, $query, $frag) = uri_split($com); if ($path =~/(.*)\//) { $code = toma($_[0].$1); my $found = $1; if ($code=~/Index Of (.*)<\/title>/ig) { $ok = 1; savefile("indexs-found.txt",$_[0].$found); }}}} if ($ok ne 1) { }} sub repes { foreach my $palabra ( @_ ) { next if $repety{ $palabra }++; } } sub toma { } sub dame_link { } sub savefile { close SAVE; } sub head { ########## ######### ######### ##### # ##### ### ### ### # # # ## # # # # # # # # # # # # # # # # # # # ## # # # # # # # # # # # # # # ### # # # # # # ### ### ### # # # ##### ## # # # # # # # # # # # ##### # # # # # # # ## # # # # # # # # # # # # # # ### ###### # ##### ######## # ### ### ### ### ### ### ### ); } #The end #Blog : doddy-hackman.blogspot.com #Mail : lepuke[at]hotmail[com]