mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 06:03:28 +00:00
12 lines
248 B
Perl
Executable File
12 lines
248 B
Perl
Executable File
#!/usr/local/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);
|
|
|