- 481 名前：初心者スレ861 [2007/05/24(木) 16:32:39 ID:hyRyij45]
- 下記ＵＲＬのようなしだいでｐｅｒｌ初心者スレの方から紹介されて来ました
よろしくおねがいします。
pc11.2ch.net/test/read.cgi/php/1171102883/953-959
【 CGI&PHP名 】 なし 自作
【 配布先URL 】 自作
【 依頼期限 】 なし
【 依頼内容 】 CGIからファイルを製作するときに付けたファイル名(フォー
ムから環境変数を利用して送信）がすでにあるファイルと重複し
ていた場合の処理のつもりのプログラムの修正。以下ソース
#!/usr/bin/perl
$dir = "環境変数からファイル名を取得した値";
opendir(DIR , '.');
@view = readdir(DIR);
$xx = pop @view;
while ($xx = 0) {
if ($xx =~ /$dir/) {
print "すでにディレクトリが存在します";
}
$xx = pop @view;
}
print "elrr end";
