home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch5 / sortfield.eg < prev    next >
Encoding:
Text File  |  1992-10-18  |  243 b   |  9 lines
  1. @data = split(/\n/, `cat /etc/passwd`);
  2. local(@datakeys);
  3. foreach (@data) {
  4.     push(@datakeys, (split(/:/))[2]);
  5. }
  6. sub bydatakeys { $datakeys[$a] <=> $datakeys[$b]; }
  7. @sortdata = @data[sort bydatakeys $[..$#data];
  8. print join("\n",@sortdata);
  9.