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
Последние статьи :
  Rust 07.11   
  Go 25.12   
  EXT4 10.11   
  FS benchmark 15.09   
  Сетунь 23.07   
  Trees 25.06   
  Apache 03.02   
  SQL 30.07   
  JFS 10.06   
  B-trees 01.06   
 
TOP 20
 Rubni-Corbet -> Глав...457 
 Go Web ...451 
 Trees...331 
 2.0-> Linux IP Networking...258 
 Secure Programming for Li...249 
 Stein-MacEachern-> Час...241 
 Plusquellic 1...225 
 Steve Pate 3...222 
 Mike Perry...213 
 Rubni-Corbet -> Глав...210 
 Ethreal 4...210 
 Стивенс 9...206 
 Rodriguez 6...206 
 Rubni-Corbet -> Глав...206 
 M.Pilgrim->Часть 3...192 
 Stewens -> IPC 7...192 
 Ethreal 1...191 
 2.6-> Kernel 2.6.19...191 
 Стивенс 5...190 
 Ethreal 3...188 
 
  01.09.2017 : 2280876 посещений 

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