7 августа 2011 г. 23:24 пользователь Денис Ильиных
<greyhard@xxxxxxxxx> написал:
можно сделать так
opendir (CURDIR, $foldname) or dienow($r,"Ошибка при открытии каталога
$foldname: $!");
sub dienow {
my($r,$msg) = @_;
$r->print($msg);
return OK;
}
Большое спасибо. Работает! Правда, не совсем понятно зачем передавать в параметрах вызова переменную $r?
Наверное, она отвечает за место в пространстве браузера, куда будет выводиться текст?