複数のCSVを一度にダウンロード

質問

いつもお世話になります。
ＷｅｂサーバーのCSVをダウンロードするのに次のようなＣＣＧＩを使っています。
*****************************************
#! /usr/bin/perl
open FH, "./data.csv";
print <<__EOH__;
Content-Type: text/download; name="data.csv"
Content-Disposition: inline; filename="data.csv"

__EOH__
print <FH>;
close FH;
*****************************************

1つだけならこれでＯＫなんですが、例えばdata1.csv、data2.csv、data3.csvという3つのCSVをダウンロードさせるにはどのようにコーディングすればよいのでしょう？

回答No.1

noname#25358 · ベストアンサー

１つのコネクションで送信できるファイルの数は１つだけです。
　裏技を使えば１つのコネクションで３つ送信できますが、同時には無理です。

　よって、window.open("download.cgi?file=data1.csv","_new"); という JavaScript を３回実行してしまう方法が一番確実でしょう。

お礼

お応えありがとうございます。
無理なら仕方ありません。そんなことが出来たらいいなぁ～と思っただけですから、ダウンロードしたいファイルの数だけボタンをつくります。

回答No.2

iichiho

３つのファイルを１つに纏めて圧縮して１つのファイルにして、送るというのはできると思います。

下に挙げているのはウェブサーバがUNIXのマシン時の例です。
(ただし、SUNOSとSolarisではtarのオプションの関係でこのままでは動きません。)

------------------------------------------------
#送る３つのファイルの指定をしています
$DataFile1='aaa.dat';
$DataFile2='bbb.dat';
$DataFile3='ccc.dat';
#UNIXコマンドを呼び出して圧縮をかけています。
`tar zcvf tmp$$.tgz $DataFile1 $DataFile2 $DataFile3`

##ここから下は引用してます
open FH, "./tmp$$.tzg"; #書き換えました
print <<__EOH__;
Content-Type: text/download; name="data.csv"
Content-Disposition: inline; filename="data.csv"

__EOH__
print <FH>;
close FH;
##付け加え
`rm tmp$$.tgz`; #圧縮したファイルを消しています

------------------------------------------------

ただし、CSVファイルが大きすぎるて纏めて圧縮するのに時間のかかる大きなものであるばあい、ホストの負荷によっては、転送を開始するまでに時間がかかってタイムアウトする場合がありますので、注意が必要です。

お礼

おこたえありがとうございます。

>UNIXのマシン時の例です。

ホスティングサーバーを使用しています。多分UNIXサーバーだと思うのですが、私自身はUNIXの知識がありませんのでUNIXコマンドといわれても、はて？？？という感じです。せっかく教えていただいたのに知識がついていってません。すみません。