path: root/sortfunc

#!/usr/bin/perl

print sort byfuncname <>;

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