17 lines
335 B
Perl
17 lines
335 B
Perl
#!perl
|
|
|
|
sub command :Tab(bigmoney) {
|
|
my ($self, $cart, $command) = @_;
|
|
|
|
return NEXT if $command ne "bigmoney";
|
|
|
|
my @list = sort {
|
|
(split " ", $b)[1] <=> (split " ", $a)[1]
|
|
} grep {
|
|
not RevBank::Users::is_hidden($_)
|
|
} slurp("revbank.accounts");
|
|
|
|
print join "", @list[0..9];
|
|
|
|
return ACCEPT;
|
|
}
|