Search     or:     and:
 LINUX 
 Language 
 Kernel 
 Package 
 Book 
 Test 
 OS 
 Forum 
 iakovlev.org 
 Languages
 С
 GNU С Library 
 Qt 
 STL 
 Threads 
 C++ 
 Samples 
 stanford.edu 
 ANSI C
 Libs
 LD
 Socket
 Pusher
 Pipes
 Encryption
 Plugin
 Inter-Process
 Errors
 Deep C Secrets
 C + UNIX
 Linked Lists / Trees
 Asm
 Perl
 Python
 Shell
 Erlang
 Go
 Rust
 Алгоритмы
NEWS
Последние статьи :
  Эльбрус 05.12   
  Алгоритмы 12.04   
  Rust 07.11   
  Go 25.12   
  EXT4 10.11   
  FS benchmark 15.09   
  Сетунь 23.07   
  Trees 25.06   
  Apache 03.02   
  SQL 30.07   
 
TOP 20
 Part 4...580 
 Part 3...566 
 Kamran Husain...352 
 Secure Programming for Li...249 
 Trees...244 
 2.0-> Linux IP Networking...238 
 Ext4 FS...229 
 Rodriguez 6...219 
 Stein-MacEachern-> Час...219 
 Steve Pate 3...204 
 Стивенс 9...198 
 Advanced Bash Scripting G...197 
 Ethreal 1...194 
 William Gropp...191 
 Cluster 4...191 
 Instructions 2...185 
 Kamran Husain...182 
 Python...182 
 Gary V.Vaughan-> Libtool...182 
 K&R 2...181 
 
  01.12.2020 : 3018131+ посещений 

iakovlev.org
Этот сайт написан на perl .
Необходимый минимум пакетов :
   Perl 
   Apache
   MySQL 
   Mozilla
     
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