nicht angemeldet
Hallo,
neben der Fußballübertragung habe ich ein kleines Script zum Test reg. Ausdrücke geschrieben, das nicht will, was ich will (ich war aber nicht unkonzentriert - eher unwissend).
Meine Frage:
Kann ich in das nachfolgende Script an der Stelle, wo das 'die'-statement ist, etwas einbauen in der Art des 'alert' von javascript, so dass das Programm anschließend weiterläuft ?
#!c:\apachefriends\xampp\perl\bin\perl.exe -w
use strict;
print "Content-type: text/html\n\n";
use vars qw($aufrufart $erg $regAusdruck $testString);
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
$aufrufart = param('aufrufart') || "1";
if ($aufrufart eq "1") # Erstaufruf
{
$erg = "";
}
else
{
$aufrufart = "1";
$regAusdruck = param('regAusdruck');
$testString = param('testString');
# die "'$testString' =~ /$regAusdruck/";
if ('$testString' =~ /$regAusdruck/)
{$erg = "Korrekt"}
else
{$erg = "Falsch"};
}
print <<MYT;
<html>
<head>
<meta http-equiv="Content-Language" content="de">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Test von regulären Ausdrücken</title>
</head>
<body onload="document.formular.regAusdruck.focus()">
<h1 align="center">Test von regulären Ausdrücken</h1>
<form action="rTest.pl" method="post" name="formular">
<input type="hidden" name="aufrufart" value="2">
Reg. Ausdruck: <input type="text" name="regAusdruck" size="75" maxlength="200"><br>
Teststring: <input type="text" name="testString" size="75" maxlength="200"><br>
<input type="submit" value="Absenden" name="senden"><br><br>
Ergebnis: $erg
</body>
</html>
MYT