in reply to [untitled node, ID 178427]

You probably want to do 
$referrers[$cnt] = [ $element, $name, $count ];
$cnt++;

[download]
instead. Actually, scratch that, you want push @referrers, [ $element, $name, $count ];

Avoid index variables in Perl whenever possible (which is very nearly always due to push, pop, shift, unshift, splice and foreach) - they are a source of "one off" mistakes. Plus, the array operators are more efficient.

Anyway, using anonymous arrays, sorting becomes trivial: my @sorted_referrers = sort { $a->[2] cmp $b->[2] } @referrers; For the record, here's a simple version that will do this using your code and split: my @sorted_referrers = sort { (split("|", $a))[2] cmp (split("|",$b))[2] } @referrers; The following is a much more efficient way to do it: 
my @sorted_referrers =
    map { $_->[1] }
    sort { $a->[0] cmp $b->[0] },
    map { [ (split("|"))[2], $_ ] } @referrers;

[download]
But honestly, it is nonsense to jump through all these hoops to work with stringified data when you have it available in native form to begin with.

Makeshifts last the longest.

Replies are listed 'Best First'.
178434
by Samn (Monk) on Jun 30, 2002 at 23:18 UTC
    		[reply]
        No, not hash, but array. Your array elements are now references to anonymous arrays, so you need to dereference them. 
        foreach $element( keys %count ) {
    $name = $element;
    push @referrers, [ $element, $name, $count ];
}

my @sorted_referrers = sort { $a->[2] cmp $b->[2] } @referrers;
    
print "@$_\n" for @referrers;
print "@$_\n" for @sorted_referrers;

        [download]

        I suggest you read up on references - perlreftut is a good place to start.

        Lastly, it looks as though you're neither using strict nor enabling warnings. While they cause extra work by forcing you to use my all over the place, they will also save you from subtle bugs caused by typos, or variables that are visible or retain their value in parts of the code where you didn't intend them to. Save your own and your successor's sanity by getting into the habit of using strictures and warnings for anything longer than 5 lines at most.

        Update: I realize these prints there must look somewhat confusing. I should probably give you a verbose, spelled out version: 
        foreach my $referrer (@referrers) {
    print "$@referrer\n";
}

        [download]
        or a really ugly version which dereferences each separate element and prints them with pipes, solely for the purpose of the demonstration of the two syntaxes to access a referenced array's members: 
        foreach my $referrer (@referrers) {
    print $referrer->[0] . "|" . $$referrer[1] . "|" . $referrer->[2] 
+. "\n";
}

        [download]
        I prefer the arrow syntax. (Outside demonstration purposes, I'd solve this as follows: 
        foreach my $referrer (@referrers) {
    print join "|", $@referrer;
}

        [download]

        which obviously isn't much of an example.

        Again, perlreftut is the doc to read. Hope this helps. :)

        Makeshifts last the longest.

    		[reply]
    [d/l]
    [select]

    In Section Seekers of Perl Wisdom