Übung für DBD::CSV (Datenbanken und Verzeichnisdienste) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Datenbanken und Verzeichnisdienste

2024-12-23 20:07:04
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]14383[/thread]

submit to reddit

Übung für DBD::CSV

Leser: 24

Articles: hide open all | hide show old branches

+20 replies
Gast Gast

2009-12-15 12:32
Hallo!

Kann ich hier zwischen "my $table = 'Table_simple';" und "$sth->finish;" noch irgendetwas weglassen, ohne dass es dann nicht mehr funktioniert?
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 31 32 33

#!/usr/bin/perl use 5.010; use warnings; use strict; use utf8; use DBI; my $table = 'Table_simple'; my $dbh = DBI->connect( "DBI:CSV:" ); $dbh->do( "CREATE TABLE $table( Nachname CHAR(64), Vorname CHAR(64), Telefon INTEGER ) )" ); my $sth = $dbh->prepare( "INSERT INTO $table( Nachname, Vorname, Telefon ) VALUES(?,?,?)" ); while ( <DATA> ) { chomp; my( $Nachname, $Vorname, $Telefon ) = split /,/; $sth->execute( $Nachname, $Vorname, $Telefon ); } $sth->finish; $dbh->disconnect; __DATA__ Nachname,Vorname,Telefon Kunz,Helga,123456789 Maier,Anton,987654321 Müller,Franz,
Modedit GwenDragon: Titel korrigiert

Last edited: 2009-12-15 19:20:03 +0100 (CET)
- +5 replies
- pq
  
  2009-12-15 12:38
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Guest Gast
  Kann ich hier zwischen "my $table = 'Table_simple';" und "$sth->finish;" noch irgendetwas weglassen, ohne dass es dann nicht mehr funktioniert?
  
  ähm, ich versteh nicht ganz, was du hier wissen willst. warum willst du was weglassen, wenn es danach nicht mehr funktioniiert?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - pq
    
    2009-12-15 12:43
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    ach du willst etwas so weglassen, dass es danach trotzdem noch funktioniert.
    ist das eine hausaufgabe? wozu willst du was weglassen? sieht doch alles ok aus. klar kann man da noch ein zeilchen einsparen, das geht aber zu lasten der lesbarkeit.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - Gast Gast
      
      2009-12-15 18:45
      
      Es ist keine Hausaufgabe - es geht ums kennenlernen. Ich will mit dem Einfachsten anfangen und darauf aufbauen.
  - +2 replies
  - Gast Gast
    
    2009-12-15 12:44
    
    Nein, es soll danach noch funktionieren.
    Es soll so einfach, wie möglich sein.
    - pq
      
      2009-12-15 12:45
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      siehe meine vorherige antwort. ich sehe keinen grund, da noch etwas wegzulassen, geschweige denn eine möglichkeit, es durch weglassen "einfacher" zu machen.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +10 replies
- moritz
  
  2009-12-15 16:31
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  Ich verstehe den Sinn des ganzen nicht. DBD::CSV (ich nehme an das meinst du, DBI::CSV scheint es auf CPAN nicht zu geben) kann doch direkt aus CSV-Dateien lesen.
  
  Wieso willst du dann aus einer CSV-Datei lesen, und das ganze ueber DBD::CSV wieder in eine CSV-Datei schreiben? Da wuerde eigentlich copy&paste reichen....
  Perl 6 - Perls Zukunft
  - +8 replies
  - Gast Gast
    
    2009-12-15 18:43
    
    Das Beispiel ist gestellt - ein Übungsskript.
    Mit dem Modul kann ich z.B mit ORDER BY eine CSV-Datei neu ordnen.
    - +7 replies
    - pktm
      
      2009-12-15 22:41
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Ja, warum nicht. Wie war das noch gleich, TIMTOWTDI? :D
      
      Aber die Fehlerbehandlung für das DBI->connect(...) würde ich schon noch reinnehmen:
      
      Code: (dl )
      
      my $dbh = DBI->connect( "DBI:CSV:" )or die "Cannot connect: $DBI::errstr";
      
      Steht ja auch so in SYNOPSIS von DBD::CSV
      http://www.intergastro-service.de (mein erstes CMS :) )
      - +6 replies
      - Gast Gast
        
        2009-12-16 08:38
        
        Kann ich mit
        
        Code (perl): (dl )
        
        $dbh->{RaiseError} = 1;
        
        die Fehlerbehandlungen weglassen?
        
        +5 replies
        
        GwenDragon
        
        2009-12-16 10:10
        
        User since
        2005-01-17
        14760 Artikel
        Admin1
        
        Wenn RaiseError auf 1 ist, werden die Fehlermeldungen automatisch ausgeworfen.
        Zum Üben reicht das.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        Gast Gast
        
        2009-12-16 13:25
        
        Warum nur zum Üben?
        
        +3 replies
        
        GwenDragon
        
        2009-12-16 14:13
        
        User since
        2005-01-17
        14760 Artikel
        Admin1
        
        Weil für ein Programm, das später mehr kann, in die Produktion geht, eine eigene Behandlung der Fehler sinnvoller sein kann.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        murphy
        
        2009-12-16 14:56
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Man kann allerdings durchaus auch RaiseError einschalten und die spezifische Fehlerbehandlung mit Hilfe von eval-Blöcken implementieren. Im Vergleich zum Überprüfen von Rückgabewerten hat dieser Ansatz auch den Vorteil, dass man die Fehlerbehandlung nicht komplett vergessen kann. Ich sehe also nicht, warum das in Produktionscode unangebracht sein sollte.
        When C++ is your hammer, every problem looks like your thumb.
        
        sid burn
        
        2009-12-16 21:24
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        2009-12-16T13:13:34 GwenDragon
        Weil für ein Programm, das später mehr kann, in die Produktion geht, eine eigene Behandlung der Fehler sinnvoller sein kann.
        
        Gerade wenn es richtung produktiv geht sollte man RaiseError drin lassen. So kann man die Fehlerbehandlung defenitiv nicht vergessen. Und möchte man Fehler bewust irgendwo abfangen sollte man ein eval {} oder besser noch mindest Try::Tiny nutzen und mit try {} catch {}; abfangen.
        
        So werden nur die Fehler abgefangen wo man es auch möchte, und es schleichen sich keine Fehler ein.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - Gast Gast
    
    2009-12-17 14:11
    Ich glaube, jetzt habe ich dich verstanden:
    
    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 31 32 33 34 35
    
    #!/usr/bin/perl use 5.010; use warnings; use strict; use DBI; use utf8; my $table = 'Table_test'; open my $fh, '>:encoding(utf8)', $table or die $!; while ( my $row = <DATA> ) { print $fh $row; } close $fh or die $!; my $dbh = DBI->connect( "DBI:CSV:" ); my $sth = $dbh->prepare( "SELECT * FROM $table ORDER BY nachname" ); $sth->execute(); while ( my $hr = $sth->fetchrow_hashref() ) { say "$hr->{vorname} $hr->{nachname} $hr->{telefon}"; } $dbh->disconnect; __DATA__ nachname,vorname,telefon Kunz,Helga,123456789 Maier,Anton,987654321 Müller,Franz,897987908
    
    Stimmt das so mit dem decode/encode?
    
    Warum ist hier "binmode STDOUT, ':encoding(utf8)';" zuviel des Guten?
