webmin--webmin
wehub-resource-sync
12 行
228 B
Perl
可执行文件
12 行
228 B
Perl
可执行文件
#!/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 @dr;
|
|
close(DRIVERS);
|
|
|