Inputbox Perl (Allgemeines zu Perl)

[thread]15527[/thread]

Inputbox Perl

Leser: 23

Articles: hide open all | hide show old branches

+3 replies
Gast Sade J

2010-10-13 11:10
Hallo zusammen

Ich hab folgendes problem:
Ich habe ein Perl script geschrieben, in welches ich die zwei Variable $a und $b eingeben kann. Das Programm rechnet nun $a^$b aus.

Dies Funktioniert einwandfrei.

Allerdings moechte ich jetzt dieses programm grafisch mit HTML darstellen.
Leider krieg ich es nicht hin, ein Inputfeld zu erstellen, in welches man nun
die Variablen einfuegen kann.

Koennte mir jemand sagen was ich eingeben oder vielleicht aendern muss?
waere um jede hilfe dankbar!!

Hier mein script:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

#!/usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); print "content-type: text/html \n\n"; #The header my $HTML = "myhtml.html"; open (HTML) ; my @fileinput = <HTML>; my $z = "<p>Bitte Geben sie die gewünschte Zahl ein:</p>"; print "$z"; # Hier sollte man die Variable $a eingeben koennen. my $zz = "<p>Und hier bitte die Potenz:</p>"; print "$zz"; #Und hier die Variable $b my $c = $a; if ($b == 0) { print "Lösung = 1 \n"; exit; } else { if ($b >= 0) { for (my $i = 1;$i <= $b - 1;$i = $i + 1) { $a = $a * $c; } } else { $a = 1/$a; $c = 1/$c; for (my $j = -1;$j >= $b + 1;$j = $j - 1){ $a = $a * $c; } } } print "Lösung =",$a,"\n"; close (HTML)
Gruss Sade J

mod-edit pq: perl-tags hinzugefügt
Last edited: 2010-10-13 11:29:29 +0200 (CEST)
- bianca
  
  2010-10-13 11:34
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Empfehle dazu z.B. http://www.infodrom.org/~joey/Writing/freeX/perl3/
  
  Ist auch ein einfaches Beispiel dabei, das ungefähr Deiner Anforderung entspricht.
  
  Edit: Das hier sieht auch sehr informativ aus und hat ein schönes Beispiel: http://www.perlboard.de/perlguide/Kap16.html
  Last edited: 2010-10-13 11:37:06 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
- GwenDragon
  
  2010-10-13 15:58
  User since
  2005-01-17
  14783 Artikel
  Admin1
  1) Um einfacher Probleme im Code zu finden, ist es sinnvoll folgendes als erste Befehle zu verwenden:
  
  Code: (dl )
  
  1 2
  
  use strict; use warnings;
  
  2) Es empfiehlt sich, nur bedingt $a und $b zu verwenden, weil diese spezielle Variablen sind, die für die Funktion sort verwendet werden.
  Da $a und $b global sind, könnte sowas Ärger verursachen.
  Siehe:
  perldoc perlvar
  perldoc sort
  Last edited: 2010-10-13 15:59:46 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-10-13 11:10.