Perl BBS掲示板 サーバ側のファイル削除

質問

いつもお世話になっております。
サーバ側のファイルを削除したいのですが、
どのようにすればいいのでしょうか・・・？

#-----------------------------------------DELETE
sub deletedata
{
use CGI;
my $form = new CGI;
my $tm = time;
my $DELETE = $form->param('pass');
my $NO = $form->param('no');
my $NAME = TransFormdata($form->param('name'));
my $TITLE = TransFormdata($form->param('title'));
my $TEXT = TransFormdata($form->param('text'));
my $img = TransFormdata($form->param('img'));

open(FILE, "<$FILE") or die("error :$!");
eval{ flock(FILE, 1) };
@DATA = <FILE>;
close FILE;
my $DELETE = $form->param('pass');
my $NO = $form->param('no');
if(length $NO == 0)
{}
elsif($DELETE eq $PASSWORD)
{
deleteImg($NO);
splice @DATA, $NO, 1;
}

else{}
open(FILE, ">$FILE") or die("error :$!");
eval{ flock(FILE, 2) };
print FILE @DATA;
close FILE;
&endform
}

#-----------------------------------------DELETE

#-----------------------------------------UPFILEDELETE
sub deleteImg
{

my ($NO,$tm,$NAME,$TITLE,$TEXT,$imgname) = split(/,/, $DATA[$_[0]]);
$filename = $DIR . $imgname;
if(-e $imgname) {
unlink $filename;
}
}
#-----------------------------------------UPFILEDELETE

ラジオボタン選択
↓
パスワード入力
↓
削除ボタン
↓
削除

この段階で
テキストファイルの指定行は削除されているのですが、
画像が投稿され、サーバー側に残っているファイルも削除させたいのです。
Unlinkを使うとなっていたのですが・・・わからないです。

どうかご教示お願い致しますm(；；)m

回答No.1

chie65535 · ベストアンサー

＞サーバー側に残っているファイルも削除させたいのです。

sub deleteImg
の中で
my ($NO,$tm,$NAME,$TITLE,$TEXT,$imgname) = split(/,/, $DATA[$_[0]]);
$filename = $DIR . $imgname;
の２行で「消すべき画像のファイル名」を作成して
if(-e $imgname) {
のif分で、そのファイル名のファイルが存在しているか確認して、存在しているなら
unlink $filename;
で、サーバー上からそのファイルを削除しようとしているけど、判定するファイル名が間違っているのでバグっている。

if(-e $imgname) {
ではなくて
if(-e $filename) {
なのではないか？

$imgnameには「ファイル名だけ」しか入ってないから、if文は「そのファイルは無い」と判断しちゃうと思う。

お礼

ありがとうございました。
なぜか、拡張子が読み取れていなかったみたいで、
sub deleteImg
{

my @delete = split(/,/, $DATA[$_[0]]);
@arry=(".gif",".png",".jpg");
for ( @arry ) {
$filename = $DIR . $delete[0] . $_;
if(-e $filename) {
unlink $filename;
}
}
}

とりあえずこのように記述することで、解決できました

補足

ご回答ありがとうございます

初めそうではないかと思い、filenameでしてたのですが、うまくいかなかったです・・・

ファイル名が間違っているということは
そもそもフォルダ自体間違ってる可能性もあるということでしょうか？

$DIR　＝　サーバーのフルパスをしてます。