Datei in arrayrefs - #62940 (Allgemeines zu Perl)

Froschpopo

2006-02-14 01:55

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ist das ne saubere Lösung?

Textdatei in <USERS>

Code: (dl )

user1|alter|geschlecht
user2|alter|geschlecht
user3|alter|geschlecht
user4|alter|geschlecht

nun möchte ich jede einzelne zeile als "datensatz" behandeln, aufsplitten und je zeile eine arrayreferenz vergeben.Sinn ist, das ganze später z.B. nach alter sortieren zu können.
So soll es aussehen:

Code: (dl )

@array = (
["user1", "alter", "geschlecht"],
["user2", "alter", "geschlecht"],
["user3", "alter", "geschlecht"],
["user4", "alter", "geschlecht"]

Jetzt wollte ich das so machen:

Code: (dl )

1
2
3

$file = <USERS>;

@users = ([split(/\||\n/,$file)]);

kann man das so verwenden? Ich finde, das sieht sehr unschön aus.

Info: In der Textdatei befindet sich der Zeilenumbruch nur am Zeilenende. Also eine typische Primatendatenbank.\n\n