SOFTWARE ERROR (Seite 2) (Perl/CGI)

renee

2004-03-03 16:13

User since
2003-08-04
14371 Artikel
ModeratorIn

mach bei dem 2. %Formular das my weg...

die aussage heißt, dass Du in der Kommandozeile das Skript so aufrufen musst:

comment.pl NAME1=meinName NAME2=meinNachname

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/

Relais

2004-03-03 16:15

User since
2003-08-06
2244 Artikel
ModeratorIn

$renee++;

Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming

piero

2004-03-03 16:19

User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]

Hallo,
habe das my jetzt rausgenommen, aber immer noch dieser 500 Fehler.

Code: (dl )

#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my ($Feld, $Name, $Wert);
my %Formular;

my $cgi=CGI->new();
print $cgi->header(-type=>'text/html');
%Formular=$cgi->Vars();

#read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
#my @Formularfelder = split(/&/, $Daten);
#my ($Feld, $Name, $Wert);
#my %Formular;
#foreach $Feld (@Formularfelder) {
#  (my $Name, my $Wert) = split(/=/, $Feld);
#  $Wert =~ tr/+/ /;
#  $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#  $Wert =~ s/</&lt;/g;
#  $Wert =~ s/>/&gt;/g;
#  $Formular{$Name} = $Wert;
# }
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>Kundenerfassung <i>comments.pl</i></h1>\n";
print "<p><b>Kurzname:</b> $Formular{KURZNAME}</p>\n";
print "<p><b>Name1:</b> $Formular{NAME1}</p>\n";
print "<p><b>Name2:</b> $Formular{NAME2}</p>\n";
print "<p><b>Name3:</b> $Formular{NAME3}</p>\n";
print "<p><b>Straße:</b> $Formular{STRASSE}</p>\n";
print "<p><b>Land:</b> $Formular{LAND}</p>\n";
print "<p><b>PLZ:</b> $Formular{PLZ}</p>\n";
print "<p><b>Ort:</b> $Formular{ORT}</p>\n";
print "<p><b>Postfach:</b> $Formular{POSTFACH}</p>\n";
#print "<p><b>Postfach-Plz:</b> $Formular{POSTFACH-PLZ}</p>\n";
print "<p><b>Telefon:</b> $Formular{TELEFON}</p>\n";
print "<p><b>Fax:</b> $Formular{FAX}</p>\n";
print "<p><b>Mobil:</b> $Formular{MOBIL}</p>\n";
print "</body></html>\n";

Gruß
Piero

edit renee: schließendes [code]-tag muss man auch noch benutzen...\n\n

renee

2004-03-03 16:26

User since
2003-08-04
14371 Artikel
ModeratorIn

hast Du es nochmal in der Kommandozeile aufgerufen?? Da bekommst Du eher ne hilfreiche Meldung als einfach nur nen 500er...

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/

piero

2004-03-03 16:29

User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]

Hallo,
wenn ich es unter der Kommandozeile auführen will, kommt mir immer folgende Meldung, obwohl kein Lock geöffnet ist:

bash: ./comments.pl: Text file busy

Ich weiß nicht woran es hängt, und das ding muss in 15min laufen, weil man chef schon etwas streß macht.

pq

2004-03-03 17:13

User since
2003-08-04
12208 Artikel
Admin1

das ist keine perl-fehlermeldung. guck mal bei groups.google.de danach.

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Strat

2004-03-03 23:03

User since
2003-08-04
5246 Artikel
ModeratorIn

nebenbei: es macht wenig sinn, wenn du im shebang -w setzt und dann weiter unten use warnings; setzt. verzeichte da besser auf -w, weil use warnings eh mehr sinn macht, weil es lokal ist und nicht wie -w global...

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