CGI-Taschenrechner bauen (solved) (Perl/CGI)

[thread]17319[/thread]

CGI-Taschenrechner bauen [solved]

Tags: perl5 CGI Similar Threads

Readers: 23

Articles: hide open all | hide show old branches

+12 replies

frank1967

2012-04-14 11:49

User since
2012-04-14
5 articles
BenutzerIn
[default_avatar]

Hallo,

bin Perl-Neuling und bräuchte mal eure Hilfe.
Ich habe in Perl ein Taschenrechnerscript geschrieben, welches auf Kommandozeilenebene auch funktioniert.
Nun möchte ich dieses Taschenrechnerscript zu einem CGI-Taschenrechner umbauen, wobei ich esrtmal auf Module verzichten möchte.
Das HTML-Formular habe ich schon erstellt:
Hier ist das Formular:

Code: (dl )

<html>
  <head>
    <title>Taschenrechner</title>
  </head>
  <body>
    <h1>Taschenrechner</h1>
    <form action="/cgi-bin/Taschenrechner.pl" method=post>
      <p>Zahl 1: <input size="4" maxlength="3" name="Zahl1">
        <br>
        Zahl 2: <input size="4" maxlength="3" name="Zahl2">
        <br>
        Rechenart: <input size="2" maxlength="3" name="Rechenart">
        <br>
        <input type="SUBMIT" value="Berechnen">
        <input type="reset" value="Reset">
      </p>
    </form>
  </body>
</html>

Das Taschenrechnerscript sieht folgendermaßen aus:

Code (perl): (dl )

#!/Perl/bin/perl.exe -w 
# einfaches Taschenrechnerprogramm

use strict;
use warnings;

print "Bitte die erste Zahle eingeben: ";

# Zahl 1
$z1 = <STDIN>;
chomp $z1;

print "\nBitte die zweite Zahl eingeben: ";

# Zahl2
$z2 = <STDIN>;
chomp $z2;

print "\nBitte die Rechenart eingeben (+, -, * oder/:";

#Rechenart
$ra = <STDIN>;
chomp $ra;

if ( $ra eq '+' )
{
  $erg =  $z1 + $z2;
}
elsif ( $ra eq '-' )
{
  $erg = $z1 - $z2;
}
elsif ( $ra eq '*' )
{
  $erg = $z1 * $z2;
}
elsif ( $ra eq '/' )
{
  $erg eq $z1 / $z2;
}
else 
{
  print "Diese Rechenart ist mir nicht bekannt!";
  die;
  #stirb - Programmabruch
}
print "\nDie Rechnung: $z1 $ra $z2 = $erg\n";

Ich habe schon mal folgendes geschrieben:

Code (perl): (dl )

#!/Perl/bin/perl -w
# einfaches Taschenrechnerprogramm
use strict;
use warnings;

read(STDIN, $input, $ENV{ 'CONTENT_LENGTH'});

#Anfang der HTML-Seite und Ausgabe von $input
print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<title>Antwortseite des CGI-Programms</title>";
print "</head>n\";
print "<body>";
print "<p>";
print "<br>$input</b>\n";

Wie kann man die im HTML-Formular eingegebenen Daten verarbeiten und das Ergebnis als HTML ausgeben lassen?
Ich finde irgendwie keinen Ansatz.
Über Lösungsansätze wäre ich echt dankbar.
Viele Grüße.
frank1967

modedit Editiert von GwenDragon: HTML + Perl in Code-Tags gestellt; Einrückungen ergänzt
Last edited: 2012-04-14 12:00:36 +0200 (CEST)

GwenDragon

2012-04-14 13:17
User since
2005-01-17
14837 articles
Admin1
Allgemein geht das so als menschenlesbarer Vorgang:
Code: (dl )

1 2 3 4 5 6 7

Wenn CGI-Daten gesendet wurden CGI-Daten einlesen Berechnung machen HTML-Seite mit Ergebnis ausgeben Sonst HTML-Seite mit Eingabe-Formular ausgeben EndeWenn
Hast du dir schon mal unser Tutorial CGI angesehen?
Da steht drin, was wichtig ist.
Lies bitte mal, probiere dann was aus und frage wieder wenn es hakt. ;)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
+10 replies

GwenDragon

2012-04-14 13:50

User since
2005-01-17
14837 articles
Admin1

Code (perl): (dl )

#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

# Grobkonzept

use CGI;

my $cgi = CGI->new();

my $zahl_1 = $cgi->param('Zahl1');
my $zahl_2 = $cgi->param('Zahl2');
my $rechenart = $cgi->param('Rechenart');
my $ergebnis = 0;

sub Berechne {
        my $z1 = shift;
        my $z2 = shift; 
        my $ra = shift;
        
        chomp($z1);
        chomp($z2);
        chomp($ra); 
        
        my $erg;
        
        if ( $ra eq '+' )
        {
          $erg =  $z1 + $z1;
        }
        elsif ( $ra eq '-' )
        {
          $erg = $z1 - $z2;
        }
        elsif ( $ra eq '*' )
        {
          $erg = $z1 * $z2;
        }
        elsif ( $ra eq '/' )
        {
          if ($z2 != 0) {
            $erg = $z1 / $z2;
          }
          else {
             $erg = "Zweite Zahl darf nicht 0 sein!";
          }
        }
        else {
          $erg = "Rechenart '$ra' unbekannt!";
        }
        
        return $erg;    
}

print $cgi->header;

if (  length($zahl_1) 
  and length($zahl_2) 
  and length($rechenart) 
  ) 
{  
  $ergebnis = Berechne($zahl_1, $zahl_2, $rechenart);
  print <<"HTML";
<html>
        <head>
                <title>Antwortseite des CGI-Programms</title>
        </head>
        <body>
                <p>
                        <br>$ergebnis</b>
                </p>
        </body>
</html>
HTML
}
else {
  print <<"HTML";
<html>
  <head>
    <title>Taschenrechner</title>
  </head>
  <body>
    <h1>Taschenrechner</h1>
    <form action="/cgi-bin/Taschenrechner.pl" method=post>
      <p>Zahl 1: <input size="4" maxlength="3" name="Zahl1">
        <br>
        Zahl 2: <input size="4" maxlength="3" name="Zahl2">
        <br>
        Rechenart: <input size="2" maxlength="3" name="Rechenart">
        <br>
        <input type="SUBMIT" value="Berechnen">
        <input type="reset" value="Reset">
      </p>
    </form>
  </body>
</html>
HTML
}

//EDIT:
Das lässt sich alles noch verbessern und anders strukturieren.

HTML lässt sich mit CPAN:

CGI erzeugen oder mit CPAN:

HTML::Template oder CPAN:

HTML::Template::Compiled samt Variablen ausgeben.
Last edited: 2012-04-14 14:14:27 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+9 replies

frank1967

2012-04-14 18:23

User since
2012-04-14
5 articles
BenutzerIn
[default_avatar]

Hallo GwenDragon,

vielen Dank für die schnelle Antwort.
Ich möchte erst mal das CGI-script ohne use CGI und Module schreiben. Soweit bin ich leider noch nicht.
Im Moment beschäftige ich mich mit der POST-Methode, um zu lernen, wie Daten aus dem HTML-Formular an das CGI-Script übergeben werden und dort verarbeitet werden können.
Also die eigegebenen Daten den Variabeln zu weisen und so zu decodieren, dass nur das Ergebnis ausgegeben wird.
Ich habe nun die Variabeln deklariert für die Eingaben im HTML-Formular.
my $zahl1
my $zahl2
my $rechenart
my $ergebnis

Mein script sieht nun so aus:

Code (perl): (dl )

#!/Perl/bin/perl -w

use strict;
use warnings;

# einfaches Taschenrechnerprogramm

my $zahl1
my $zahl2 
my $rechenart
my $ergebnis
read(STDIN, $input, $ENV{ 'CONTENT_LENGTH'});
print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<title>Antwortseite des CGI-Programms</title>";
print "</head>n\";
print "<body>";
print "<p>";
print "<br>$ergebnis</b>\n";

Nachdem ich das HTML-Formular ausgefüllt und an das CGI-Script übergeben habe, sollen ja die Daten vom CGI-Script übernohmen -und berechnet werden.
Ich weiß aber nicht wie ich das Taschenrechnerscript einbinden kann und das Ergebnis als HTML ausgeben kann.
Da bräuchte ich einen Ansatz.
Viele Grüße.
frank1967

modedit Editiert von GwenDragon: CODE in Perl-Tags gestellt
Last edited: 2012-04-14 18:25:06 +0200 (CEST)

+8 replies

GwenDragon

2012-04-14 18:30

User since
2005-01-17
14837 articles
Admin1

So geht es altmodisch:

Code (perl): (dl )

read(STDIN, $input, $ENV{ 'CONTENT_LENGTH'});
my %Form; # Hash für Variablen
my @pairs = split( /&/, $input );
foreach my $pair ( @pairs ) {
        my ($name, $value) = split(/=/, $pair);
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;                            
        $Form{ $name } = $value;
}
# ab jetzt sind die eingelesenen CGI-Variablen in %Form drin

PS: Bitte Code immer in Code- bzw. Perl in Perl-Tags stellen.
Siehe Anleitung (BBCode des Forums)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+7 replies

frank1967

2012-04-17 18:48

User since
2012-04-14
5 articles
BenutzerIn
[default_avatar]

Hallo GwenDragon,

vielen Dank für den Lösungsansatz.
Mir ist aber leider nicht klar, wie ich die eingelesenen Daten
aus dem Hash %Form auslesen kann und wie ich mein Taschenrechnerscript umschreiben muß. Es ist bestimmt recht simpel, aber ich blicke irgendwie nicht durch.
Viele Grüße.
frank1967

+6 replies

Linuxer

2012-04-17 19:14

User since
2006-01-27
3891 articles
HausmeisterIn

user image

Die Eingabefelder im HTML-Formular sind ja benannt (Zahl1, Zahl2).
Diese Namen werden auch übertragen und sind dann die Schlüsselnamen im Hash.

Anstatt nun extra Variablen zu erzeugen, verwendest Du im Skript dann eben die Hash-Elemente wie z.B. $Form{Zahl1} und $Form{Zahl2} um die gewünschte Rechnung durchzuführen.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+5 replies

frank1967

2012-04-17 22:01

User since
2012-04-14
5 articles
BenutzerIn
[default_avatar]

Hallo Linuxer,

vielen Dank für die Antwort.
Das hat mir schon weitergeholfen.
Mein Script sieht jetzt folgendermaßen aus:

Code: (dl )

#!/Perl/bin/perl -w

use strict;
use warnings;

# einfaches Taschenrechnerprogramm
my $Zahl1
my $Zahl2
my $Rechenart
my $Ergebnis
read(STDIN, $input, $ENV{ 'CONTENT_LENGTH'});
my %Form; # Hash für Variablen
my @pairs = split( /&/, $input );
foreach my $pair ( @pairs ) {
        my ($name, $value) = split(/=/, $pair);
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;                            
        $Form{ $name } = $value;
}
# ab jetzt sind die eingelesenen CGI-Variablen in %Form drin

print "Content-type: text/html\n\n";
print "<html>";
print "<head>";
print "<title>Antwortseite des CGI-Programms</title>";
print "</head>";
print "<body>";
print "<p>";
print "<br>$Ergebnis</b>\n";

# Zahl 1
$Zahl1 = $Form{Zahl1};
# Zahl 2
$Zahl2 = $Form{Zahl2};

#Rechenart
$Rechenart = $Form{Rechenart};

if ( $Rechenart eq '+' )
{
$Ergebnis =  $Zahl1 + $Zahl2;
}
elsif ( $Rechenart eq '-' )
{
$Ergebnis = $Zahl1 - $Zahl2;
}
elsif ( $Rechenart eq '*' )
{
$Ergebnis = $Zahl1 * $Zahl2;
}
elsif ( $Rechenart eq '/' )
{
$Ergebnis eq $Zahl1 / $Zahl2;
}
else 
{
print "Diese Rechenart ist mir nicht bekannt!";
die;
#stirb - Programmabruch
}
print "Die Rechnung: $Zahl1 $Rechenart $Zahl2 = $Ergebnis";
print "</body>";
print "</html>";

Leider funktioniert es nicht und ich bekomme folgende Fehlermeldung:

Code: (dl )

[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Premature end of script headers: Hausaufgabe2.pl
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] syntax error at C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl line 8, near "$Zahl1\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] my "\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Global symbol "$Zahl2" requires explicit package name at C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl line 9.\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Global symbol "$Zahl2" requires explicit package name at C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl line 36.\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Global symbol "$Zahl2" requires explicit package name at C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl line 43.\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Global symbol "$Zahl2" requires explicit package name at C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl line 47.\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Global symbol "$Zahl2" requires explicit package name at C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl line 51.\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Global symbol "$Zahl2" requires explicit package name at C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl line 55.\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Global symbol "$Zahl2" requires explicit package name at C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl line 63.\r
[Tue Apr 17 21:49:18 2012] [error] [client 127.0.0.1] Execution of C:\\Apache Software Foundation\\Apache2.2\\cgi-bin\\Hausaufgabe2.pl aborted due to compilation errors.\r

Was besagen die Meldungen und wie kann man die Fehler beseitigen, ich weiß nicht mehr weiter.
Viele Grüße.
frank1967

sitescriptor

2012-04-17 22:10

User since
2009-08-09
105 articles
BenutzerIn

Mehrere Semikolons am Ende von Anweisungen könnten Dir weiterhelfen.

Anmerkung: Das "die" in Zeile 60 ist ungeschickt, auch in diesem Falle solltest Du das HTML vollständig ausgeben!
Linuxer

2012-04-17 22:25

User since
2006-01-27
3891 articles
HausmeisterIn

"Syntax Error" sollte doch relativ eindeutig sein, oder nicht?
Da stimmt was nicht an dem Code, den Du hast.

In Perl muss jede Anweisung mit einem Semikolon abgeschlossen werden.
Das tust Du in mehreren Fällen nicht (Zeile 7-10).

Dann scheinst Du Dir über die Reihenfolge der einzelnen Verarbeitungsschritte nicht klar zu sein.
Warum versuchst Du bereits in Zeile 31 $Ergebnis auszugeben, wenn Du es erst in den Zeilen 41-56 berechnest?

edit1:
Warum vergleichst Du in Zeile 55 $Ergebnis mit dem Ergebnis der Division der beiden Zahlen als String?
Ich dachte, Du wolltest da was zuweisen?
Last edited: 2012-04-17 22:43:13 +0200 (CEST)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
+2 replies
Molaf

2012-04-18 08:34

User since
2007-10-11
119 articles
BenutzerIn

Neben den Fehlern in den beiden Antworten weiter oben:
Bei der Division sollte vorher geprüft werden, ob der Divisor == 0 ist. Sonst könnte es nämlich einen unschönen Programmabbruch geben.
- frank1967
  
  2012-04-20 21:18
  
  User since
  2012-04-14
  5 articles
  BenutzerIn
  
  Hallo zusammen,
  
  dank eurer Hilfe konnte ich meine Probleme lösen.
  Vielen Dank.
  Gruß.
  frank1967

View all threads created 2012-04-14 11:49.