fernandes

User since:	May 17, 2007 at 22:10 UTC (17 years ago)
Last here:	Feb 13, 2024 at 10:41 UTC (9 weeks ago)
Experience:	501
Level:	Monk (7)
Writeups:	41
Location:	Brussels
User's localtime:	Apr 19, 2024 at 08:08 +00
Scratchpad:	View
For this user:	Search nodes

"There are thirty five letters in this text" interestingly best translates into Portuguese as "nesta frase ha vinte e oito letras", even considering the number of letters on those equally meaningful autograms differs.
I was a 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 = "http://wikileaks.org/classification/";
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 "http://wikileaks.org".$_->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;
[download]

A list of free from passwords wireless access points:
Debian:

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++}'
[download]

Ubuntu

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++}'
[download]

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GC/CS/CC/H/IT/P/U d-?pu s+: a C++++$ UL--- P++>$ L>$ !E !W$ !N !o K--?
+ w---$ O M? V? PS++>$ !PE Y>$ PGP>$ t>$ 5? !X !R tv b>$ DI !D !G e$ h
+ r>$ y 
------END GEEK CODE BLOCK------
[download]