Datensätze einer CSV-Datei mit CGI ausgeben (Perl/CGI)

[thread]14389[/thread]

Datensätze einer CSV-Datei mit CGI ausgeben

Leser: 17

Articles: hide open all | hide show old branches

+13 replies
leaves

2009-12-17 11:51
User since
2009-12-17
4 Artikel
BenutzerIn
Hallo zusammen,

ich möchte gerne einen Datensatz aus einer CSV-Datei ausgeben.
Warum bekommt man bei print $cgi->strong('Datensatz:'),
$cgi->$sp1,
$cgi->$sp2,
$cgi->$sp3;
einen Fehler bzw. warum geht die Ausgabe nicht?
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

@csvInhalt = <CSV>; close(CSV); chomp(@csvInhalt); use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = new CGI; my $search = $cgi->param(); print $cgi->header(), $cgi->start_html('SAP Test'), $cgi->h1('SAP-DS ',$cgi->i('comments.pl')); foreach (@csvInhalt) { ($sp1, $sp2, $sp3) = (split(/;/, $_)); if($sp2<$search != $search < $sp3 ){ print $cgi->strong('Datensatz:'), $cgi->$sp1, $cgi->$sp2, $cgi->$sp3; } } print $cgi->end_html();
Modedit GwenDragon: Titel erweitert

Last edited: 2009-12-17 13:01:38 +0100 (CET)
- renee
  
  2009-12-17 11:55
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Weil die Werte in $sp1 bestimmt kein Methodenname ist, der in CGI existiert.
  
  Was soll den ausgegeben werden? Einfach nur die Werte, die in $sp1 etc gespeichert sind? Dann einfach das $cgi-> bei $cgi->$sp1, $cgi->$sp2,... weglassen.
  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/
- renee
  
  2009-12-17 11:57
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  2009-12-17T10:51:21 leaves
  Warum bekommt man bei print $cgi->strong('Datensatz:'),
  $cgi->$sp1,
  $cgi->$sp2,
  $cgi->$sp3;
  einen Fehler bzw. warum geht die Ausgabe nicht?
  
  In Zukunft wäre es auch ganz nützlich zu wissen, *welcher* Fehler erscheint.
  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/
