Top > Perlあれこれ > PDFファイルダウンロード
Everything is expanded.Everything is shortened.
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
use strict;
use File::Basename;
 
my $filepath = "c:\\sample.pdf";
my $file = basename($filepath);
my $filesize = -s $filepath;
 
open(F,$filepath) || die "Can't open $filepath";
 
print "Content-type: application/pdf; 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: inline; filename=\"$file\"\n";
print "\n";
 
binmode(F);
binmode(STDOUT);
while(<F>) {print;}
close(F);
exit;

リロード   新規 編集 凍結解除 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2012-08-08 (水) 23:25:24 (2923d)