- +4 replies
- havi
  
  2009-12-16 11:22
  User since
  2003-08-04
  2036 Artikel
  BenutzerIn
  Guest Gast
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  #!/usr/bin/perl while ( <DATA> ) { chomp; my( $Nachname, $Vorname, $Telefon ) = split /,/; $sth->execute( $Nachname, $Vorname, $Telefon ); }
  
  "besser" als $_ ist hier einen Skalar zu verwenden:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  while (my $line = <DATA>) { chomp $line; my( $Nachname, $Vorname, $Telefon ) = split /,/, $line; $sth->execute( $Nachname, $Vorname, $Telefon ); }
  
  Perl-Zeitung - http://perl-zeitung.at/
  Perl-Blog - http://usr-bin-perl.blogspot.com/
  - Gast Gast
    
    2009-12-16 13:27
    
    Kann mir jemand ein Beispiel mit "bind_param_inout" zeigen?
  - +2 replies
  - Gast Gast
    
    2009-12-21 14:57
    
    Dient das nur der besseren Übersicht oder funktioniert das auch anders?
    - murphy
      
      2009-12-21 15:12
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Der Unterschied ist der, dass $_ im Gegensatz zu einer mit my deklarierten Variablen global gültig ist.
      
      Zum Beispiel kann also der Körper der Subroutine, die durch $sth->execute(...) aufgerufen wird, den Inhalt von $_, der von der while-Schleife gesetzt wird, auslesen oder gar überschreiben, auf eine Variable, die im Schleifenkopf mit my deklariert wurde, kann er aber nicht zugreifen.
      
      Unter Umständen kann man sich durch die Verwendung globaler Variablen Probleme einhandeln, besonders dann, wenn verschiedene Subroutinenaufrufe verschachtelt werden und nicht darauf geachtet wurde, die Variablen korrekt zu lokalisieren.
      
      Im Interesse sauberer und übersichtlicher Programme sind lexikalische Variablen in der Regel vorzuziehen. Ab Perl 5.10 kann man auch mit der Deklaration my $_ die implizite Schleifenvariable zu einer lexikalischen Variablen machen und so die Vorteile von sauber getrennten Geltungsbereichen und verringerter Tipparbeit in den Schleifenköpfen kombinieren :-)
      When C++ is your hammer, every problem looks like your thumb.

View all threads created 2009-12-15 12:32.