Вопрос чайника - не могу найти имя файла

[z3f]

Проблем такая  - елси есть файл тогда делать одно действие если файла в директории нет - тогда другое.
Принципиально выглядит так:
if (file_exist){делать это} else {делать другое}
Не могу написать правльный код для file_exist!!!!!
Делаю так (через ж...):
@ar=<${bilet}/${vopros)m.txt>;
if ($#ar!=0){while () {print;}}
Код не работает!

Что делать?

С уважением z3f.

[Chs]

perldoc -f -e

[z3f]

Сделал=(
=item I<-X> FILEHANDLE
=item I<-X> EXPR
=item I<-X>

    -e   File exists.

И как это использовать? Примерчик бы..... хоть какой либо....

[vladsu]

Можно, например, так:

Код: [Выделить]


use strict;

my $file = \'AUTOEXEC.BAT\';

chdir \'c:/\';

print "yes" if grep{/$file/} <*>;

или

Код: [Выделить]


use strict;

opendir DIR,\'c:/\';
my $file = \'AUTOEXEC.BAT\';

while (my $f = readdir DIR) {
       print \'yes\' if $file eq $f;
}

или

Код: [Выделить]


use strict;

print \'yes\' if -e \'c:/AUTOEXEC.BAT\';


[z3f]

Дык в том то вся и проблема, что нет возможности указать имя файла напрямую=(
имя файла примерно выглядит так ${vopros)m.txt
а имя папки в которой он находится - это так $bilet
и целиком это выглядит так ${bilet}/${vopros)m.txt
Если бы была возможность указать имя напрямую - я это давно бы сделал=((((

[vladsu]

use strict;

my $bilet = \'c:/\';
my $vopros = \'1\';

print \'yes\' if -e "${bilet}/${vopros}m.txt";

[z3f]

Делаю:
if (-e, "${bilet}/${vopros}m.txt") {while () {print \'                                print "$num".\'">\';
                                print " $_ \\n";
                                print "
";
                                $num++;}}
                                else {while (){print \'                                print "$num".\'">\';
                                print " $_ \\n";
                                print "
";
                                $num++;}}

В страничке такой код выкидывает только радиобуттоны - вне зависимости от того есть файл с именем ${bilet}/${vopros}m.txt или его нет! То есть в любом случа выполняет только первое условие=( Проверено...
Почему так???

С уважением z3f.

[vladsu]

use CGI;

[vladsu]

И где Вы в

Код: [Выделить]

print \'yes\' if -e "${bilet}/${vopros}m.txt";

запятую узрели?

[z3f]

Каюсь - слепой и тупой....
Заработало!
Спасибо громадное!!!!!!


С уважением z3f.