- +10 replies
- GwenDragon
  
  2009-12-17 12:11
  User since
  2005-01-17
  14534 Artikel
  Admin1
  Was willst du eigentlich mit den Zeilen 21–23 ausgeben?
  Die Daten, die durch Zeile 17 extrahiert wurden? Wenn ja, dann sollte es wohl so sein:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  print $cgi->strong('Datensatz:'), $sp1, $sp2, $sp3;
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast wer
    
    2009-12-17 12:25
    
    Warum modsert strict in Zeile 17 nicht?
    Da sollte zuerst ein my stehen.
    - renee
      
      2009-12-17 12:28
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Von dem Skript fehlen wohl ein paar Teile...
      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/
  - +7 replies
  - leaves
    
    2009-12-17 12:26
    
    User since
    2009-12-17
    4 Artikel
    BenutzerIn
    
    Erstmal vielen Dank für die schnelle Hilfe.
    
    Die Ausgabe habe ich jetzt verbessert. Leider kommt die Fehler:
    
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Variable "@csvInhalt" is not imported at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 17.
    Status: 500
    Content-type: text/html
    
    <h1>Software error:</h1>
    <pre>Global symbol "@csvInhalt" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 17.
    syntax error at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 17, near ") {"
    Global symbol "$sp1" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 18.
    Global symbol "$sp2" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 18.
    Global symbol "$sp3" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 18.
    Global symbol "$sp2" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 20.
    Global symbol "$sp3" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 20.
    Global symbol "$sp1" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 22.
    Global symbol "$sp2" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 23.
    Global symbol "$sp3" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 24.
    syntax error at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 26, near "}"
    d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl has too many errors.
    </pre>
    <p>
    For help, please send mail to this site's webmaster, giving this error message
    and the time and date of the error.
    
    </p>
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "@csvInhalt" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 17.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: syntax error at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 17, near ") {"
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "$sp1" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 18.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "$sp2" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 18.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "$sp3" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 18.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "$sp2" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 20.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "$sp3" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 20.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "$sp1" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 22.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "$sp2" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 23.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: Global symbol "$sp3" requires explicit package name at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 24.
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: syntax error at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 26, near "}"
    [Thu Dec 17 12:19:14 2009] ausgabe.pl: d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl has too many errors.
    
    Warum verlangt er den Paketnamen? Eine andere .pl Datei hat keine Probleme die CSV-Datei einzulesen.
    - pq
      
      2009-12-17 12:29
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2009-12-17T11:26:57 leaves
      Warum verlangt er den Paketnamen? Eine andere .pl Datei hat keine Probleme die CSV-Datei einzulesen.
      
      bitte einmal in ruhe use strict durchlesen.
      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
    - +5 replies
    - renee
      
      2009-12-17 12:30
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Du musst das Array beim ersten Vorkommen deklarieren... Das hängt mit use strict zusammen. Lies Dir am besten mal den Artikel durch. Da wird genauer erläutert, was die Fehlermeldung zu sagen hat.
      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
      - leaves
        
        2009-12-17 16:27
        
        User since
        2009-12-17
        4 Artikel
        BenutzerIn
        
        Habe gelesen und umgesetzt.
        
        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 -w use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); my $sp1; my $sp2; my $sp3; my $cgi = new CGI; my $search = $cgi->param(); open(CSV, '<./test.csv') or die $!; my @csvInhalt = <CSV>; close(CSV); chomp(@csvInhalt); print $cgi->header(), $cgi->start_html('CGI-Feedback'), $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('comments.pl')); foreach (@csvInhalt) { (my $sp1,my $sp2,my $sp3) = (split(/;/, $_) ); if($sp2<$search != $search < $sp3 ){ print $cgi->strong('Datensatz:'), $sp1, $sp2, $sp3; } } print $cgi->end_html();
        
        Dennoch kommt der Fehler:
        
        [Thu Dec 17 16:22:54 2009] ausgabe.pl: Use of uninitialized value $search in numeric lt (<) at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 23.
        ´
        Warum kann die Datei nicht eingelesen werden?
        
        Modedit GwenDragon: Code-Tag repariert
        
        Last edited: 2009-12-17 16:31:59 +0100 (CET)
        
        +2 replies
        
        Taulmarill
        
        2009-12-17 16:44
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Für mich sieht das schon so aus, als ob er die Datei hat einlesen können. Die Fehlermeldung besagt ja, dass die Variable $search undefiniert ist, diese sollte eigentlich den Rückgabewert von $cgi->param() beinhalten. Mit welcher URL rufst du das Script denn auf?
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        leaves
        
        2009-12-17 16:51
        
        User since
        2009-12-17
        4 Artikel
        BenutzerIn
        
        OK, der Fehler liegt an dem Aufruf - schäm.
        
        Okay, das probiere ich noch aus...
        Last edited: 2009-12-17 16:55:13 +0100 (CET)
        
        havi
        
        2009-12-19 11:44
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2009-12-17T15:27:20 leaves
        Habe gelesen und umgesetzt.
        
        Du ladest das Modul warnings - somit brauchst kein -w in der ersten Zeile
        Ansonsten kann man manchen anders (besser) schreiben, ich pass es dir mal an...
        
        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
        
        #!/usr/bin/perl use warnings; use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); my ($sp1, $sp2, $sp3); # geht in einer Zeile - my vor die Klammer... my $cgi = new CGI; my $search = $cgi->param(); # Lesematerial: http://reneeb-perlblog.blogspot.com/search/label/open open(my $fhCSV, '<', './test.csv') or die $!; my @csvInhalt = <$fhCSV>; close($fhCSV) or die $!; chomp(@csvInhalt); print $cgi->header(), $cgi->start_html('CGI-Feedback'), $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('comments.pl')); foreach my $d (@csvInhalt) { ($sp1, $sp2, $sp3) = split(/;/, $d); # besser wie ueber $_ if($sp2 < $search != $search < $sp3) { print $cgi->strong('Datensatz:'), $sp1, $sp2,$sp3; } # if } # foreach print $cgi->end_html();
        
        Last edited: 2009-12-19 11:49:10 +0100 (CET)
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/

View all threads created 2009-12-17 11:51.