Help for this page
my $adata = q(athings1 athings2); my $bdata = q(bthings1 bthings2); ... my ($sortby,$astring,$bstring) = @_; # this function uses three arguments. }
if ($sortby eq "string"){ my $result = sort { $b cmp $a } ($a_items[$item_no], $b_items[$item +_no]); } # $result will contain the greater of the two values.
my @a_items = split("\t", $astring,$limit); ... my @b_items = split("\t", $bstring,$limit); #discard the remainder pop @b_items;
www.com | www.net | www.org
No recent polls found