Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Speusipo's scratchpad

by fernandes (Monk)
on Jun 19, 2007 at 14:51 UTC ( #622031=scratchpad: print w/replies, xml ) Need Help??

If you need wake up and no other timer is available:
perl -e 'while (time<1235736319){print "você ainda não deve acordar";}; while(1){$a=1; while($a<3000){print $a; $a++;} print chr hex 7;}'
Take on mind nesting while loops is not a good programing pratice.
If you wanna get all the Wikileaks documents:
#!/usr/bin/perl -w use strict; use warnings; use utf8; use WWW::Mechanize; #link documentos wikileaks my $url_prefixo = ""; my $url_classificacao = 1; my $url_pagina = 0; my $url = $url_prefixo.$url_classificacao."_".$url_pagina.".html"; my $url_cable; # entra nas páginas classificadas my $mech = WWW::Mechanize->new(); $mech->get($url); die unless ($mech->success); #pega links sub links{ $mech->get($url); while($url_classificacao<7){ while ($mech->success){ my @LINKS = $mech->links(); foreach (@LINKS) { $url_cable = $_->url(); if ($url_cable =~ /\/cable\//){ print "\n---------link----------\n"; print "".$_->url(), "\n"; print "-Classificacao: ".$url_classificacao; print " Página: ".$url_pagina."\n"; print "\n-----------------------\n"; if (eval{$mech->get($url_cable)}){ $mech->dump_text(); } else{ print"\nerro de cenexao\n"; } } } $url_pagina++; $url = $url_prefixo.$url_classificacao."_".$url_pagina.".html" +; eval{$mech->get($url)}; } $url_classificacao++; $url_pagina = 1; $url = $url_prefixo.$url_classificacao."_".$url_pagina.".html"; eval{$mech->get($url)}; } print "\n\n\nfim do site"; } 1; links;
Log In?

What's my password?
Create A New User
Domain Nodelet?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2022-08-13 21:04 GMT
Find Nodes?
    Voting Booth?

    No recent polls found