| files >> /var/www/html/img_galeri/2r1asasas/root/proc/self/root/usr/libexec/webmin/lpadmin/ |
| files >> /var/www/html/img_galeri/2r1asasas/root/proc/self/root/usr/libexec/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);
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`