Allgemeines Problem mit CGI oder DBD-CSV (Fragen zu Perl-Modulen)

[thread]19333[/thread]

Allgemeines Problem mit CGI oder DBD-CSV

Tags: perl5 Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+7 replies
ChKrausse

2014-10-14 22:54
User since
2012-05-23
7 articles
BenutzerIn
Hallo ich habe bei mir die CPAN Module CGI (4.07) und DBD-CSV (0.44) aktualisiert. Nun habe ich ein Problem, das meine CGI-Script nicht mehr funktionieren. Der Code ist nur ein Beispielcode und ich dachte da kann nicht viel falsch sein.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use strict; use CGI; use DBI; my $DBDIR='..\CSV-DB'; my $DBOmni = 'foo'; my $dbh = DBI->connect ("dbi:CSV:", undef, undef, { f_dir => $DBDIR, f_ext => ".csv/r", f_encoding => "utf8", csv_sep_char => ";", RaiseError => 1, }) or die "Cannot connect: $DBI::errstr"; my $sth = $dbh->prepare ("select * from $DBOmni"); $sth->execute(); my (@row); while ( @row = $sth->fetchrow_array ) { print "$row[2] :: $row[0] :: $row[1] :: $row[3]\n"; } $dbh->disconnect;
Da kommt " No such file or directory at C:/Perl/site/lib/DBI/DBD/SqlEngine.pm line 1503."

Wenn ich allerdings
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use strict; use DBI; use CGI; my $DBDIR='..\CSV-DB'; my $DBOmni = 'foo'; my $dbh = DBI->connect ("dbi:CSV:", undef, undef, { f_dir => $DBDIR, f_ext => ".csv/r", f_encoding => "utf8", csv_sep_char => ";", RaiseError => 1, }) or die "Cannot connect: $DBI::errstr"; my $sth = $dbh->prepare ("select * from $DBOmni"); $sth->execute(); my (@row); while ( @row = $sth->fetchrow_array ) { print "$row[2] :: $row[0] :: $row[1] :: $row[3]\n"; } $dbh->disconnect;
Also erst "use DBI;" und danach "use CGI;" benutze funktioniert mein Script. Irgendjemand einen Tipp, was das soll? Hatte mir noch nie Gedanken über die Reihenfolge von zu ladenden Modulen gemacht.
- GwenDragon
  
  2014-10-15 11:23
  
  User since
  2005-01-17
  14850 articles
  Admin1
  
  Kann sein, dass die relativen Pfade das Problem sind.
  Und warum verwendest du in den Pfaden den Backslash? Das ist unnötig.
  
  //EDIT:
  ~~Und warum ist f_ext nicht .csv?~~
  Hat sich erledigt. Das ist ein Flag von DBD::File wie https://metacpan.org/pod/DBD::File#f_ext zeigt.
  Last edited: 2014-10-15 14:13:16 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- GwenDragon
  
  2014-10-15 13:47
  User since
  2005-01-17
  14850 articles
  Admin1
  Ob du CGI zurst lädst oder nicht ist egal. habe ich getestet bei deinem Programm.
  
  Dein CGI-Skript hat ganz woanders Probleme. Kannst du nicht mal ins Serverlog schauen? Wenn es ein lokaler Test-Server ist, kanns du auch folgendes machen:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  use CGI; #### Nachher nachfolgende Zeile wieder entfernen, da sonst bei Fehlern der Server zu viel vom Programm verrät use CGI::Carp qw(fatalsToBrowser); ###### !!!!!! ACHTUNG: Nur zum Test auf Entwicklungsserver aktivieren !!!!! ####
  
  Siehe zu CGI::Carp CGITutorialKapitel3 und http://perldoc.perl.org/CGI/Carp.html#MAKING-PERL-...
  
  Aber folgendes Testcase geht bei mir.
  Schau ins Zip, entpacke es und starte auf der Konsole mal test.pl. Das gibt was aus.
  Attachments
  
  application/zip
  test.zip
  
  Last edited: 2014-10-15 14:26:12 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - ChKrausse
    
    2014-10-15 22:59
    
    User since
    2012-05-23
    7 articles
    BenutzerIn
    
    Hallo GwenDragon,
    
    erstmal vielen Dank für deine Mühe :)
    
    Zunächst habe ich das Problem auf einem Windows System, darum auch der Backslash. Mein Beispiel war auch nur die eingedampfte Minimalversion um das Problem zu zeigen. Der 2. Codeschnipsel funktioniert auch problemlos auf dem Windowssystem. Das Problem trat auch erst auf nachdem ich CGI via CPAN (frag bitte nicht warum) aktualisierte (von 3.7? auf 4.07).
    
    So nun bin ich gerade zu Hause (war bis eben mit anderem beschäftigt) an einem Ubuntu. Hier ist es (noch) egal ob ich zuerst das CGI lade oder erst DBD-CSV. Ich schau morgen mal auf meinem Windows Systemen. Dein Test Case ist jetzt aber nicht wirklich anders als mein Beispiel oder?
    - GwenDragon
      
      2014-10-16 08:24
      
      User since
      2005-01-17
      14850 articles
      Admin1
      
      Das Zip ein Zest-Beispiel, um zu zeigen dass DBD::CSV auf der Konsole läuft.
      
      Ich weiß nicht welches Perl (Version, xxBit) und welches Windows genau du benutzt.
      
      Dass dein CGI-Skript CGI.pm anders läuft, weil ich nicht. Du solltest in dein Serverlog schauen, wenn's nicht geht, woran es liegt.
      Oder du zeigst mal dein Programm (Logins anonymisieren!) hier.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- guest wer
  
  2014-10-16 10:34
  
  unter windows macht perl die \ => / konvertierung selber. Du brauchst nicht auf besondere pfadtrenner zu achten.
  mich iritiert das ".csv/r" das sucht nach genau dieser endung, also ".csv<slash>r". ich halte es für wahrscheinlich das das nicht gefunden wird. je nach dem wie das modul intern arbeitet wird das / als pfadtrenner erkannt.
  Last edited: 2014-10-16 10:46:06 +0200 (CEST)
  - GwenDragon
    
    2014-10-16 11:08
    
    User since
    2005-01-17
    14850 articles
    Admin1
    
    Nein, es sucht nach Dateinen mit genau der Dateiendung .csv
    Siehe Doku zu DBD::File.
    
    Quote
    f_ext
    
    This attribute is used for setting the file extension. The format is:
    
    extension{/flag}
    
    where the /flag is optional and the extension is case-insensitive. f_ext allows you to specify an extension which:
    
    f_ext => ".csv/r",
    
    makes DBD::File prefer table.extension over table.
    
    makes the table name the filename minus the extension.
    
    DBI:CSV:f_dir=data;f_ext=.csv
    
    In the above example and when f_dir contains both table.csv and table, DBD::File will open table.csv and the table will be named "table". If table.csv does not exist but table does that file is opened and the table is also called "table".
    
    If f_ext is not specified and table.csv exists it will be opened and the table will be called "table.csv" which is probably not what you want.
    
    NOTE: even though extensions are case-insensitive, table names are not.
    
    DBI:CSV:f_dir=data;f_ext=.csv/r
    
    The r flag means the file extension is required and any filename that does not match the extension is ignored.
    
    Usually you set it on the dbh but it may be overridden per table (see f_meta).
    
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2014-10-14 22:54.