Peter Farrar wrote:
>
> ## this part wont work...
> #foreach my $fieldname ( sort delim_sort(\%delimited_format) keys %
> {$delimited_format{fields}}){
> # print "$fieldname\t";
> # print ${${$delimited_format{fields}}{$fieldname}}{index}."\t";
> # print $delimited_format{delimiter}."\n";
> #}
> #sub delim_sort{
> # my $hRef = shift;
> # ${${${$hRef}{fields}}{$a}}{index}
> # <=>
> # ${${${$hRef}{fields}}{$b}}{index}
> #}
>
it won't even compile. sort wants a sub ref., not a sub call. even if it
compiles, you won't get the result you expect because sort calls your
function without any parameter.
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
