sub byLastName { my(@a,@b); @a=split(/\|/,$a); @b=split(/\|/,$b); return ($a[1] cmp $b[1]); }
@ODB = sort byLastName @ODB;
------------------
/ J
Frågan#1
Hej!
Går det med ett enkelt kommando att sortera nedanstående utskrift från fil, så att arrayen sorteras efter efternamn?
//Brian
foreach $rec (@ODB){
chomp($rec);
($first,$last,$email)=split(/\|/,$rec);
print "<tr><td><font size='2'>$first</font></td><td><font size='2'>$last</font></td><td><font size='2'>$email</font></td><td><font size='2'><a href='edit_record.pl?first=$first&last=$last&email=$email'>Ändra</a> - <a href='edit.pl?action=delete&first=$first&last=$last&email=$email'>Radera</a></font></td></tr>\n";
}