Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw


by fernandes (Monk)
on May 17, 2007 at 22:10 UTC ( #616123=user: print w/replies, xml ) Need Help??

I'm PhD student in Linguistics, and teacher (Professor Substituto) at Federal University of Santa Catarina, Communication and Expression Center, where I teach Semantics between another courses. Born and living in the Island of Santa Catarina.
May you be interested in helping me to improve Text::Statistics' speed?

Anyway, the picture is a PP-Plot of tf-icf (term frequency and inverse collection frequency) against normal curve. This is important because using that we are able to empirically distinguish stop words, key words and middle importance words.
Name: Rodrigo Panchiniak Fernandes
Home Page: Qualianet
In the present I have a beautiful geek girlfriend and we are very happy.
Ĩ have never meet any Perlmonk in person. So, if you are planning to come to Brazil, for FISIL v.g. be in touch. I'm a warming brazilian and can offer you a room.
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;
A list of free from passwords wireless access points:
perl -e'for($q=join("",grep('/SID:\|key:off/',qx(iwlist wlan0 scan)))) +{{s/\s+/,/g}{s/,Encryption,/,/g}}{s/,//}while($i<scalar(@p=split(/,/, +$q))){if($p[$i+1]eq"key:off"){print$p[$i]}$i++}'

perl -e'$i=1;for($q=join("",grep('/SID:\|key:off/',qx(iwlist wlan0 sca +n)))){{s/\s+/,/g}{s/,Encryption,/,/g}}{s/,//}while($i<scalar(@p=split +(/,/,$q))){if($p[$i-1]eq"key:off"){print$p[$i]}$i++}'

Log In?

What's my password?
Create A New User
[Corion]: marto: Oof - that means taking a day off or can you work from home?
[marto]: Corion, I can do some non-technical things, but there's no way for me to connect to the clients network.
[marto]: which is a shame, I had a really productive day yesterday
[Corion]: marto: Meh, so it'll be a day of cleaning out email...
[marto]: and hoped that I'd be able to continue the momentum :)
[marto]: I can't even access client email, nor my employers since those idiots moved to citrix
[marto]: it literally doesn't work. Also, via their citrix interface theres no way to open attachments, or upload an attachment for sending. The company policy is that you email you work account from a personal one, and forward it on from there :/

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2018-01-16 08:51 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (175 votes). Check out past polls.