Re(ALL): Putting it together

Putting everything together, I have:

my %edgeHash;
my @alreadySeen;
my %countHash;
while(<stdin>){

    # Reading data from the inet generator,
    # making sure the format is correct.
    if(/^\s*([0-9]+)\s+([0-9]+)\S*$/){
        my $a = "$1";
        my $b = "$2";
        push @{$edgeHash{$a}}, $b if not $alreadySeen[int($b)]++;
    }
}
[download]

Thanks to all those who helped. ++ tomorrow, when I get the votes.

Comment on Re(ALL): Putting it together Download Code

Replies are listed 'Best First'.
Re: Re(ALL): Putting it together by fruiture (Curate) on Aug 30, 2002 at 21:18 UTC
I'd rather say: `my (%edgeHash,@alreadySeen); while(<STDIN>){ # simpler regexp if(/(\d+)\D+(\d+)/){ # don't use '$a' and '$b'! # and don't quote "$vars" # in fact you can keep $1 and $2 push @{$edgeHash{$1}}, $2 unless $alreadySeen[int($2)]++; } }` [download] -- http://fruiture.de	[reply] [d/l]
Re(3): Putting it together by Arien (Pilgrim) on Aug 30, 2002 at 21:30 UTC
Well, in that case... `my (%edge, @seen); while (<STDIN>) { $seen[$2]++ or push @{$edge{$1}}, $2 if /(\d+)\D+(\d+)/; # push @{$edge{$1}}, $2 if /(\d+)\D+(\d+)/ and not $seen[$2]++; }` [download] — Arien Edit: added the commented alternative.	[reply] [d/l]