|
|
|
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=32591805&tid=1479615]: |
0ms |
get settings: |
11ms |
get forum list: |
18ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
45ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
55ms |
get tp. blocked users: |
2ms |
| others: | 252ms |
| total: | 407ms |

| 0 / 0 |
