Datei in arrayrefs (Allgemeines zu Perl)

[thread]7709[/thread]

Datei in arrayrefs

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

murphy

2006-02-14 02:33

User since
2004-07-19
1776 Artikel
HausmeisterIn

Wieso liest du eigentlich nur eine Zeile der Daten ein und warum splittest du nach "\n"? Wenn ich richtig verstanden habe, welches Resultat du haben willst, dann würde ich in etwa das folgende Programm vorschlagen:

Code: (dl )

use strict;
use warnings;

use Data::Dumper;

my @users;
while (<DATA>) {         
  chomp;
  push @users, [ split /\|/ ];
}

print Dumper \@users;

_ _DATA_ _
user1|alter|geschlecht
user2|alter|geschlecht
user3|alter|geschlecht
user4|alter|geschlecht

\n\n

When C++ is your hammer, every problem looks like your thumb.

renee

2006-02-14 02:36

User since
2003-08-04
14371 Artikel
ModeratorIn

das wird nur funktionieren, wenn $/ auf undef ist...

mach's doch lieber:

Code: (dl )

my @users;
while(<USERS>){
   chomp;
   push(@users,[split(/\|/,$_)]);
}

Warum sieht das unschön aus??

Edit: Mist, zu langsam ;)\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2006-02-14 01:55.