PHP in cgi umschreiben

dsaer · 23. März 2007

PHP in Perl umschreiben

Hallo bin leider in Perl ein totaler Laie,
muss aber mit einem Script einen variablen Text an swf weitergeben.
Wer kann mir helfen?

PHP-Script sieht wie folgt aus

PHP:

<?php
$name = $_GET['name'];
$type = $_GET['type'];

if ($type==1) {
   $text="Herr " . $name ;
} else if ($type==2) {
  $text="Frau " . $name ;
} else {
  $text="liebes Mitglied". $name ;
}

$vars = '?var1='.$text; 

?> 
<html> 
<head> 

</head> 
<body> 
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="800" height="457" id="my_name" align="middle"> 
<param name=movie value="movie3.swf<? echo $vars ?>"> 
<param name=quality value=high> 
<embed src="movie3.swf<? echo $vars?>" quality="high" bgcolor="#ffffff" width="800" height="457" name="my_name" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /> 
</object> 
</body> 
</html>

renee · 28. März 2007

Code:

#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header();

my ($name,$type) = @params{qw/name type/};
my $text;

if ($type==1) {
   $text="Herr " . $name ;
} elsif ($type==2) {
  $text="Frau " . $name ;
} else {
  $text="liebes Mitglied". $name ;
}

my $vars = '?var1='.$text; 

print << "HTML";
<html> 
<head> 

</head> 
<body> 
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="800" height="457" id="my_name" align="middle"> 
<param name=movie value="movie3.swf$vars"> 
<param name=quality value="high"> 
<embed src="movie3.swf$vars" quality="high" bgcolor="#ffffff" width="800" height="457" name="my_name" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /> 
</object> 
</body> 
</html>
HTML

__END__

PHP in cgi umschreiben

dsaer

Mitglied

renee

Erfahrenes Mitglied

Neue Beiträge