2008年03月16日

ファイルダウンロード処理(Perl)

Perlでファイルダウンロードを行います。


#!"C:\xampp\perl\bin\perl.exe"
use strict;
use File::Basename;

my $filepath = "c:\\okinawa.csv";
my $file = basename($filepath);
my $filesize = -s $filepath;

open(F,$filepath) || die "Can't open $filepath";

print "Content-type: application/octet-stream; name=\"$file\"\n";
print "Content-Length: $filesize\n";
print "Expires: 0\n";
print "Cache-Control: must-revalidate, post-check=0,pre-check=0\n";
print "Pragma: private\n";
print "Content-Disposition: attachment; filename=\"$file\"\n";
print "\n";

binmode(F);
binmode(STDOUT);
while(<F>) {print;}
close(F);
exit;


良かったらクリックお願いします→banner_01.gif

posted by 台北猫々 at 19:08| Comment(0) | TrackBack(0) | 技術メモ(Perl)
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのトラックバックURL
http://blog.sakura.ne.jp/tb/12556782

この記事へのトラックバック