「perl/script/CGI module」の版間の差分

提供: dsk's note
移動: 案内、検索
(ページの作成:「<syntaxhighlight lang="perl"> my $q = new CGI; my $url = $q->param('url'); </syntaxhighlight>」)
 
細
 
(同じ利用者による、間の2版が非表示)
1行目: 1行目:
 
<syntaxhighlight lang="perl">
 
<syntaxhighlight lang="perl">
 +
use CGI;
 
my $q = new CGI;
 
my $q = new CGI;
 
my $url = $q->param('url');
 
my $url = $q->param('url');
 +
</syntaxhighlight>
 +
 +
<syntaxhighlight lang="perl">
 +
#ヘッダー出力
 +
print $q->header();
 +
print $url;
 +
#フッター出力
 +
print $->end_html();
 +
</syntaxhighlight>
 +
 +
<syntaxhighlight lang="perl">
 +
#リダイレクト
 +
use CGI qw/:standard/;
 +
print redirect(-uri=>'http://dsktnk.sakura.ne.jp/');
 +
</syntaxhighlight>
 +
 +
<syntaxhighlight lang="perl">
 +
#ファイルをDLさせる
 +
use CGI qw/:standard/;
 +
print header(-type=>'application/octet-stream',
 +
    -attachment=>'test.txt');
 +
print "test¥n";
 
</syntaxhighlight>
 
</syntaxhighlight>

2015年3月31日 (火) 10:35時点における最新版

use CGI;
my $q = new CGI;
my $url = $q->param('url');
#ヘッダー出力
print $q->header();
print $url;
#フッター出力
print $->end_html();
#リダイレクト
use CGI qw/:standard/;
print redirect(-uri=>'http://dsktnk.sakura.ne.jp/');
#ファイルをDLさせる
use CGI qw/:standard/;
print header(-type=>'application/octet-stream',
    -attachment=>'test.txt');
print "test¥n";
「http://dsktnk.sakura.ne.jp/mw/index.php?title=perl/script/CGI_module&oldid=1710」から取得