Forum Webscript.Ru

Программирование => Perl => Тема начата: norden от 05 Сентября 2003, 19:52:49

Название: странное поведение подпрограммы
Отправлено: norden от 05 Сентября 2003, 19:52:49

Есть подпрограмма:

sub extr_dir {

$v = shift;

@tree = <$v>;

return @tree;

}

При обращении @tree = &extr_dir("*.*") массив @tree оказывается пустым. Если для теста набить в extr_dir массив какой-нибудь фигней, то он прекрасно передается. Вывод: листинг директорий () в подпрограмме не работает. Кто-нибудь знает почему?

Название: странное поведение подпрограммы
Отправлено: Phoinix от 05 Сентября 2003, 20:04:25

Кажися проще просто вызвать так:

&extr_dir(@tree);

sub extr_dir {
...bla, bal, bla...
@_[0] = <$v>;
}

Цитировать

Вывод: листинг директорий ( ) в подпрограмме не работает. Кто-нибудь знает почему

У меня работает нормально... вот только в коде я не вижу где бы используешь это выражение...