Jump to content


Photo

Como Fazer Um Top 10 ?


  • Faça o login para participar
4 replies to this topic

#1 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 10/11/2003, 15:27

Vou ensinar aqui como fazer um top 10, tirando os dados de um txt, e organizando ele pelo numero de votos, na ordem descresente, quem tem mais numeros ate quem tem menos numeros.


top10.pl;
#!/usr/bin/perl -w

use strict;

# Extrai o banco de dados dentro de um hash
my $data = {};
open (DATA, "db.txt");
while (<DATA>) {
   chomp;
   my ($id, $nome, $votos, $email) = split /\|/;
   $data->{$id}->{id}    = $id;
   $data->{$id}->{nome}  = $nome;
   $data->{$id}->{email} = $email;
   $data->{$id}->{votos} = $votos;
}
close (DATA);

# Faz a ordenação de votos para quem esta em primeiro e quem esta em ultimo.
my @ordem = sort { $data->{$b}->{votos} <=> $data->{$a}->{votos} || $a cmp $b } keys %$data;

print "Content-Type: text/html\n\n";
print "<pre>\nTop 10\n----------\n";

# Simples loop para imprimir o top tirado da ordenação
my $n = 0;
foreach (0 .. 9) {
   $n++;
   print "$n - $data->{$ordem[$_]}->{nome} ( $data->{$ordem[$_]}->{email} ) tem ( $data->{$ordem[$_]}->{votos} ) votos, seu id eh $data->{$ordem[$_]}->{id}.\n"; 
}

banco de dados usado:
db.txt;
1|asd|12|asd@hastr.com
2|lero|1|lero@t.com
3|ze|10|ze@bah.com
4|re|3|re@irgh.com
5|aham|4|aham@oi.com
6|ui|9|ui@hi.com
7|bud|12|asd@hastr.com
8|arth|1|lero@t.com
9|coers|10|ze@bah.com
10|asrbu|3|re@irgh.com
11|akds|4|aham@oi.com
12|asdlwe|9|ui@hi.com
13|lkjb|12|asd@hastr.com
14|awelkjd|1|lero@t.com
15|ahamad|10|ze@bah.com
16|rekjhsd|3|re@irgh.com
17|aslkiwe|4|aham@oi.com
18|liou|9|ui@hi.com

Espero que gostem =D

qualquer dúvida eh so falar.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#2 Inu

Inu

    Veterano

  • Usuários
  • 1138 posts
  • Sexo:Masculino
  • Localidade:Canela, Rio Grande do Sul, Brasil

Posted 11/09/2005, 21:22

não tem como cadastrar os usuários por uma página?

#3 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 11/09/2005, 21:47

nao isso nao eh um sistema de cadastro.

como diz no topico eh so um exemplo de como fazer um top 10 lendo um banco de dados.

Edição feita por: prix, 11/09/2005, 21:47.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#4 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 17/09/2017, 07:30

Augmentin 875 Mg Tablet Online buy cialis Prix Cialis Et Viagra Acheter Viagra Viagra Generic Propecia 2 Mg Viagra Composizione cialis Priligy Paypal
Acheter Cialis Ligne Canada cialis Buy Cheap Uk Viagra Acquistare Viagra Roma Acheter Du Vrai Cialis Amoxicillin And Canine Whelping Can You Get High From Cephalexin cialis Zithromax Dosage Rxlist
Cialis With Dapoxetine For Sale Canada cialis price Comentarios Sobre Dapoxetina Propecia O Avidart Frontal Baldness Propecia Onlines Std Pills online pharmacy Celis Pills

#5 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 23/11/2017, 23:00

How Much Does Viagra Cost At Costco 104 buy viagra Levitra Medicament Belgique Baclofene Efficacite




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq