|
Perl копирование файлов
|
|||
---|---|---|---|
#18+
Подскажите плиз, кто знает!!! Пытаюсь скопировать перловым скриптом файлики, скрипт работает нормально, а если делаю из этого скрипта CGI, скрипт вылитает на строке my $dr = new DirHandle..... ----------------------------------------------------- foreach my $tempDir (@dirArray) { mkdir $outputDirectory . $SEPARATOR . $tempDir; my $dr = new DirHandle "$siteDirectory$siteName$SEPARATOR$tempDir"; if (defined $dr) { while (defined(my $filename = $dr->read)) { copy("$siteDirectory$siteName$SEPARATOR$tempDir$SEPARATOR$file name", "$outputDirectory$SEPARATOR$tempDir"); } } } ----------------------------------------------------- В чем может быть проблема? ... |
|||
:
Нравится:
Не нравится:
|
|||
06.07.2004, 15:35 |
|
Perl копирование файлов
|
|||
---|---|---|---|
#18+
а из какого это модуля ( DirHandle, copy ) ? а вообще проверь права на директории/файлы, то есть имеет ли ВЕБ сервер доступ к "$siteDirectory$siteName$SEPARATOR$tempDir" ... |
|||
:
Нравится:
Не нравится:
|
|||
06.07.2004, 16:24 |
|
|
start [/forum/topic.php?fid=23&msg=32591635&tid=1479615]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
79ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
others: | 14ms |
total: | 188ms |
0 / 0 |