Or more simply,
#!/usr/footprints_perl/bin/perl -w use strict; package joe; my @names = ('joe', 'aaron'); package FP; sub sortNames ($$) { print "$_[ 0 ] vs $_[ 1 ]\n"; return $_[ 0 ] cmp $_[ 1 ]; } package joe; my @sorted = sort FP::sortNames @names; print "sorted : @sorted\n"; __END__ P:\test>junk joe vs aaron sorted : aaron joe
In reply to Re^2: sort sub in a different package
by BrowserUk
in thread sort sub in a different package
by blahblahblah
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |