perl/script/CGI module

提供: dsk's note
移動: 案内検索
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";