nicht angemeldet
Perl-Script m. Flash komb. bzw. PerlScript mit Flash verkleiden
hi!
Wie geht ein SWF Flash Fronted verkleidung sowohl für eingabe
als auch für ausgabe für dieses Perlscript in Flash bitte?
Zu PHP und Flash gibt es viele infos aber nixx zu Perl und Flash
thxxx
#!/usr/bin/perl
use CGI;
use strict;
print "Content-type: text/html\n\n";
print "<html><head><title></title><body>";
my $cgi = CGI->new();
if($cgi->param("text"))
{
print "Thank you!\n<br>";
print "Here are the comments of all the other users:\n<br>";
print "<br>-------------------------------------<br>";
open(TEXT, ">> text.dat") or die("Couldn't open text.dat\n");
print TEXT $cgi->param("text")."\n";
close(TEXT);
open(TEXT, "< text.dat") or die("Couldn't open text.dat\n");
my @text = <TEXT>;
close(TEXT);
print "<ul>";
for(@text) { print "<li>".$_."</li>\n"; }
print "</ul>";
}
else
{
print "Please write a sentence into this textfield!<br> \n<br>";
print <<'EOF';
<form action="text.pl" method="get">
<input type="text" size="40" name="text">
<input type="submit" value="send">
</form>
EOF
}
print "</body></html>";