Языковые конструкции Perl

Основные понятия

1. Используя бэкслэш оператор перед переменной, подпрограммой или простой константой. (Это работает почти как & - создается еще одна ссылка, так как одна уже существует в символьной таблице.)

   $varref = \$foo;    $arref = @ARGV;    $hashref = \%ENV;    $coderef = \&handler;

2. Ссылка на массив может быть создана с использованием квадратных скобок:

   $arrayref = [1,2,['a','b','c']];

   По адресу $arrayref[2][1] будет храниться значение b.
3. Ссылка на произвольный хэш может быть создана с использованием фигурных скобок:

   $hashref = {        'Earth' => 'Moon',        'Jupiter' => 'Kallisto',        ...    };

4. Ссылка на подпрограмму может быть создана с использованием слова sub, без определения имени подпрограммы:

   $coderef = sub { print "Hello!\n" };

5. Ссылки часто возвращаются конструкторами. Объекты Perl на самом деле являются ссылками на специальную сущность, которая знает, какой пакет ассоциировать с объектом. Конструкторы это специальные подпрограммы, которые умеют создавать эту ассоциацию.

1. Можно сделать идентификатор ссылки частью имени переменной или подпрограммы:

   $bar = $$scalarref;    push(@$arrayref,$filename);    $$arrayref[0] = "January";    $$hashref{"key"} = "value";    &$coderef(1,2,3);        $refrefref = \\\"how are you?";    print $$$$refrefref;

   - напечатает ``how are you?''.
   Нужно понимать, что раскрытие ссылки имеет более высокий приоритет, чем извлечение значения переменной.
2. Можно поступить как и в предыдущем случае, но заключить выражение после знака $в фигурные скобки. Приведенный пример тогда будет выглядеть таким образом:

   $bar = ${$scalarref};    push(@{$arrayref},$filename);    ${$arrayref}[0] = "January";    ${$hashref}{"key"} = "value";    &{$coderef}(1,2,3);

   В данном случае использование фигурных скобок ничего не меняет, но в общем случае в скобках может стоять произвольное выражение, даже подпрограмма:

   &{ $dispatch{$index} }(1,2,3);

3. В случае массива или хэша можно использовать такую запись:

   $arrayref->[0] = "January";    $hashref->{"key"} = "value";

   Левая часть должна быть выражением, возвращающим ссылку, возможно также являющуимся раскрытием ссылки:

   $array[$x]->{"foo"}->[0] = "January";

4. Если ссылка является ссылкой на объект, то раскрытие данных происходит также, как уже было описано выше.

Символьные ссылки

 ?    $name = "foo";    $$name = 1;   - то же самое, что $foo = 1;     ${$name} = 2; - то же самое, что $foo = 2;    ${$name x 2 } = 3; 	 -то же самое, что $foofoo = 3;    $name->[0] = 4; 	 -то же самое, что $foo[0] = 4;    @$name = ();  - обнуляет массив @foo    &$name();  - вызывает &foo    

Регулярные выражения

 ?    * 	  соответствует 0 или более вхождений    + 	  соответствует 1 или более вхождений    ? 	  соответствует 1 или 0 вхождений    {n}  соответствует ровно n вхождений    {n,}  соответствует по крайней мере n вхождений    {n,m}  соответствует по крайней мере n,                  	 но не более m вхождений    

 ?    \l 	 - передвижение на символ вниз    \u  - передвижение на символ вверх    

 ?    \w  - соответствуют алфавитные и цифровые                  	  символы а также символ подчерк    \$W  - соответствуют все символы не входящие           во множество символов w    \s  - символы пробела, табуляции, возврата каретки    \S  - все символы не входящие во множество символов     s    \d  - цифровые символы    \D  - нецифровые символы    

 ?    \b  - соответствуют границы слова    \B  - соответствуют не-границы слова    \A  - соответствуют только начало строки    \Z  - соответствуют только конец строки    

  $_ = 'abcdefghi';      /def/;      print "$`:$&:$'\n"; - напечатает abc:def:ghi

