$* deprecated ?: perl gb probleme (Perl/CGI)

[thread]654[/thread]

$* deprecated ?: perl gb probleme

Gast Gast

2006-01-18 16:32

Hallo!

Vielleicht kann mir ja jemand bei meinem Problem helfen...
Seit ein paar Tagen versuche ich folgendes Script zum Laufen zu bekommen, leider ohne Erfolg. Im Moment bekomme ich mit perl -w show_gb.cgi folgende Zeilen...

Code: (dl )

[Wed Jan 18 15:25:07 2006] show_gb.cgi: Use of $* is deprecated at ../cgi-bin/cg
i-lib.pl line 99.
[Wed Jan 18 15:25:07 2006] show_gb.cgi: Use of uninitialized value at ../cgi-bin
/cgi-lib.pl line 57.
[Wed Jan 18 15:25:07 2006] show_gb.cgi: Use of uninitialized value at ../cgi-bin
/cgi-lib.pl line 59.
[Wed Jan 18 15:25:07 2006] show_gb.cgi: Use of uninitialized value at ../cgi-bin
/cgi-lib.pl line 63.
[Wed Jan 18 15:25:07 2006] show_gb.cgi: Use of uninitialized value at show_gb.cg
i line 19.
Content-type: text/html

<H1>Software error:</H1>
<CODE>Can't Open File: No such file or directory
</CODE>
<P>
For help, please send mail to this site's webmaster, giving this error message
and the time and date of the error.;
[Wed Jan 18 15:25:07 2006] show_gb.cgi: Can't Open File: No such file or directory

Das Script selbst sieht folgendermaßen aus...

Code: (dl )

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use vars '@form_data', '$gb_jahr', '@zeilen', '@zeile';
use strict;

require "../cgi-bin/cgi-lib.pl";
require "../cgi-bin/mun-lib.pl";
&ReadParse(@form_data);

if ($form_data[0] eq "")
{
     $form_data[0] = "$gb_jahr";
}

$gb_jahr = "gstbk_$form_data[0].csv";

open (FILE,$gb_jahr) || die "Can't Open File: $!\n";
while(<FILE>)
    {
        chop ($_);
        push (@zeilen, $_);
    }
close(FILE);

&html_header;


print "\t<TABLE WIDTH=\"100%\" CELLPADDING=\"10\" CELLSPACING=\"2\"> \n"
    ."\t\t<TR>\n"
    ."\t\t\t<TD WIDTH=\"100\" ALIGN=\"LEFT\" VALIGN=\"MIDDLE\">"
    ."<A HREF=\"eguestbk.htm\"><IMG SRC=\"signbook.gif\" alt='Im Gastebuh eintragen...\'
    . WIDTH=\"40\" HEIGHT=\"40\" BORDER=\"0\" ALIGN=\"LEFT\"></A></TD>\n"
    ."\t\t\t<TD ALIGN=\"CENTER\">"
    ."<IMG SRC=\"gaestebuch.gif\"BORDER=\"0\" WIDTH=\"166\" HEIGHT=\"33\"></TD>\n"
    ."\t\t\t<TD>&nbsp;</TD>\n"
    ."\t\t</TR>\n"
    ."\t</TABLE>\n"
    ."\t<TABLE WIDTH=\"100%\" CELLPADDING=\"10\" CELLSPACING=\"2\" ALIGN=\"CENTER\">\n"
    ."\t\t<TR>\n"
    ."\t\t\t<TD><A HREF=\"bguestbk_98.htm\" TARGET=\"text\">"
    ."<FONT SIZE=\"+1\"><B>1998</B></FONT></A></TD>\n"
    ."\t\t\t<TD><A HREF=\"bguestbk_99.htm\" TARGET=\"text\">"
    ."<FONT SIZE=\"+1\"><B>1999</B></FONT></A></TD>\n";
if ($form_data[0] eq "00")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2000</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?00\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2000</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "01")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2001</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?01\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2001</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "02")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2002</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?02\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2002</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "03")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2003</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?03\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2003</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "04")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2004</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?04\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2004</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "05")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2005</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?05\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2005</B></FONT></A></TD>\n";
    }
