← Back
Editing: 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);
Save File
Cancel