[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Q: perlport perlrun



I don't see perlrun switches mentioned in perlport.  Am I correct in
assuming that the -a switch doesn't work in MacPerl?  This fails:

#!perl -0777anwF/\n/

print STDOUT join ("\n",
    map { join '.', reverse split (/\./, $_->[0]) }
    sort {
        my $agtb  = @{$a->[1]} > @{$b->[1]};
        for (0 .. ($agtb ? $#{$b->[1]} : $#{$a->[1]})) {
            return ($a->[1][$_] cmp $b->[1][$_])
                if ($a->[1][$_] cmp $b->[1][$_]);
        }
        $agtb ? 1 : -1;
    }
    map { [$_, [split (/\./)]] }
    map { join '.', reverse split (/\./) }
    @F), "\n";

__END__
foo.baz.baz
foo.bar.baz
foo.bar.bar
bar.baz
bar.bar.bar

=pod

Well, actually SunOS perl -c complains too, but it runs fine there.

Thanks.  :)

-Hao

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org