[Madrid-pm] una de hash

Bruno brunorc en gmail.com
Sab Ene 26 02:34:59 PST 2008


Hola

Sin sortear:

#!/usr/bin/perl

use strict;
use warnings;

my %counter;
my @orderby;

while (<>) {
    my ($field, undef) = split(/ /, $_, 2);
    push @orderby, $field unless $counter{$field};
    $counter{$field}++;
}

print "$_ = $counter{$_}\n" foreach @orderby;

$alu[2], Bruno


Más información sobre la lista de distribución Madrid-pm