ファイルの削除について ( unlink )

質問

perl プログラミング ２日目の初心者です。
以下のようなスクリプトを書いて test.cgi とかで

$del_count = unlink glob("msg-*.txt");

保存し、ブラウザーでアクセスすると、ちゃんと
ファイルが削除されるのですが、

シェル上で実行すると、以下のようなメッセージ

glob failed (child exited with status 1) at test.cgi line 5.

とか出て削除ができないのです。
パーミッションも 755 とかで試したのですが、
どうしてなのでしょうか・・・うんうん煮詰まって
います。

回答No.4

ide1 · ベストアンサー

おっしゃるように権限でしょうか...。
だとすると、シェルでWebサーバの実行ユーザ(多分wwwかnobody)を使って動かすとうまくいくのでしょうか？
※マシン管理者の協力がいりますが...。
－－－－－－－－－－－－－－－－－－－－－－－－
globe() と unlink() を分けるとどちらでエラーに
なるのでしょうか？

#!/usr/local/bin/perl
$a = glob("msg-*.txt");
$b = unlink("msg-1.txt");
－－－－－－－－－－－－－－－－－－－－－－－－
ほとんど可能性はないですが、リソース不足(メモリ、DISK)ということもあるかもしれません。
ちなみに私のPerlの環境は
This is perl, v5.6.1 built for sun4-solaris
です。
glob(),unlink()はきちんと動きます。

お礼

本件、無事解決しました。
親身になってご回答くださり、本当にありがとうござい
ました。
どうやってもラチあかないのでサーバーの管理者に
泣きをいれたところ、なにやら設定に問題があった
ようです。
ユーザーが同時にアクセスできるファイル数を２倍に
した、とかでちゃんと削除できることを確認しました。
・・・こんな些細なことにとにかく何日も時間を
費やしてしまいましたが、これも経験になりました。
気持ちのこもったアドバイスに、感謝いたします。

回答No.3

ide1

Perlのバージョンがperl4 ということはないでしょう
か？
glob()はPerl5から追加されたようですので。
調べましたところ、参考URL「Perl日本語マニュアル」
の下の方に表があり１番先頭のの「Perl5で追加された
新機能等」に書いてありました。

perlのバージョンは -v オプションでわかります。
例えば
/usr/local/bin/perl -v
です。
－－－－－－－－－－－－－－－－－－－－－－－－
なお、"msg-*.txt" のモードが何であれ、
エラーにはならないです。しかし、"msg-*.txt"
のパーミッションは666 が妥当です。
－－－－－－－－－－－－－－－－－－－－－－－－
参考ですが、<*>を使うと、glob()と同様のことを
行えます。
$del_count = unlink <msg-*.txt> ;
ただし、<*> を使えない関数があるかもしれません。
その場合、glob()を使わざるを得ないと思います。
できるだけglob()を使った方がプログラムの保守が
楽になるように思えます。

参考URL：

http://www.harukaze.net/~mishima/perl/man/index.html

補足

ＵＲＬまでご紹介いただいてありがとうございます。
教えていただいコマンドで調べてみたら、

This is perl, version 5.005_03 built for i386-freebsd

と出ましたので、バージョンはたぶん５ のようです。
それでも、ＩＥでアクセスするときちんと削除できる
ので、やはりシェル上での実行権限にからんでくる
ような気がしてます。しかし原因がわからない。。。
こんなところで詰まって何日も先に進まないのが
悔やまれます。

回答No.2

ide1

自信はありませんが、
シェル上で動かないのは、シェルスクリプトとして
実行されてしまっているからかもしれません。

シェル上で明示的に /usr/local/bin/perl test.cgi
としても動きませんか？
(ただし環境によっては /usr/local/bin/perl では
なく、例えば/usr/bin/perl のようにしないといけ
ません。)

もし、これで動き、かつ、ファイルのモードがあって
いるのでしたら、test.cgi の1行目が間違っていると
思います。

UNIXのスクリプト(perl,sh,csh,awk,sedなど)では、
１行目にスクリプトを実行するコマンドのパスを記述
しますが、perl でしたら、次のようになっている必
要があります。
(記述例) #!/usr/local/bin/perl
－－－－－－－－－－－－－－－－－－－－－－－－－
ちなみに、ブラウザで動く理由は、Webサーバの設定で、
CGIは全てPerlで動かす、という設定がされている
ことになります。
－－－－－－－－－－－－－－－－－－－－－－－－－

補足

おっしゃるように、パスをしっかり書いて、かつ
実行ユーザーを確かめてやってみました。
やはり消えないようです。
Shell 上で、rm msg-*.txt とやるとちゃんと消える
ようです。
どうもありがとうございました。もうちょっと
がんばってみます。

回答No.1

alfeim

scriptの実行ユーザが違うからではないですか？

cgi経由で実行する場合、scriptの実行者はhttpdの実行uidで実行されます(wwwとかnobodyとかdaemonとか・・・httpdの設定によります)。

それに対してshellから実行する場合、現在のuidで実行されるのですからパーミッションが755の場合、ファイルオーナーでないと削除できません。

shellから該当ファイルをls -alFとかして、ファイルオーナーを確認してみてはいかがでしょうか？

お礼

本件、解決しました。
アドバイスくださり、本当にありがとうございました。
どうやってもラチあかないのでサーバーの管理者に
泣きをいれたところ、なにやら設定に問題があった
ようです。

補足

おっしゃるように、実行ユーザーを確かめてみました。
ログインユーザーと間違いはありません。
ちなみに、Shell 上で、rm msg-*.txt とやると
きっちり消えるようです。
どうもありがとうございました。もうちょっと
がんばってみます。