ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Maxim Goncharov                      2:5064/17.776  17 Jul 2002  18:27:16
 To : Vladimir Podgorny
 Subject : Re: Помогите
 -------------------------------------------------------------------------------- 
 

 
 Hi Vladimir Podgorny, hope you are having a nice day
 1:  my $hd = '1,3-9,15-22,25';
 2:  $hd =~ s/-/../g;
 3:  my @array = @{(eval"[$hd]")[0]};
 4:  print join ' ', @array, "\n";
 
    Довольно прикольно. А что означает [0] в 3 строчке ведь и без него всё
   работает.
    А можно вообще без ссылок(без аноноимных массивов), типа 3 строка:
 
  3: my @array=eval "(hd)";
 
  -=> Yours sincerely, Maxim Goncharov <=-
 
 --- Terminate 5.00/Pro 
  * Origin: The NEW Terminate will -=> FAX <=- almost anything! (2:5064/17.776)
 
 

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

Тема:    Автор:    Дата:    Помогите   Vladislav A. Shugarov   16 Jul 2002 10:28:41   Re: Помогите   Vladimir Podgorny   16 Jul 2002 10:50:09   Re: Помогите   Maxim Goncharov   17 Jul 2002 18:27:16