PHP4→5にアップグレードしたらコードが動きません。

質問

このコードを使うとエラーが出ます。PHP4の環境では問題なかったのですが、PHP5にしたとたんエラーが出てコードが動きません。このコードは指定のファイルをブラウザでダウンンロードできるスクリプトです。

プログラミング素人なのでどう直したらま動くようになりますか？？？

#!/usr/bin/perl -wT

use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);

my $files_location;
my $ID;
my @fileholder;

$files_location = "/home/user/public_html/static/file";

$ID = param('ID');

if ($ID eq '') {
print "Content-type: text/html\n\n";
print "You must specify a file to download.";
} else {

open(DLFILE, "<$files_location/$ID") || Error('open', 'file');
@fileholder = <DLFILE>;
close (DLFILE) || Error ('close', 'file');

open (LOG, ">>//home/user/public_html/dl.log") || Error('open', 'file');
print LOG "$ID\n";
close (LOG);

print "Content-Type:application/x-download\n";
print "Content-Disposition:attachment;filename=$ID\n\n";
print @fileholder
}

sub Error {
print "Content-type: text/html\n\n";
print "The server can't $_[0] the $_[1]: $! \n";
exit;
}

回答No.3

yyr446 · ベストアンサー

これぐらいなら、自動でなく人力でコンバートできるでしょ。
変換表は
http://www.cs.wcupa.edu/~rkline/perl2php/
でみつけました。
ちゃちゃと書き換えると
<?php
/*
#!/usr/bin/perl -wT
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
my $files_location;
my $ID;
my @fileholder;
*/
$files_location = "/home/user/public_html/static/file";
if ($ID == '') {
header("Content-type:text/html");
print "You must specify a file to download.";
}else {
$DLFILE = fopen("$files_location" . "/" . $ID, "r");
if($DLFILE){
$i=0;
while (!feof($DLFILE)) {
$fileholder[$i] = fgets($DLFILE);
i++;
}
fclose($DLFILE);
}else {
Error('open', 'file')
}
$LOG = fopen("//home/user/public_html/dl.log", "a+");
if($LOG){
fwrite($LOG,"$ID" . "\n");
fclose ($LOG);
}else{
Error('open', 'file');
}
header("Content-Type:application/x-download");
header("Content-Disposition:attachment;filename=" . $ID);
for($i=0;$i<count($fileholder);i++){
print $fileholder[$i];
}
}
function Error($_[0],$_[1]){
header("Content-type:text/html");
print "The server can't" . $_[0] . " the " . $_[1] . " !\n";
die;
}
?>
こんな感じになるので、デバッグしてね。

補足

変換までして頂いて、ありがとうございます！初心者なのでとてもたすかりあます！

回答No.5

UmJammer

ANo.2です。

補足説明ありがとうございました。
起こった現象について、私の知識・経験からでは回答を差し上げることはできそうにないです。
とりあえず、動かなくなったPerlスクリプトをどうにかするために、Perlのカテゴリで質問してみてはいかがでしょうか（その際はエラーの内容も貼り付けた方がよいでしょう）。
その中でこの現象についての原因が明らかになるかもしれません。

補足

ありがとうございます。やってみます！

回答No.4

yyr446

No3補足
大事なのが抜けてました。
$ID = param('ID');てのは、おそらく
$ID = $_REQUEST["ID"];
ですね。

回答No.2

UmJammer

PHPをバージョンアップしたらPerlのコードが動かなくなったということですか？
それとも別のサーバに移行したとかそういうことでしょうか。

補足

はいその通りです！PHP5にしたら何故か動かなくなりました

回答No.1

yyr446

「perlからphpへの自動変換」で検索してみればいかがでしょう

補足

検索してみました。自動変換してくれそうなページは見当たりません。私のミスかもしれませんが。。。