Serg Iakovlev

Perl своими конструкциями напоминает язык программирования C . Оператор require выполняет примерно ту же файловую функцию , что и си-шный #include. Perl поддерживает модульность . Директива use позволяет использовать готовые модули , которые представляют из себя файлы с расширением .pm и в заголовке которых стоит ключевое слово package. Пример :

 Создадим файл mypackage.pm и запишем в него следующий текст :
   
  package mypackage;
  require Exporter;
  @ISA = qw(Exporter);	
  @EXPORT = qw(myfunc);
  
   sub myfunc
  {
    print "myfunc";
  }

Теперь в другом файле достаточно сделать вызов :

     use mypackage;
     myfunc;

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

    system "date"

распечатает текущее время . Это же можно сделать другим способом :

 
    exec "date"

В перле есть понятие 'ссылка' аналогичное си-шному . Пусть нам дан массив из 10 чисел :

   @array = (1..10);

Создадим ссылку на него :

  $this_reference = \@named_array;

Распечатаем массив , передав ссылку на него в качестве параметра функции : unchomp($this_reference);

 sub unchomp 
 {
     my $ref = shift;
     for $element (@{$ref}) 
     {
       $element .= "\n";
       print $element;
     }
 }

Более того , можно создать массив из указателей и передать его в качестве параметра !

 @named_array2       = (11..20);
 $this_reference2 = \@named_array2;
 @this_reference_global = ($this_reference,$this_reference2);
   for $aref (@this_reference_global) 
   {
     unchomp($aref);
   }

В перле есть именованные массивы - хэши:

     $hash = {
        "fred" => "flintstone",
        "barney" => "rubble",
        "betty" => "rubble",
          };
 		 
    $game = {
        "fred" => [180, 150, 165],
        "barney" => [172, 190, 158],
 	     };
    print $hash->{"fred"}  ;

Оставьте свой комментарий !

Ваше имя:

Комментарий:

Оба поля являются обязательными

Автор	Комментарий к данной статье
max	Вот спасибо за статью!!! Очень помогла!!! 2006-08-01 21:20:27