Wer hilft mir folgendes Script zu optimieren ??: Anfrage Hilfe (Seite 2) (Perl/CGI)

renee

2006-05-19 15:39

User since
2003-08-04
14371 Artikel
ModeratorIn

Ok... hab's verbessert!

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/

RalfNickolaus

2006-05-19 19:07

User since
2006-05-18
9 Artikel
BenutzerIn

DAs könnte was sein, aber es kommt die Fehlermeldung :

CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:

Can't locate HTML/Template/Compiled.pm in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib .) at D:\kunden\ralfnickolaus.de\cgi-bin\auswertung.pl line 6.
BEGIN failed--compilation aborted at D:\kunden\ralfnickolaus.de\cgi-bin\auswertung.pl line 6.

mache ich was falsch ?
"auswertung.pl" und "auswertung.tmpl" sind im cgi-bin verzeichniss.

Nick

lichtkind

2006-05-19 19:08

User since
2004-03-22
5701 Artikel
ModeratorIn + EditorIn

dir fehlt das benutzt modul, einfach HTML::Template::Compiled nachistalieren :) oder umschreiben\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

RalfNickolaus

2006-05-19 19:34

User since
2006-05-18
9 Artikel
BenutzerIn

Ohjee.. Ihr müsstet mich sehen... Was soll ich ?.. Habe nun so ein File gefunden und entpackt.. Unterverzeichnisse mit HTML/Tempale/Compiles.. usw.. und wo packe ich die hin? ins cgi-bin ?

lichtkind

2006-05-19 19:59

User since
2004-03-22
5701 Artikel
ModeratorIn + EditorIn

sicher nicht, dort wo dein perl interpreter installiert ist in die site-lib verzeichnisse, aber normal installiert man es per cpan-shell o.ä.

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

RalfNickolaus

2006-05-19 21:03

User since
2006-05-18
9 Artikel
BenutzerIn

Dann hat sich das erledigt.- Da habe ich keinen zugriff drauf.
Das alte Script brauchte das nicht...Schade..

Naja- trotzdem danke für Eure Mühe & Zeit...

lichtkind

2006-05-19 21:43

User since
2004-03-22
5701 Artikel
ModeratorIn + EditorIn

es geht auch ins cgi-bin aber das ist nicht die feine englische, trotzdem kannst du ja die lösung wie vorgeschlagen benutzen nur halt alles in einer datei und ohne template.\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

RalfNickolaus

2006-05-19 22:02

User since
2006-05-18
9 Artikel
BenutzerIn

und wie sähe der Code dann aus ?....
Mann, fühle ich mich hier unwohl.- Null durchblick...

lichtkind

2006-05-19 22:05

User since
2004-03-22
5701 Artikel
ModeratorIn + EditorIn

kein grund jeder fängt bei 0 an, mom code kommt gleich

Code: (dl )

#!/usr/local/bin/perl

use strict;
use CGI;

my $cgi = CGI->new();
my %uservars = $cgi->Vars();

my @anwort = qw(0 B D B A C D D B B D B C A D C C A C);
my $richtig;

for (1..$#anwort) { $richtig++ if $uservars{"IQ$_"} eq $antwort[$_] }

if ($richtig >= 18) { print $cgi->redirect("richtig.html") }
else {
print $cgi->header();
print <<EOF;
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html><head>
<style type="text/css"><!--
  body {font-size:18px; }
--></style>
</head>
<BODY background="../back.jpg" text="#000000" bgcolor="#FFFFCC" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<center><b><font size=+4>Testauswertung</font><br><br>Ergebnis:<br>
<font color="#FF0000">$richtig</font> Antwort(en) von $#antwort Aufgaben sind richtig .......
</center>
</body>
</html>
EOF;
}

\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

renee

2006-05-19 23:04

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=RalfNickolaus,19.05.2006, 20:02]und wie sähe der Code dann aus ?....
Mann, fühle ich mich hier unwohl.- Null durchblick...[/quote]
Können wir was gegen das Unwohlsein tun?? Wenn Du Lust hast, weiterhin mit Perl zu programmieren, könnte die Einführung auf Strats Homepage (http://www.fabiani.net --> Vorträge --> Einführung in Perl) für Dich interessant sein...

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/