Slice von Hashreferenz für Text::CSV (Allgemeines zu Perl)

[thread]14363[/thread]

Slice von Hashreferenz für Text::CSV

Leser: 18

Articles: hide open all | hide show old branches

+6 replies
Gast Gast

2009-12-11 09:18
Hallo!

Das funktioniert einigermaßen:
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

#!/usr/bin/perl use 5.010; use warnings; use strict; use Text::CSV; my $file_in = 'addressbook.csv'; my $file_out = 'Test'; my $csv = Text::CSV->new( { binary => 1 } ) or die "Cannot use CSV: ".Text::CSV->error_diag(); open my $fh_in, '<:encoding(utf8)', $file_in or die $!; open my $fh_out, '>:encoding(utf8)', $file_out or die $!; my @felder = ( 'Nachname', 'Vorname', 'Mobiltelefon', 'Telefon (privat)', 'E-Mail-Adresse', 'Homepage', 'Jahrestag' ); $csv->print( $fh_out, \@felder ); say $fh_out ''; $csv->column_names( $csv->getline( $fh_in ) ); while ( my $hr = $csv->getline_hr( $fh_in ) ) { my @row = @{$hr}{@felder}; $csv->print( $fh_out, \@row ); say $fh_out ''; }
Wenn ich es so schreibe, geht es nicht mehr:
(Usage: Text::CSV_XS::print(self, io, fields) at ./text_CSV_adressbuck.pl line .., <$fh_in> line 2.)
Code (perl): (dl )

1 2 3 4

while ( my $hr = $csv->getline_hr( $fh_in ) ) { $csv->print( $fh_out, \@{$hr}{@felder} ); say $fh_out ''; }
Woran liegt das?
- renee
  
  2009-12-11 09:25
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Du kannst es so schreiben:
  
  Code (perl): (dl )
  
  $csv->print( $fh_out, [ @{$hr}{@felder} ] );
  
  Warum es nicht funktioniert: Ein Hashslice liefert eine Liste, kein Array. Durch den Backslash vornedran wird jedes Element der Liste referenziert.
  
  Data::Dumper ist für solche Tests sehr gut geeignet...
  
  Code: (dl )
  
  1 2 3
  
  ~$ perl -MData::Dumper -e 'my %hash = (1,2,3,4,5,6,7,8); print Dumper \@hash{1,7}' $VAR1 = \2; $VAR2 = \8;
  
  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/
- +4 replies
- betterworld
  
  2009-12-11 09:26
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  Es gibt keine Referenzen auf Slices.
  
  Wenn Du vor einen Array-Slice einen Backslash schreibst, wird es wie ein Backslash vor einer Liste behandelt, es ergibt eine Liste mit Referenzen.
  
  Wenn Du aus einem Array-Slice eine Referenz machen willst, musst Du ein anonymes Array erzeugen:
  
  Code (perl): (dl )
  
  [@hash{@fields}]
  
  Ferner ist es immer hilfreich, auch Beispiel-Inputdaten zu posten, wenn Du ein Programm postest, welches eine CSV-Datei o.ä. verarbeitet. Da es hier aber eigentlich nur um ein Array-Slice geht und nicht um die CSV, hättest Du die Beispieldaten auch einfach direkt in den Code schreiben können, statt sie einzulesen. So kann man das Programm sofort ausführen, um Dein Problem zu erkennen.
  
  edit: "Array-Slices" korrigiert, es ging ja hier um Hash-Slices
  Last edited: 2009-12-11 09:44:34 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +3 replies
  - Gast Gast
    
    2009-12-11 10:15
    Die erste Zeile von "addressbook.csv" sieht so aus:
    
    Code: (dl )
    
    "Formatierter Name","Nachname","Vorname","Zusätzliche Namen","Titel-Abk. (vor Name)","Titel-Abk. (nach Name)","Spitzname","Geburtstag","Straße (privat)","Staat/Bundesland (privat)","Staat/Bundesland (privat)","Postleitzahl (privat)","Land (privat)","Aufkleber (Privatadresse)","Straße (geschäftlich)","Stadt (geschäftlich)","Staat/Bundesland (geschäftlich)","Postleitzahl (geschäftlich)","Land (geschäftlich)","Aufkleber (Geschäftsadresse)","Telefon (privat)","Telefon (geschäftlich)","Mobiltelefon","Fax privat","Fax (geschäftlich)","Autotelefon","ISDN","Pager","E-Mail-Adresse","Mail-Programm","Titel","Rolle","Organisation/Firma","Abteilung","Notiz","Homepage","Beruf","Name des Assistenten","Name des Managers","Name des Partners","Büro","IM-Adresse","Jahrestag","Blog"
    
    Alle weiteren enthalten die entsprechenden Werte oder undef z.b:
    
    Code: (dl )
    
    "Alex Kämmer","Kämmer","Alex","","","","","","","","","","","","","","","","","","","","+431234567890","","","","","","a.kaemmer@gmail.com","","","","","","","","","","","","","","",""
    
    Nun werden sich viele gefragt habe, wieso ich "funktioniert einigermaßen" geschrieben habe. Nun, das liegt daran, dass mit der Kodierung noch nicht alles passt.
    Wenn ich die Datei "addressbook.csv" mit meinem Editor ( Kwrite, Kodierung eingestellt auf Unicode(UTF-8) ) öffne, ist alles in Ordnung, ein 'ä' wird z.B. als 'ä' angezeigt.
    Wenn ich die Outputdatei meines Skriptes anschaue, dann steht dort statt einem 'ä' ein 'Ã¤' (großes A mit Tilde oben drauf und ein Kreis mit vier Fortsätzen ).
    Habe ich mit '<:encoding(utf8)' und '>:encoding(utf8)' nicht bereits alles Nötige getan?
    
    Modedit GwenDragon: zweiter Beitrag gelöscht; einmal Posten reicht
    Modedit betterworld: Quote-Tags durch Code-Tags ersetzt; damit vermeidet man auch, dass der ganze Thread horizontale Scrollbalken kriegt
    Last edited: 2009-12-11 19:52:39 +0100 (CET)
    - +2 replies
    - GwenDragon
      
      2009-12-11 10:38
      
      User since
      2005-01-17
      14544 Artikel
      Admin1
      
      Guest Gast
      Wenn ich die Datei "addressbook.csv" mit meinem Editor ( Kwrite, Kodierung eingestellt auf Unicode(UTF-8) ) öffne, ist alles in Ordnung, ein 'ä' wird z.B. als 'ä' angezeigt.
      Wenn ich die Outputdatei meines Skriptes anschaue, dann steht dort statt einem 'ä' ein 'Ã¤' (großes A mit Tilde oben drauf und ein Kreis mit vier Fortsätzen ).
      Habe ich mit '<:encoding(utf8)' und '>:encoding(utf8)' nicht bereits alles Nötige getan?
      Hmm, deine CSV-Datei ist UTF-8 mit oder ohne BOM? Und hat die Ausgabedatei einen BOM?
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Gast Gast
        
        2009-12-11 13:52
        
        Ich glaube beide ohne.
        Wenn ich statt '>:encoding(utf8)' nur '>' schreibe, funktioniert es.
        Mach das Modul für mich bereits das "encoding"?

View all threads created 2009-12-11 09:18.