CSV-Import mit Text::CSV (gelöst) (Allgemeines zu Perl)

[thread]19777[/thread]

CSV-Import mit Text::CSV [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+17 replies
jan99

2015-08-31 13:13
User since
2008-09-18
439 Artikel
BenutzerIn
Moin !

ich möchte CSV-Daten (Trennung ;) mit Text::CSV importieren.

Meine Daten sehen wie folgt aus:
Code: (dl )

1 2 3 4

UID;type;No;ACAD;PRÜFEN;EXTERN;MIGRATION;DM;LISP;VBA;UTM;Bemerkungen;Björn prfen;Stellberg;EBL_ERFASSUNG;PRIO;Name;Command;SmallImage;LargeImage;BJ_TBLOGOUT ID_02;Any;;;;;x;;;x;;;;;;;Zoom auf Straße und Hausnummer;"^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND STR_HSNR EBL_KANAL";ICBJ0162;ICBJ0162; ID_03;Any;;;;;x;;;x;;;;;;;Zoom auf Gemarkung/Flur/Flurstück;"^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND GEM_F_FL ALK";ICBJ0161;ICBJ0161; ID_04;Any;;;;;x;x;;x;;;;;;;Bildaufbau - Sielkataster/ALK;"^C^C(C:BJ_TBLOGOUT);-vbarun BJ__TBWSC_1 80 ""NULL"" ""EBL_KANAL"" ""LAYER_ALK_AW""";ICBJ0331;ICBJ0331;
und der Code ist:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

#!/usr/bin/perl use strict; use warnings; use Text::CSV; my $file='MenuGroup_bereinigt.csv'; my $s_delimiter = ";"; open(my $fh, '<', $file) or die("ERROR open $file ($!)\n"); my $csv = Text::CSV->new({sep_char => "$s_delimiter"}); #my $csv = Text::CSV->new (); # first line my $key_names=$csv->getline( $fh ); # Array of hashes my @data; # read File while( my $row = $csv->getline( $fh ) ) { my $value={}; $value->{$key_names->[$_]}=$row->[$_] for(0..$#$key_names); push(@data,$value); } # Formated Output use Data::Dumper; print Dumper(\@data);
(stammt aus einem Beispiel und wurde nur um das Trennzeichen erweitert.

Wenn ich das ausführe kommt nur folgendes im CMD-Fenster raus:

Quote
C:\Perl-Tools\mnu_auslesen>perl csv2perl.pl
$VAR1 = [];

C:\Perl-Tools\mnu_auslesen>pause
Drücken Sie eine beliebige Taste . . .

Kann mir einer weiterhelfen?

Gruß Jan
Last edited: 2015-08-31 14:12:48 +0200 (CEST)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +16 replies
- GwenDragon
  
  2015-08-31 14:36
  
  User since
  2005-01-17
  14746 Artikel
  Admin1
  
  Ändere bei den Parametern für Text::CSV->new zu folgendem {binary => 1, sep_char => $s_delimiter} dann sollte es gehen.
  Last edited: 2015-08-31 14:38:32 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +15 replies
  - jan99
    
    2015-08-31 14:45
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    1+ und danke vielmals !!
    
    Quote
    binary ... darunter hatte ich mir etwas anderes vorgestellt !
    
    Jan
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +14 replies
    - jan99
      
      2015-08-31 15:21
      
      User since
      2008-09-18
      439 Artikel
      BenutzerIn
      
      Hi !
      
      muss nochmal etwas fragen - mit dem Brett vor dem Kopf...
      
      Die Daten werden mit
      
      Quote
      $VAR1 = \{
      'UTM' => '',
      'VBA' => '',
      "Bj\x{f6}rn pr\x{81}fen" => '',
      'BJ_TBLOGOUT' => '',
      'PRIO' => '',
      'EXTERN' => '',
      'DM' => '',
      'Stellberg' => '',
      'SmallImage' => 'RCDATA_16_ZOOPRE',
      'No' => '',
      'Command' => '^C^C(BJ-LISPTEST "C:BJ-LAYOUT_A
      BJ-LAYOUT_IN" "Y" @())',
      'UID' => 'MM_2316',
      => 'x',
      'MIGRA'LISP' TION' => '',
      'type' => 'Any',
      'Name' => 'Zoom im Modelbereich (EW)',
      'EBL_ERFASSUNG' => '',
      'ACAD' => '',
      'Bemerkungen' => '',
      "PR\x{dc}FEN" => '',
      'LargeImage' => 'RCDATA_16_ZOOPRE'
      };
      
      aufgelistet und ich bin fest der Meinung, dass mit
      
      Code (perl): (dl )
      
      1 2 3
      
      foreach $_ (@data){ print $_{"LISP"}."\n"; }
      
      Auf einzelne Werte zugegriffen werden müßte. Aber es kommt folgende Meldung:
      
      Quote
      Use of uninitialized value $_{"LISP"} in concatenation (.) or string at csv2perl
      .pl line 30, <$fh> line 574.[/code]
      
      Irgendwo ist etwas von meinem Wissen über den Sommer verloren gegangen!
      
      Kann mir einer nochmal auf die Sprünge helfen?
      
      Gruß Jan
      perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
      - +7 replies
      - GwenDragon
        
        2015-08-31 15:29
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Das sieht danach aus als seien irgendwelche Steuerzeichen in den Schlüsseln!
        
        Was zeigt denn folgendes an:
        
        Code (perl): (dl )
        
        1 2
        
        $Data::Dumper::Useqq(1); print Dumper(\@data);
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +6 replies
        
        jan99
        
        2015-08-31 15:35
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Quote
        C:\Perl-Tools\mnu_auslesen>perl csv2perl.pl
        syntax error at csv2perl.pl line 29, near "$Data::Dumper::Useqq("
        Execution of csv2perl.pl aborted due to compilation errors.
        
        Zur "Sicherheit" nochmal die letzten Zeilen...
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        # read File while( my $row = $csv->getline( $fh ) ) { my $value={}; $value->{$key_names->[$_]}=$row->[$_] for(0..$#$key_names); push(@data,$value); } $Data::Dumper::Useqq(1); print Dumper(\@data);
        
        gruß Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +5 replies
        
        GwenDragon
        
        2015-08-31 15:43
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        das use Data::Dumper; hast du irgenwie vergessen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        jan99
        
        2015-08-31 15:57
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        ist vorhanden ! Hier einmal komplett:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
        
        #!/usr/bin/perl use strict; use warnings; use Text::CSV; use Data::Dumper; my $file='MenuGroup_bereinigt.csv'; my $s_delimiter = ";"; open(my $fh, '<', $file) or die("ERROR open $file ($!)\n"); my $csv = Text::CSV->new({binary => 1, sep_char => $s_delimiter}); #my $csv = Text::CSV->new (); # first line my $key_names=$csv->getline( $fh ); # Array of hashes my @data; # read File while( my $row = $csv->getline( $fh ) ) { my $value={}; $value->{$key_names->[$_]}=$row->[$_] for(0..$#$key_names); push(@data,$value); } $Data::Dumper::Useqq(1); print Dumper(\@data);
        
        Gruß Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +3 replies
        
        GwenDragon
        
        2015-08-31 16:08
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Mein Fehler, in der Hitze was verwechselt.
        
        Code (perl): (dl )
        
        $Data::Dumper::Useqq = 1;
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        jan99
        
        2015-08-31 16:14
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        also wenn ich den Dumper laufen lasse, dann wird aufgelistet...
        
        Aber mit
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach $_ (@data){ print $_{"LISP"}."\n"; }
        
        kommt immer noch...
        
        Quote
        C:\Perl-Tools\mnu_auslesen>perl csv2perl.pl
        $VAR1 = [
        {
        "LISP" => "",
        "Name" => "Zoom auf Stra\x{df}e und Hausnummer",
        "DM" => "",
        "PR\x{dc}FEN" => "",
        "EXTERN" => "",
        "type" => "Any",
        "Stellberg" => "",
        "UTM" => "",
        "Bj\x{f6}rn pr\x{81}fen" => "",
        "UID" => "ID_02",
        "LargeImage" => "ICBJ0162",
        "ACAD" => "",
        "SmallImage" => "ICBJ0162",
        "Bemerkungen" => "",
        "BJ_TBLOGOUT" => "",
        "Command" => "^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND STR_HSNR EBL_K
        ANAL",
        "PRIO" => "",
        "No" => "",
        "EBL_ERFASSUNG" => "",
        "MIGRATION" => "x",
        "VBA" => "x"
        },
        {
        "LargeImage" => "ICBJ0161",
        "ACAD" => "",
        "UID" => "ID_03",
        "SmallImage" => "ICBJ0161",
        "UTM" => "",
        "Bj\x{f6}rn pr\x{81}fen" => "",
        "PRIO" => "",
        "Command" => "^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND GEM_F_FL ALK",
        
        "No" => "",
        "Bemerkungen" => "",
        "BJ_TBLOGOUT" => "",
        "MIGRATION" => "x",
        "EBL_ERFASSUNG" => "",
        "VBA" => "x",
        "LISP" => "",
        "PR\x{dc}FEN" => "",
        "DM" => "",
        "Name" => "Zoom auf Gemarkung/Flur/Flurst\x{fc}ck",
        "EXTERN" => "",
        "type" => "Any",
        "Stellberg" => ""
        },
        {
        "Command" => "^C^C(C:BJ_TBLOGOUT);-vbarun BJ__TBWSC_1 80 \"NULL\" \"
        EBL_KANAL\" \"LAYER_ALK_AW\"",
        "No" => "",
        "PRIO" => "",
        "BJ_TBLOGOUT" => "",
        "Bemerkungen" => "",
        "SmallImage" => "ICBJ0331",
        "ACAD" => "",
        "LargeImage" => "ICBJ0331",
        "UID" => "ID_04",
        "Bj\x{f6}rn pr\x{81}fen" => "",
        "UTM" => "",
        "VBA" => "x",
        "MIGRATION" => "x",
        "EBL_ERFASSUNG" => "",
        "PR\x{dc}FEN" => "",
        "DM" => "x",
        "Name" => "Bildaufbau - Sielkataster/ALK",
        "LISP" => "",
        "Stellberg" => "",
        "type" => "Any",
        "EXTERN" => ""
        }
        ];
        Use of uninitialized value $_{"LISP"} in concatenation (.) or string at csv2perl
        .pl line 33, <$fh> line 4.
        
        Gruß Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        Raubtier
        
        2015-08-31 16:49
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        2015-08-31T14:14:12 jan99
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach $_ (@data){ print $_{"LISP"}."\n"; }
        
        Argh! Warum gibst du $_ extra an in der foreach-Zeile?!
        
        Versuchs mal mit:
        
        Code (perl): (dl )
        
        say $_->{'LISP'} for @data;
        
        Edit: Das ist dasselbe Problem wie im anderen Thread: Das Array @data enthält keine Hashes, sondern Hash-Referenzen. Daher musst du mit -> dereferenzieren.
        Last edited: 2015-08-31 16:52:25 +0200 (CEST)
      - +6 replies
      - Linuxer
        
        2015-08-31 16:59
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        2015-08-31T13:21:13 jan99
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach $_ (@data){ print $_{"LISP"}."\n"; }
        
        Was willst Du denn da tun?
        Erstmal ist es seltsam, warum Du $_ explizit angibst, das ist die Standard-Laufvariable. Da Du sie nicht lokalisierst, ist das benennen überflüssig. Ich würde eine eigene benannten Laufvariable nutzen.
        
        Was steckt denn in @data?
        Du iterierst über einen Array (@data) und verwendest dann die Laufvariable $_ wie einen Hash. Warum?
        Maximal sollten es Hash-Referenzen sein, die in @data liegen und die musst Du dereferenzieren; siehe Raubtiers Antwort dazu.
        
        Innerhalb der Schleife rufst Du aber den Wert ab, der im Hash %_ unter dem Schlüssel "LISP" abgelegt sein soll. Der ist wohl nicht definiert... Das hat nichts mit Deiner Laufvariable $_ zu tun!
        
        Du solltest Dich wohl nochmal dringend mit Perls Referenzen, Datentypen und -strukturen auseinandersetzen:
        
        Lesenswert:
        perldata
        perlreftut
        perlref
        perldsc
        perllol
        Last edited: 2015-08-31 17:01:14 +0200 (CEST)
        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!
        
        +5 replies
        
        jan99
        
        2015-08-31 20:03
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Moin!
        
        Danke erst einmal.
        
        Im Grunde möchte ich nur auf die Daten der einzelnen Daten der Zeilen zugreifen.
        
        Beschreibung - hast vollkommen Recht, aber kaum einigermaßen verstanden ruht es wieder für Wochen und Monaten - schon wieder vergessen und so intensiv ist GROSCHEN nich nicht gefallen, dass es dauerhaft im Gedächtnis bleibt!
        
        Deshalb immer wieder diese nachfragen.
        
        Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +4 replies
        
        jan99
        
        2015-09-01 09:56
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Moin !
        
        mein Source für dieses Posting basiert auf CSV Datei als Hash aufbauen und jetzt habe ich mir dieses nochmal frisch angelegt und es läuft.
        
        Wenn ich data abfrage mit
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach (@data){ print $_."\n"; }
        
        ... dann werden mir die hashes erwartungsgemäß gelistet...
        
        Quote
        HASH(0x1c340ec)
        HASH(0x1c35964)
        
        aber irgendwie muss es doch auch dort möglich sein auf Name im ersten Datensatz zuzugreifen, aber auch
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach (@data){ print $_{Name}."\n"; }
        
        liefert nur
        
        Quote
        Use of uninitialized value $_{'Name'} in concatenation (.) or string at csv.pl l
        ine 31, <$fh> line 3.
        
        zurück.
        
        Ich weiß das mancher an mir zweifeln mag, aber irgendwie bekomme ich das Brett vor dem Kopf nicht weg!
        
        Gruß Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        Linuxer
        
        2015-09-01 10:21
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Zum wiederholten Male: ;-)
        
        Du hast da Referenzen, die musst Du auflösen, sprich dereferenzieren. Dafür ist der Pfeil-Operator -> gedacht.
        
        Raubtier hat Dir doch schon aufgezeigt, wie Du es dereferenzieren musst.
        
        Kann doch nicht so schwer sein ;-)
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        my $hashref = { 'Name' => 'Hase', 'Wissen' => 'nix', }; print $hashref->{Name}, "\n";
        
        Last edited: 2015-09-01 10:24:37 +0200 (CEST)
        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
        
        GwenDragon
        
        2015-09-01 10:22
        
        User since
        2005-01-17
        14746 Artikel
        Admin1
        
        Das was dir als Hash angezeigt wird, ist die Referenz.
        Du musst dereferenzieren.
        Das wird wohl so gehen:
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach (@data){ print $_->{Name}."\n"; }
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        jan99
        
        2015-09-01 11:30
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        "->" das ist mein Problem gewesen - daran habe ich gar nicht mehr gedacht !!!
        
        Asche auf mein Haupt!
        
        Gruß Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2015-08-31 13:13.