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

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

[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 回答日時： 2013/05/16 09:47

ローカルPC上でAを実行する。

ローカルPCはPerlを使える状態にしておく。


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


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