sortover.pl

   1 #!/usr/bin/perl
   2 %iv=qw(required 00
   3        important 01
   4        standard 02
   5        optional 03
   6        extra 04);
   7 sub t {
   8     return $_[0] if $_[0] =~ m/^\#/;
   9     $_[0] =~ m/^(\S+)\s+(\S+)\s+(\S+)\s/ || die "$0: `$_[0]'";
  10     return "$3 $iv{$2} $1";
  11 }
  12 print(sort { &t($a) cmp &t($b) } <STDIN>) || die $!;
  13 close(STDOUT) || die $!;