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

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

481:初心者スレ861
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";

次ページ

続きを表示

1を表示