Определить размер массива (количество элементов в нём) и извлекать отдельные элементы

Категория: Perl
2011-08-23 23:11:35
code: #perl
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4.  
  5. if(@ARGV==2 or @ARGV==3)
  6. {
  7.     $from=shift;
  8.     $to=pop;
  9.     $step=@ARGV? shift: 1;
  10. }
  11. else
  12. {
  13.     die "Должно быть два или три числовых параметра!\n";
  14. }
  15.  
  16. for($i=$from; ($step>0)? $i<=$to: $i>=$to; $i+=$step)
  17. {
  18.     print "$i\n";
  19. }
Поделиться:

Похожие статьи:

теги: массив