lpadmin/sortdrivers-by-drv.pl

   1 #!/usr/local/bin/perl
   2
   3 open(DRIVERS, "drivers");
   4 @dr = <DRIVERS>;
   5 close(DRIVERS);
   6
   7 @dr = sort { $a =~ /^(\S+)\s+.*/; $x = $1; $b =~ /^(\S+)\s+.*/; $x cmp $1; } @dr;
   8 open(DRIVERS, ">drivers");
   9 print DRIVERS @dr;
  10 close(DRIVERS);
  11