07/05/25 08:21:18 1LPPhSSe
>>482
レスありがとうございます。速攻で >>487 さんが解決してくれました＾＾
目的はフォルダ(ﾃﾞｨﾚｸﾄﾘｨ)を作るときにすでに同じ名前のディレクトリがあれば
処理を中止して「すでに同じフォルダが存在します」とＨＴＭＬで出力することでした。
>>487
すばらしいrpmを環境変数から読み込んだデーターを入れた変数とおきかえればいいのですね？
それにしてもオイラの打ったものはなぜ動かなかったのだろう｡｡｡以下自力改良版
!/usr/bin/perl
print "Content-type: text/html", "\n\n";
$dir = "ここに環境変数から入力された名前をいれる";
opendir(DIR , '.');
@view = readdir(DIR);
$xx = pop @view;
while ($xx = 0) {
if ($xx eq $dir) {
print "すでにディレクトリが存在します";
exit;
}
$xx = pop @view;
}
print "elrr end";
print $xx;
print $dir;
結局自力のは動きませんでしたorz