プログラムに関して教えてください

質問

以下のスクリプトでわからなくて困っています。

[A]

以下のスクリプトでサーバー上の同じディレクトリーにダウンロードが可能です。

use LWP::Simple;

my $url = 'https://ドメイン名/samples/10000.mp3'; ## DOWNLOAD FROM URL!!
my $file = '10000.mp3';

getstore($url, $file);

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

[B]

以下のスクリプトでPCのローカルフォルダにダウンロードが可能です。

my $path = "samples/10000.mp3"; ##PATH_TO_FILE

my $file = "10000.mp3";

print "Content-Type:application/octet-stream; name=\"$file\"\r\n";
print "Content-Disposition: attachment; filename=\"$file\"\r\n\n";

open( FILE, $path );

while(read(FILE, $buffer, 100) )
{
print("$buffer");
}

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

フルパスの URL を指定してローカルPCにダウンロードさせるにはどうしたらいいのでしょうか？

回答No.1

kmee

ローカルPC上でAを実行する。
ローカルPCはPerlを使える状態にしておく。

[A] は、URLからローカルにダウンロードするものです。
サーバーで実行したら、そのサーバーにとってのローカル、ということで、サーバー上に保存されます。
ローカルPCで実行したら、ローカルPCにとってのローカル、ということで、ローカルPC上に保存されます。

[B]はCGIを使って、ローカルのファイルを送信するものです。
ローカルPCにダウンロード、となるのは、ブラウザが処理を判断したもので、このスクリプト自体には、ローカルPCに保存する機能はありません。
ブラウザの設定を変更すれば、ダウンロード以外の動作にもなります。