.csv Zeilenweise in (Hash?)Array einlesen & auf einzelne Werte zugreifen (gelöst) (Allgemeines zu Perl)

[thread]17592[/thread]

.csv Zeilenweise in (Hash?)Array einlesen & auf einzelne Werte zugreifen [gelöst]

Tags: perl5 hash CSV Array Ähnliche Threads

Leser: 32

Articles: hide open all | hide show old branches

+8 replies
norvel

2012-07-26 14:26
User since
2012-07-26
20 Artikel
BenutzerIn
Hallo allerseits,

ich habe schon im Internet gesucht, allerdings noch keine richtige Lösung für meine Problemstellung finden bzw herleiten können.

File-Aufbau:
Das .csv File hat in der ersten Zeile Überschriften, alle Weiteren Zeilen sind mit Daten Gefüllt (angenommen: 1000 Zeilen, 23Einträge pro Zeile).

Bsp:
CUSTOMER_ID,CUSTOMER_NAME,COUNTRY_NAME,AREA_NAME...COUNT_DATE(YYYYMMDD)
1111, Kunde1, Germany, NRW...20120725
1111, Kunde1, Germany, NRW...20120726
1112, Kunde2, Germany, BW...20120726
...
...

Ziel:
Ich möchte nun ein Array erstellen, in dem jede Zeile und jeder einzelne (durch ein Komma getrennte) Eintrag in der Zeile über einen Index ansprechbar ist.
($input[0][0], $input[0][1], $input[0][1]...
$input[1][0], $input[1][1], $input[1][1]...
usw)

Möglich wäre wahrscheinlich auch ein Hash Array, bei dem die CUSTOMER_ID als Hash für spätere Vergleiche gespeichert wird, wie ich dann die restlichen Werte der Zeile in ein anonymes Array "packen" könnte ist mir jedoch auch nicht klar..

Bisherige Versuche:
Bis jetzt sind Versuche über über einen Split in der While Schleife gescheitert. Hier nur mal der Anfang, da der Rest inzwischen zu Chaotisch ist.
Code: (dl )

1 2 3 4 5 6 7 8 9

$input_file_name = "test_file.csv"; open (FILE,$input_file_name) or die "Can not open file $input_file_name!"; while ($line_query_input=<FILE>) { @query_input=split("\,",$line_query_input)) # Splits line into array # #chomp($line_query_input); # Removes \n at every word ... }
Nach dem Split wollte ich dann die einzelnen Werte des @query_input Arrays über weitere while-Schleifen einem anderen Array zuweisen, in dem sie dann gespeichert werden.

(Die Entwicklungsumgebung ist Padre (Strawberry Perl))

Vielen Dank im Vorraus für Eure Bemühungen!
Last edited: 2012-07-26 14:28:58 +0200 (CEST)
- +5 replies
- topeg
  
  2012-07-26 14:37
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  benutze doch Text::CSV. Das übernimmt die meiste Arbeit für dich, und kann das besser als jeder Anfänger.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  
  #!/usr/bin/perl use strict; use warnings; use Text::CSV; # Ausgabe von Datenstrukturen use Data::Dumper; $input_file_name = "test_file.csv"; my $csv = Text::CSV->new ( { sep_char => ',', eol => $\ } ) open(my $fh,'<',$input_file_name) or die "Can not open file $input_file_name ($!)\n"; my @data; while ( my $row = $csv->getline( $fh ) ) { push(@data,$row); } print Dumper(\@data);
  - +4 replies
  - norvel
    
    2012-07-27 08:34
    
    User since
    2012-07-26
    20 Artikel
    BenutzerIn
    
    Hey, vielen Dank für schnelle die Antwort! :))
    Da meine Lösung auch auf anderen PC's laufen soll (an denen teils komplett unerfahrene User sitzen) wollte ich CPAN vermeiden...das Einbinden der Lösung wäre dann vielleicht doch ein wenig zu aufwendig.
    Für's nächste mal denke ich dran darauf hinzuweisen!
    - +3 replies
    - Linuxer
      
      2012-07-27 09:40
      
      User since
      2006-01-27
      3875 Artikel
      HausmeisterIn
      
      Hi,
      
      dann nimm halt Text::CSV_PP.
      Ein reines Perl-Modul kannst Du ohne großen Aufwand kopieren, einbinden und verwenden.
      
      Siehe dazu auch: ModuleWieInstalliereIchEinModul
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +2 replies
      - norvel
        
        2012-07-27 18:25
        
        User since
        2012-07-26
        20 Artikel
        BenutzerIn
        
        Dankeschön :)
        Sind die fertigen Lösungen sehr viel performanter als selbst geschriebene?
        
        Gast wer
        
        2012-07-27 19:01
        
        Sie sind Fehlerfreier und kommen auch mit komplizierten Formatierungen zurecht. Gerade CVS ist nicht so einfach wie es scheint.
        
        Und ja, nicht selten sind sie schneller.
        Last edited: 2012-07-27 19:35:59 +0200 (CEST)
- +2 replies
- FIFO
  
  2012-07-26 16:38
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Hi, topeg hat Dir ja die effizienteste Variante gezeigt, und auch, wie man Dateihandles besser einsetzt, strict/warnings verwendet, usw.
  
  Zur Vervollständigung hier noch, wie es prinzipiell zu Fuß ginge:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  my @data_array; my %data_hash while (my $line = <$fh>) { chomp($line); # Variante 1: Anonyme Arrays my @values = split(/\s*,\s*/, $line); push @data_array, [@values]; # Variante 2: Hash mit Spalte 0 als key my ($key, @hvalues) = split(/\s*,\s*/, $line); $data_hash{$key} = [@hvalues]; }
  
  Zugriff auf Elemente:
  Variante 1: $elem = $data_array[$row][$col]
  Variante 2: $elem = $data_hash{$key}->[$col]
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - norvel
    
    2012-07-27 08:39
    
    User since
    2012-07-26
    20 Artikel
    BenutzerIn
    
    Hey topeg,
    auch an dich VIELEN Dank für die Lösung - genau das habe ich gesucht!
    Die Variante ist viel übersichtlicher und einfacher als all meine Lösungsansätze :)

View all threads created 2012-07-26 14:26.