perl 5.0 alpha 2

[p5sagit/p5-mst-13.2.git] / sortfunc

#!/usr/bin/perl

print sort byfuncname <>;

sub byfuncname {
    ($A) = $a =~ /\b(\w+) P\(/;
    ($B) = $b =~ /\b(\w+) P\(/;
    $A cmp $B;
}