...
perdeu mais tempo discutindo que para escrever este mail que levaria para fazer o
script ...
veja um exemplo.
foi o meu tempo para esta thread...
$ wc /users/legis/d02/t04/RIR
44376 304195 2332222 /users/legis/d02/t04/RIR
bash-2.02$ perl xp
44300 / 12053
Foram 44376 linhas, 12080 palavras distintas...
the code took:11 wallclock secs (10.59 usr + 0.09 sys = 10.68 CPU)
bash-2.02$
O Script:
#!/usr/bin/perl -w
#
$|++;
use strict;
use Benchmark;
my $t0 = new Benchmark;
my ( $t1, $td );
die "Falha ao abrir arquivo: $!\n\n"
unless ( open(T, "/users/legis/d02/t04/RIR") );
my $nLines = 0;
my $nWords = 0;
my %Word = ();
my $Line;
while ( defined( $Line = <T> ) ) {
$nLines++;
foreach ( split(/\W+/, $Line) ) {
next unless ( $_ );
unless ( defined( $Word{$_} ) ) {
$Word{$_} = 1;
$nWords++;
} else {
$Word{$_}++;
}
}
printf "\r%5s / %5s", $nLines, $nWords
unless ( $nLines % 100 );
}
printf "\n Foram %s linhas, %s palavras distintas...\n", $nLines, $nWords;
close(T);
$t1 = new Benchmark;
$td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";
*--------
Carlos Cardoso wrote:
> Respondendo (replying) "Luciano M.B" <[EMAIL PROTECTED]>
> > Eu acho que se o cara vai usar para um site pequeno com no maximo 80.000
> > cadastros ele at� que pode usar o banco de dados em ASCII o famoso .txt mas
> > acima disso o .txt fica pesado e n�o vale a pena mesmo.
> >
>
> T�. Faz uma busca de todos os usuarios com nascimento anterior a 82, do
> sexo masculino em residentes em �reas de CEP menor de 22000-000.
>
> []'s
> Carlos Cardoso - [EMAIL PROTECTED]
> NAS LIVRARIAS: FLASH4 - Para Principiantes
> ==================================
> www.carloscardoso.com
> Tech Writer, BOFH & Trekker
> Linux Reg user # 92301
>
> http://www.mrweb.com.br/perl/
> >>No site da lista, voce tera tudo sobre PERL,
> >>LINUX, PHP, ASP e informacoes, cadastramento
> >>e descadastramento da Lista.
--
FiscoData Legisla��o On Line - Curitiba/PR
Marco A P D'Andrade - [EMAIL PROTECTED]
WebMaster (41) 333-5775
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================