Зарезервированные переменные

  while(<>){...}

  while($_= <>) {...}

  sub handler {          local($sig) = @_;          print "Caught a SIG$sig - shutting down\n";          close(LOG);          exit(0);      }          $SIG{'INT'} = 'handler';      $SIG{'QUIT'} = 'handler';      ...      $SIG{'INT'} = 'DEFAULT';      $SIG{'QUIT'} = 'IGNORE';

Встроенные функции

  ($package, $filename, $line) = caller;

  ($package, $filename, $line,       $subroutine, $hasargs, $wantargs) = caller($i);

  $cnt = chmod 0700 'foo','bar';      chmod 700 @executables;

  open(OUTPUT '/usr/home/petrov');      ...      close OUTPUT;

  dbmopen(%HIST,'/usr/lib/news/history', 0600);      while (($key, $val) = each %HIST){          print $key, '=', unpack('L',$val),\n;}      dbmclose(%HIST);

  foreach $key (keys %array) {         delete $array{$key};      }

  open(FL, "/root/rm-rf") || die "Can't open file.\n";

  do 'stat.pl';

  eval 'cat stat.pl';

  while (($key,$value) = each %ENV){      print " $key = $value \n";      }

  $ans = <STDIN>;      exit 0 if $ans =~ /^[Xx]/;

  unless ($pid = fork) {          unless (fork) {              exec "what you really wanna do";              die "no exec";              some_perl_code_here;              exit 0;          }          exit 0;      }      waitpid($pid,0);

  $_ = join( ':',$login,$passwd,      $uid,$gid,$gcos,$home,$shell);

  @keys = keys %ENV;

  sub RANGEVAL{          local($min,$max,$thunk) = @_;          local $result = '';          local $i;          for ($i = $min; $i < $max; $i++) {              $result = eval $thunk;          }          $result;      }

  @chars = map(chr, @nums);

   line: while (<STDIN>) {       next line if /^#/;       ...       }

 ?    <  файл открывается на чтение.    >  файл открывается на запись.    >>  файл открывается для добавления.    |   имя файла расценивается как команда,        с которой будет организован программный канал,        то есть вывод в дескриптор FILEHANDLE будет        передаваться на вход программе EXPR.    

  open(LOG, '>>/usr/spool/news/twitlog');

  line: while(<STDIN>) {          while ($_ ne '\') {    	if (ord $_ < 86) {    	  ...    	}    	redo line;          }          print;       }

• REF
• SCALAR
• ARRAY
• HASH
• CODE
• GLOB

  if (ref($r) eq "HASH") {          print " Это ссылка на ассоциативный массив.\n";      }      if (!ref($r)) {          print " А это не ссылка вовсе! \n";

  require "oraperl.pm";

 ?    reset 'X'  переустановит все X переменные    reset 'a-z'  переустановит все переменные,    имена которых состоят из маленьких букв.    

    @articles = sort @files;

  @articles = sort{$a cmp $b} @files;

  @articles = sort{$a <=> $b} @files;

  print join(':',split(/ */,'hi there'));

  tie(%HIST, NDBM_File,'/usr/lib/news/history', 1, 0);      while(($key,$val) = each %HIST) {          print $key, '= ', unpack('L',$val),"\n";      }      untie(%HIST);

  use strict qw(subs,vars,refs);

Подпрограммы и модули

Подпрограммы

1. sub NAME; - подразумевает описание в дальнейшем тела подпрограммы.
2. sub NAME BLOCK - непосредственное описание.
3. $subref = sub BLOCK - анонимное описание.
4. use PACKAGE qw(NAME1, NAME2, NAME3) - включение подпрограмм из модулей.

1. &NAME(LIST) - скобки обязательны для & формы.
2. NAME(LIST) - & не обязательно со скобками.
3. NAME LIST - скобки можно опустить в случае предварительного описания или включения подпрограммы из модуля.

  sub MAX {          my $max = pop(@_);          foreach $foo (@_) {              $max = $foo if $max < $foo;          }          $max;      }      ...      $bestmark = &MAX(1,2,3,4,5);

  my $subref = sub {...}      &$subref(1,2,3);

Пакеты

package mypack;    sub main::mysub {        ...    }

Таблицы символов

Конструкторы и деструкторы пакетов

Классы

Модули

  use Module; или use Module LIST;

  BEGIN { require "Module.pm"; import Module; }