sortdrivers.pl

来自「Unix下基于Web的管理工具」· PL 代码 · 共 12 行

#!/usr/local/bin/perl

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

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