<form action="http://www.tagindex.com/" target="_blank"> <textarea id="text"></textarea> <input type="submit" value="Open Window"> </form>
<html> <title>open new window1</title> <body bgcolor="#fff8bc"> <h3>新しいウィンドウをオープン(表示指定なし)</h3> <h> <form action="test16.cgi" method="POST" target="_blank"> <textarea name="com"></textarea> <input type="submit" value="Open Window" onclick="openWin()" /> </form> </body> </html>
#!/usr/local/bin/perl
read(STDIN, $formin, $ENV{'CONTENT_LENGTH'});
@indata = split (/&/,$formin);
foreach $tmp (@indata) #フォームの要素分(配列分)以下の処理を繰り返す
{
($name,$value) = split (/=/,$tmp); # =記号で区切り、名前 と 値 に分ける
$forminh{$name} = $value; #区切った名前を付けた連想配列に値を入れる
}
$com = $in{'com'};
print "Content-type: text/html\n\n";
print "$value";<html> <title>open new window1</title> <body bgcolor="#fff8bc"> <h3>新しいウィンドウをオープン(表示指定なし)</h3> <h> <form action="test16.cgi" method="POST" target="_blank"> <textarea name="com"></textarea> <input type="submit"> </form> </body> </html>
#!/usr/local/bin/perl
read(STDIN, $formin, $ENV{'CONTENT_LENGTH'});
@indata = split (/&/,$formin);
foreach $tmp (@indata) #フォームの要素分(配列分)以下の処理を繰り返す
{
($name,$value) = split (/=/,$tmp); # =記号で区切り、名前 と 値 に分ける
$forminh{$name} = $value; #区切った名前を付けた連想配列に値を入れる
}
print "Content-type: text/html\n\n";
print "$value";