【スクリプト改造依頼スレ】(丸投げ) part6

【スクリプト改造依� ..

488:初心スレ861(481)
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

次ページ