はじめまして

質問

はじめまして

現在、PerlのMVCフレームワークCatalystのperlソースコード内で
ボタンを押すと、ユーザーにとあるファイルをダウンロードさせたい
と考え、以下のように実装しました

my $filedir = '/var/www/html/Catal/lib/Catal/Controller/';
my $filename = 'test.zip';
my $filepath = $filedir . $filename;

print "Content-type:application/download; name=\"$filename\"\n";
print "Content-Disposition: attachment; filename=\"hogehoge\"\n\n";

open(FILE,"< $filepath");
binmode FILE;
binmode STDOUT;
print while(<FILE>);
close(FILE);

上記コードを動かすとIEのページにZIPファイルがバイナリ表示されるだけで
ダウンロードダイアログすら出ません。

どうしたら、ダイアログを表示させ、ユーザーが望む場所にダウンロード
させることができるでしょうか。

よろしくお願いします。

回答No.1

神崎 渉瑠（@taloo）

http://search.cpan.org/~hkclark/Catalyst-Manual-5.8004/lib/Catalyst/Manual/Cookbook.pod#Using_XML::Feed

コンテクストを使ってヘッダーを出力しないとダメなんじゃないでしょうか。