ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  14 Aug 2000  15:00:17
 To : klum@nm.ru
 Subject : Re: Вопрос о массиве файловых дескрипторов
 -------------------------------------------------------------------------------- 
 

 knr> Я недавно изучаю Perl, так что заранее извиняюсь за возможную чайниковость
 knr> вопроса.
 knr> Hадо создать массив файловых дескрипторов, но при этом не хотелось бы
 knr> использовать no strict 'refs' как в подобном случае:
 
 knr> use strict;
 knr> no strict 'refs';
 knr> for($i=0; $i<20; $i++)
 knr> {    $fda[$i] = 'MYFD'.$i;
 knr>       open ($fda[$i], .... );
 knr> }
 
 knr> Так вот, интересно, как можно обойтись без no strict 'refs' ?
 
 use Symbol;
 
 $sym = gensym;
 open($sym, "filename");
 
 Hу и далее делай массив из $sym'ов.
 
 Можно обойтись без модуля Symbol, но придется изучить это нутро.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор