Taschenrechner einbindung in Skript (Perl/CGI)

[thread]18813[/thread]

Taschenrechner einbindung in Skript

Tags: perl5 CGI linux anfänger Taschenrechner Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+5 replies

Gast Justin

2013-12-20 10:21

Hallo,
hab da ein kleines Perl Skript bei dem ich nicht weiter komme. Ich bin Anfänger und habe gerade erst ein paar der wichtigsten Grundlagen gelernt.

Code (perl): (dl )

#!/usr/bin/perl -w

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

my $cgi = new CGI;
my @Feldnamen = $cgi->param();

my $wert1 = $ARGV[1];
my $wert2 = $ARGV[2];
my $ergebnis;

$ergebnis = $wert1 + $wert2;
print "\tDas Ergebnis ist: $ergebnis\n";my $wert1 = $ARGV[1];
my $wert2 = $ARGV[2];
my $ergebnis;

$ergebnis = $wert1 + $wert2;
print "\tDas Ergebnis ist: $ergebnis\n";

print $cgi->header(),
      $cgi->start_html('CGI-Feedback'),
      $cgi->h1('Taschenrechner ',$cgi->i('Dein Ergebnis:'));
      foreach my $Feld (@Feldnamen) {
        print $cgi->strong(' Ergebnis: '),
              $cgi->param($Feld), "<br>";
      }
print $cgi->end_html();

Ich würde gerne den Taschenrechner so einbinden das das Skript die angegebenen Zahlen in den 2 Formularfeldern ausliest und dann ausrechnet der Operator soll nur + sein.

Finde allerdings keinen Ansatz wie ich das machen soll.

Das Taschenrechner Skript ist dieser Teil:

Code (perl): (dl )

my $wert1 = $ARGV[1];
my $wert2 = $ARGV[2];
my $ergebnis;

$ergebnis = $wert1 + $wert2;
print "\tDas Ergebnis ist: $ergebnis\n";

Der Rest ist ein Skript das die Felder ausliest bisher aber noch nicht mehr kann als das.

Das Formular Skript sieht so aus:

Code (html): (dl )

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html>
<head>
<title>Taschenrechner</title>
<style type="text/css">
</style>
</head>
<body>
<form action="/cgi-bin/testFORMULAR.pl" method="post">
<fieldset>
<legend>Adieren</legend>
<input name="search" type="text" value="" />
<input name="search" type="text" value="" />
<input type="submit" name="go" value="Rechnen"/>
</fieldset>
<form>
</body>
</html>

Das Formular Skript ist nicht selbst geschrieben sondern nur kopiert.
Last edited: 2013-12-20 10:23:25 +0100 (CET)

+2 replies
bianca

2013-12-20 10:30

User since
2009-09-13
7016 Artikel
BenutzerIn

@ARGV sind nicht die Werte aus dem Formular sondern die Aufrufparameter. Beispiel Aufruf: meinscript.pl hallo welt
Dann enthält $ARGV[0] "hallo" und $ARGV[1] "welt". Das ist also nicht, was du machen möchtest.

Die Feldinhalte aus dem Formular bekommst du vom Modul CGI. Mal dessen Doku gelesen, wie man das macht?

Und in deinem Formular haben beide Felder das selbe name Attribut, dadurch sind sie schwer zu unterscheiden. Ich würde sie "wert1" und "wert2" nennen.
10 print "Hallo"
20 goto 10
- Gast Justin
  
  2013-12-20 10:37
  
  Danke hab das jetzt geändert und werde mich mal durch das Modul durchlesen.
  Last edited: 2013-12-20 10:57:39 +0100 (CET)
+2 replies

GwenDragon

2013-12-20 10:40

User since
2005-01-17
14762 Artikel
Admin1

Eben kurz zusammengemixt:

Code (html): (dl )

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html>
<head>
<title>Taschenrechner</title>
<style type="text/css"></style>
</head>
<body>
<form action="/cgi-bin/testFORMULAR.pl" method="post">
<fieldset>
<legend>Addieren</legend>
<input name="wert1" type="text" value="" />
<input name="wert2" type="text" value="" />
<input type="submit" name="go" value="Rechnen"/>
</fieldset>
<form>
</body>
</html>

Code (perl): (dl )

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

my $cgi       = CGI->new;
my @Feldnamen = $cgi->param();

my $ergebnis;

my $wert1 = $cgi->param('wert1') // '';
$wert1 = '?' if not length $wert1;

my $wert2 = $cgi->param('wert2') // '';
$wert2 = '?' if not length $wert2;

if ( $wert1 ne '?' and $wert2 ne '?' ) {
    $ergebnis = $wert1 + $wert2;
}
else {
    $ergebnis = 'ERROR: Werte fehlen';
}

print $cgi->header(),
  $cgi->start_html('CGI-Feedback'),
  $cgi->h1('Taschenrechner '),
  $cgi->i('Dein Ergebnis:');
foreach my $Feld (@Feldnamen) {
    print $cgi->param($Feld), $cgi->br;
}
print $cgi->strong($ergebnis), $cgi->br;

print $cgi->end_html();

die Drachin Gwen

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

Gast Justin

2013-12-20 10:56

Danke schön hat mich schon mal ein ganzes stück weiter gebracht :D

View all threads created 2013-12-20 10:21.