---
title: "Sortering"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19451-sortering"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Brian"
published: "2001-12-08T12:32:00.000Z"
updated: "2001-12-11T20:01:00.000Z"
replies: 2
views: 179
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/19451-sortering"
---

# Sortering

## #1 — Brian, 2001-12-08T12:32Z

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";
}
```

Permalänk: https://www.webforum.nu/p/19451

## #2 — Jojoxx, 2001-12-09T21:17Z

```
sub byLastName { my(@a,@b); @a=split(/\&#0124;/,$a); @b=split(/\&#0124;/,$b); return ($a[1] cmp $b[1]); }
@ODB = sort byLastName @ODB;
```

Permalänk: https://www.webforum.nu/p/342230

## #3 — Brian, 2001-12-11T20:01Z

Thanks!!

Permalänk: https://www.webforum.nu/p/342231

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19451-sortering