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
Последние статьи :
  Тренажёр 16.01   
  Эльбрус 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   
 
TOP 20
 Stein-MacEachern-> Час...121 
 Rodriguez 8...107 
 2.0-> Linux IP Networking...64 
 Secure Programming for Li...59 
 Trees...58 
 Числа...55 
 Kamran Husain...55 
 NASM...53 
 Rubni-Corbet -> Глав...53 
 Advanced Bash Scripting G...52 
 William Gropp...52 
 Системные выз...52 
 Input/Output...51 
 Robbins 3...51 
 Steve Pate 1...51 
 Advanced Bash Scripting G...50 
 OS-FAQ 1...50 
 Kamran Husain...50 
 Frolov 5...50 
 Rubni-Corbet -> Введ...50 
 
  01.09.2021 : 3161766 посещений 

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