if ($form_data[0] eq "06")
    {
        print "\t\t\t<TD><FONT SIZE=\"+1\"><B>2006</B></FONT></TD>\n";
    }
    else
    {
        print "\t\t\t<TD><A HREF=\"show_gb.cgi?06\" TARGET=\"text\">"
        ."<FONT SIZE=\"+1\"><B>2006</B></FONT></A></TD>\n";
    }
print "\t\t</TR>\n" 
    ."\t</TABLE>\n"
    ."\t<TABLE>\n"
    ."\t\t<TR>\n"
    ."\t\t\t<TD WIDTH=\"15%\"> </TD>\n" 
    ."\t\t\t<TD>\n";
for (@zeilen)
    {
        @zeile = split(/#/,$_);
        print "\t\t\t\t<B>$zeile[1]</B><BR>\n"
            ."\t\t\t\t$zeile[2] < <A HREF=\"mailto:$zeile[3]\">$zeile[3]</A> ><BR>\n"
            ."\t\t\t\t$zeile[4] - $zeile[5] -<BR>&nbsp;<BR>\n"
            ."\t\t\t</TD>\n"
            ."\t\t\t<TD WIDTH=\"15%\"> </TD>\n" 
            ."\t\t</TR>\n"
            ."\t\t<TR>\n"
            ."\t\t\t<TD WIDTH=\"15%\"> </TD>\n" 
            ."\t\t\t<TD>\n";
    }
print "\t\t\t</TD>\n"
    ."\t\t\t<TD WIDTH=\"15%\"> </TD>\n" 
    ."\t\t</TR>\n"
    ."\t</TABLE>\n"
    ."\t</BODY>\n"
    ."</HTML>";

Bin noch totaler Anfänger in Sachen Perl und würde mich freuen, wenn mir jemand helfen kann. :)

Gruß,
Levi

Strat

2006-01-18 16:54

User since
2003-08-04
5246 Artikel
ModeratorIn

dieser Code verwendet noch cgi-lib.pl, die man seit so etwa 10 Jahren nicht mehr verwenden sollte. Da besser CPAN:

CGI verwenden, was ein Standardmodul ist. Wenn du das Programm aus dem Internet downgeloaded hast: da gibt es bessere.

chop($_) schneidet das letzte Zeichen einer Zeichenkette ab; du willst aber, dass ein optionaler Zeilenumbruch abgeschnitten wird. dafuer gibt es die funktion chomp($_); (chop besser schnell vergessen)

Code: (dl )

1
2

$gb_jahr = "gstbk_$form_data[0].csv";
open (FILE,$gb_jahr) || die "Can't Open File: $!\n";

das kann eine nette sicherheitsluecke sein, da $form_data[0] von einem user beeinflussbar ist.

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

lord_levi

2006-01-18 18:06

User since
2006-01-18
1 Artikel
BenutzerIn
[default_avatar]

Also das war ja schon einmal ein guter Tip! :)
Habe nun die cgi-lib.pl durch CGI.pm ersetzt...
Allerdings bekomme ich nun folgenden Fehler...

Code: (dl )

(offline mode: enter name=value pairs on standard input)

Habe das ganze schon bei Google gesucht, aber nichts gefunden :(

jan

2006-01-18 18:25

User since
2003-08-04
2536 Artikel
ModeratorIn

das sollte passieren, wenn du das script offline startest, zB in der commandline. starte es als cgi via httpserver und es geht. alternativ:

Quote
-no_debug

This turns off the command-line processing features. If you want to run a CGI.pm script from the command line to produce HTML, and you don't want it to read CGI parameters from the command line or STDIN, then use this pragma:
use CGI qw(-no_debug :standard);

dann läuft es auch auf der commandline ohne diese eingabeaufforderung.

nepos

2006-01-18 20:51

User since
2005-08-17
1420 Artikel
BenutzerIn

Ausserdem, lass bitte diese Tabs im HTML-Output weg, den Code will ja kein Mensch lesen ;)

View all threads created 2006-01-18 16:32.