Подскажите, люди добрые, как на перле в рекурсивной подпрограмме лучше файлы открывать?
Идентификатор файла действует глобально и поэтому каждый раз портится;
что-то вроде
open (++$dat,"< $name");
...
&pars($dat);
...
close $dat- -;работает внешне правильно ($dat глобальная переменная), но что-то я сомневаюсь...
Cobold.
Чувак, чисто по теме никогда в рекурсии не юзай регэкспы на перлухе.
P.S. а my?
>Чувак, чисто по теме никогда в
>рекурсии не юзай регэкспы на
>перлухе.
>P.S. а my?Не совсем по теме вообще-то, то все равно спасибо :)
A ti otkuda budesh, Cobold,
ja tebja znaju?
>A ti otkuda budesh, Cobold,
>ja tebja znaju?Еще бы ;)
Юзай так:local *++$dat; #локальный для итерации дескриптор
open ($dat,"< $name");
>...
>&pars($dat);
>...
>close $dat- -;