perl/script/CGI module

提供: dsk's note
< perl
2015年3月31日 (火) 10:35時点におけるDsk (トーク | 投稿記録)による版

(差分) ←前の版 | 最新版 (差分) | 次の版→ (差分)
移動: 案内検索
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";