xlxs oder csv Datei einlesen und ausgeben - #186227 (Allgemeines zu Perl)

rosti

2017-03-08 10:46

User since
2011-03-19
3492 Artikel
BenutzerIn

Ein Slice (Array mit Hashreferenzen) wäre eine zweckmäßige Datenstruktur für die Daten einer CSV.Datei:

Code (perl): (dl )

use strict;
use warnings;
use Data::Dumper;

# definiere Feldnamen
my @felder = qw(name vname alter hobbies);

# hier kommts Ergebnis drauf
my @slice  = ();

# datei lesen
while(my $rec = <DATA>){
    chomp $rec;
    my %hunt = ();
    @hunt{@felder} = split ";", $rec; #  hash-slice!

    # hier könnte die Suchbedingung
    # Anwendung finden
    push @slice, \%hunt;
}

print Dumper \@slice;


__DATA__
Müller;Jens;42;Fußball, Tennis, Vögel beobachten
Knusper;Ronny;34;lesen, schlafen, langweilen

Zweckmäßig deswegen weil die Felder übern Index und namentlich direkt addressierbar sind. HTML::Template freut sich übrigens auch über diesen Slice:

Code: (dl )

$VAR1 = [
          {
            'alter' => '42',
            'name' => 'Müller',
            'hobbies' => 'Fußball, Tennis, Vögel beobachten',
            'vname' => 'Jens'
          },
          {
            'alter' => '34',
            'name' => 'Knusper',
            'hobbies' => 'lesen, schlafen, langweilen',
            'vname' => 'Ronny'
          }
        ];

Womit z.B. das Ergebnis dynamisch als HTML erzeugt werden kann.
Last edited: 2017-03-11 17:48:12 +0100 (CET)