• Twitter
• Facebook
• Tumblr
• Email

テキストファイルや画像などを表示させるのではなく、ダウンロードをさせたい。

IEやFireFoxなどのブラウザでは、圧縮ファイル(zip, lha)などはファイルを保存するダイアログを自動的に出してくれるが、CSVなどのテキストファイルの場合、ただ表示されるだけである。

下記のようなヘッダを出力する部分を置き換えればOK。 print “Content-type: text/html\n\n”;

#!/usr/bin/perl
;#
;#ダウンロード
;#
 
#-- ダウンロード後のファイル名 --#
$file = 'stock_yahoo.csv';
 
#-- ダウンロード --#
print "Content-Type: application/octet-stream\n";
print "Content-Disposition: attachment; filename=$file\n";
print "\n";
 
#-- 内容を出力 --#
while(<DATA>){
  print ;
}
 
__END__
日付,始値,高値,安値,終値,出来高(株)
10月20日,"46,700","47,150","45,150","45,500","261,883"
10月19日,"48,600","49,100","46,900","47,450","323,015"
10月18日,"46,850","49,100","45,650","48,650","379,219"
10月17日,"46,550","47,650","45,500","46,900","335,802"
10月16日,"43,750","47,050","43,700","46,950","455,565"
10月13日,"41,450","43,600","41,450","43,350","369,306"
10月12日,"39,700","41,700","39,500","41,200","317,911"
10月11日,"40,650","40,650","39,150","39,300","296,626"
10月10日,"40,950","41,400","40,450","40,600","128,643"

FireFoxの場合

Excelで開いてみた

大抵のブラウザでは正常に動作するが、一部ファイル名の指定が出来ない(CGIのファイル名になる)などの現象が起こる場合がある。この場合はクエリー文字列を工夫することで解決することもある(「dl.cgi?file=xxx.csv」など)

余談だが、ファイルハンドル「DATA」は特殊な意味を持つ。これは通常のファイルではなく「 END 」以下にある内容を操作する際に用いる。ここではDATAを用いているが、普通のファイルを読み込み、その結果を返却しても良いし、データを動的に生成して返しても良い。内容はあなた次第。

※さらに余談だが、mod_perl環境下では「 END 」を書いてはならないという制約があるので注意。

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

• Twitter
• Facebook
• Tumblr
• Email