%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/share/webmin/lpadmin/
Upload File :
Create Path :
Current File : //usr/share/webmin/lpadmin/sortdrivers.pl

#!/usr/bin/perl

open(DRIVERS, "drivers");
@dr = <DRIVERS>;
close(DRIVERS);

@dr = sort { $a =~ /^\S+\s+(.*)/; $x = $1; $b =~ /^\S+\s+(.*)/; $x cmp $1; } @dr;
open(DRIVERS, ">drivers");
print DRIVERS grep { $_ ne "\n" } @dr;
close(DRIVERS);

Zerion Mini Shell 1.0