07/05/24 16:32:39 hyRyij45
下記ＵＲＬのようなしだいでｐｅｒｌ初心者スレの方から紹介されて来ました
よろしくおねがいします。
ｽﾚﾘﾝｸ(php板: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";