Perl

Содержание

• От простого к сложному
• Запуск интерпретатора Перл
• Синтаксис
• Переменные
• Встроенные переменные Перл
• Регулярные выражения (шаблоны)
• Операторы и приоритеты
• Встроенные функции
• Группа системных вызовов
• Подпрограммы
• Модули (packages)
• Форматы
• Отладка Перл программ

От простого к сложному

Пример 1 Введите в файл test1.pl следующие строки:

#!/usr/local/bin/perl
# Содержимое файла test1.pl
print "Наше Вам с кисточкой!\n";

#!/usr/local/bin/perl

# Содержимое файла test1.pl

print "Наше Вам с кисточкой!\n";

chmod +x test1.pl

which perl

test1.pl

./test1.pl

Пример 2 Данная программа выводит на экран все ваши секреты. А именно файл /etc/passwd.

#!/usr/local/bin/perl
open(PASS, "</etc/passwd") || die "Файл не найден!";
while(<PASS>)
    {
    print;
    }
close(PASS);

open(PASS, "</etc/passwd") || die "Файл не найден!";

while(<PASS>)

{

print;

}

close(PASS);

Пример 3 Разделенеие полей.

#!/usr/local/bin/perl
open(PASS, "</etc/passwd") || die "Файл не найден!";
while(<PASS>)
  {
($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
print "$login \t $name\n";
  }
close(PASS);

($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');

print "$login \t $name\n";

Пример 4 Вывести имена пользователей отсортированных по группам.

#!/usr/local/bin/perl
open(PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "Файл не найден!";
while(<PASS>)
    {
    ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
    print "$login \t $gid \t $name\n";
    }
close(PASS);

open(PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "Файл не найден!";

#!/usr/local/bin/perl

open(PASS, "sort -n -t : +3 -4 +0 /etc/passwd|") || die "Файл не найден!";
while(<PASS>)
    {
    ($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');
    write();	# Форматированный ывод данных.
    }
close(PASS);
exit 0;		# Завершение программы

############ Описание формы вывода ##################

format STDOUT =

Пользователь: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
				$name
              ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                $name
              ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                $name

Login:@<<<<<<<<   Uid:@<<<  Gid:@<<<  Home dir:@<<<<<<<<<<<<<<<<<<<<<
      $login,         $uid,     $gid,          $home_dir


.	# Это последняя строка программы

Пользователь: Калужский ликеро-водочный завод. Лучшие водки и
              настойки. Звонить только перед праздником Кострикову
              Анатолию т. 2-23-06,,,

Login:uucryst     Uid:1055  Gid:66    Home dir:/var/spool/uucppublic/

Пользователь: Торговый Дом Дилен,,,

Login:uudilen     Uid:1075  Gid:66    Home dir:/var/spool/uucppublic

Запуск интерпретатора Перл

Синтаксис:

perl [ключи] файл аргументы

1. В командной строке если указан ключ '-e'
2. Содержимое файла указанного в командной строке. В первой строке можно указывать #!/usr/bin/perl для "автоматического" запуска скрипта.
3. Стандартный ввод/вывод если не указан файл или аргументы содержащие имя файла. Для передачи аргументов скрипту из стандартного потока имя файла в командной строке обозначается символом '-'.

Ключи:

-Oцифры

-a

-c

-d

-Dчисло или Dсписок

	1	p	Синтаксический разбор
	2	s	Состояние стека
	4	l	Состояние стека имен
	8	t	Трассировка исполнения
	16	o	Создание оператора узла
	32	c	Строковое/числовое преобразование
	64	p	Вывод команды препроцессора для -P
	128	m	Распределение памяти
	256	f	Обработка формата
	512	r	Синтаксический разбор регулярных выражений
	1024	x	Дамп синтаксического дерева
	2048	u	Проверка защиты
	4096	L	"Утечка" памяти
	8192	H	Дамп хеша
	16384	X	Распределение scratchpad
	32768	D	Очистка

-e команда

-F шаблон

-iрасширение

	perl -p -i.old -e "s/рядовой/ефрейтор/" file

-Iдиректория

-lчисло

1. Отбрасывает последний символ читаемых строк для режимов -n и -p
2. Присваивает указанное значение переменной $\. Таким образом к концу каждой строки выводимой оператором print добавляется этот символ.

-n

-p

-P

-s

-S

-T

-u

-U

-v

-w

-x директория

Синтаксис

Декларации (объявления).

sub test;	# Декларация подпрограммы test

$var1 = test $0; # Использование как оператора списка.

Простое предложение.

if EXPR
unless EXPR
while EXPR
until EXPR

if EXPR

$var = 1;
$var2 = 3 if $var > 0; # Результат: $var2 = 3

while EXPR

$var = 1;
print $var++ while $var < 5; # Печать $var с инкрементом

until EXPR

$var = 1;
print $var++ until $var > 5; # Печать $var с инкрементом

unless EXPR

$var = 1;
print $var++ unless $var > 5; # Печать $var с инкрементом

Сложные предложения.

	if (EXPR) BLOCK
	if (EXPR) BLOCK else BLOCK
	if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK

	LABEL while (EXPR) BLOCK
	LABEL while (EXPR) BLOCK continue BLOCK
	LABEL for (EXPR; EXPR; EXPR) BLOCK
	LABEL foreach VAR (LIST) BLOCK
	LABEL BLOCK continue BLOCK

if (EXPR) BLOCK

	$var =1;
	if ($var == 1)
	   { print $var,"\n";
	   }

if (EXPR) BLOCK else BLOCK2

	$var =2;
	if ($var == 1)
	   { print "\$var = 1\n";
	   }
	else
	   { print "\$var не равно 1\n";
	   }

if (EXPR1) BLOCK1 elsif (EXPR2) BLOCK2 ... else BLOCK

	$var = 1;
	if ($var == 0)
	   { print "\$var = 0\n";
	   }
	elsif ($var == 1)
	   { print "\$var = 1\n";
	   }
	else
	   { print "Не известное \$var\n";
	   }

Операторы управления циклом.

	M1:
	while ($i < 6)
	    {
	    ++$i;	# Увеличиваем счетчик на 1
	    next M1 if $i < 3; # Переходим в начало если $i < 3
	    ++$i;	# иначе увеличиваем счетчик еще раз на 1
	    }
	continue
	    {
	    print "$i "; # Печатаем $i
	    }

        M1:
        while ($i < 6)
            {
            ++$i;       # Увеличиваем счетчик на 1
            last M1 if $i > 3; # Выход из цикла если $i > 3
            ++$i;       # иначе увеличиваем счетчик еще раз на 1
            }
continue {
            print "$i "; # Печатаем $i
}

        M1:
        while ($i < 6)
            {
            ++$i;       # Увеличиваем счетчик на 1
            redo M1 if $i == 3; # Далее пропустить для $i = 3
            ++$i;       # иначе увеличиваем счетчик еще раз на 1
            }
continue {
            print "$i "; # Печатаем $i
}

Цикл for.

	LABEL for (EXPR1; EXPR2; EXPR3) BLOCK

	for ($i = 2; $i < 5; ++$i)
           {
           print $i, " ";
           }
        print "\nПосле цикла i = $i\n";

Цикл foreach.

	LABEL foreach VAR (LIST) BLOCK

        @месяц = ("январь","февраль","март");  # Создали массив
        foreach $i (@месяц)
            {
            print $i," ";       # Печать $i
            }

        @месяц = ("январь","февраль","март");  # Создали массив
        foreach $i (@месяц)
            {
            $i = uc($i); # Перевели в верхний регистр
            }
        print @месяц;

	for $i (3,5,7)
	    {
	    print "$i ";
	    }

Блоки и оператор switch.

	SWITCH:
	{
	if ($i ==1 ) { .....; last SWITCH; }
	if ($i ==2 ) { .....; last SWITCH; }
	if ($i ==3 ) { .....; last SWITCH; }
	$default = 13;
	}

Оператор goto.

	goto ("M1", "M2", "M3")[$i];

POD операторы. Документирование программ.

Переменные

Пример:

	$var1		# Простой скаляр 'var1'

	@var1[0]	# Первый элемент массива 'var1'

	$var1{'first'}	# Элемент хэша с индексом 'first'

Пример:

	@var1		# Все элементы массива var1

	@var1[1,3,10]	# Элементы $var1[1], $var1[3], $var1[10]

	@var1{'first','last'} # то же что и
	( $var1{'first'}, $var1{'last'} )

	%var, %key, %years

	&sub1, &test_prog, test(12)

Контекст.

	$var1 = <>;	# Прочитать одну строку файла

	@var1 = <>;	# Прочитать все строки файла в массив @var1

	$var1 = (1,2,3); # $var = 3 - количество элементов

	@var1 = (1,2,3); # Создание массива @var1 с элементами 1,2,3

Скалярные значения.

	@var1 = (4, 3, 2, 1);	# Присвоение значения элементам массива
	$i = @var1;		# Использование скалярного контекста
	print $i;		# Печать результата 4 - кол-во элементов
	print @var1;	# Списковый контекст, печать всех элементов.

	print scalar(@var1);	# Вывод длины массива а не его значений

	123
	123.123
	0.12
	.12E-10
	0xABCD		# Шестнадцетиричная запись
	0377		# Если 0 в начале - восьмеричная
	123_456_123	# Так тоже можно для удобства чтения.

	'Ровняйсь, смирно!'
	"Построемся и спасемся."

	$var1{first} то же что и $var1{'first'}

	print <<EOF;	# Все строки до EOF - текст для печати.

	Эй вы трое, идите двое сюда!

		Полковник Савонькин.
	EOF

Конструкторы списков.

	@var1 = (1, 2, 'привет', 1.2); # Присвоить значение элементам.

		$var1[0] = 1,

		$var1[1] = 2,

		$var1[2] = 'привет'

		$var1[3] = 1.2


	$var1 = (1, 2, 'привет', 1.2);

	@s1 = (1, 2, 3); # 	Первый список

	@s2 = (6, 7, 8);	# Второй

	@s = (0, @s1, 4, 5, @s2, 9, 10); # Включаем списки @s1 и @s2

	print @s;	# Результат: 012345678910 - значения без пробелов.

	print ('январь','февраль','март')[1];

	($a, $b, $c) = (1, 2, 3); # $a = 1, $b = 2, $c = 3

	$x = (($a, $b, $c) = (1,2));  # Результат $x=2

	%дни_месяца = ('январь', 31, 'февраль', 30);

	%дни_месяца = (
			январь => 31,
			февраль => 30,
	);

Тип typeglobs

sub new_sub
{ local *IN; # Ссылка на файл
open (IN, "test") || return undef;  # Открыть файл. Возврат при ошибке.
.........
return;
}

Встроенные переменные Перл

	use English;

	use FileHandle;

	метод указатель выражение

	указатель -> метод(выражение)

$_

$ARG

$цифра

$&

$`

$'

$+

$*

$.

$/

$|

$,

$\

$"

$;

$#

$%

$=

$-

$~

$^

$:

$^L

$^A

$?

$!

$@

$$

$<

$>

$(

$)

$O

$[

$]

$^D

$^F

$^I

$^P

$^T

$^W

$^X

$ARGV

@ARGV

@INC

%INC

$ENV{выражение}

$SIG{выражение}

Регулярные выражения (шаблоны)

$s = "Один 1 два 2 и три 3";
if ($s =~ /(\d+)\D+(\d+)/)
    {
        print "$1\n";	# Результат '1'
        print "$2\n";	# '2'
        print "$+\n";	# '2'
        print "$&\n";	# '1 два 2'
        print "$`\n";	# 'Один '
        print "$'\n";	# ' и три 3'
   }

Перл версии 5 содержит дополнительные конструкции шаблонов:

Пример:
$s = "1+2-3*4";
if ($s =~ /(\d)(?=-)/)  # Наити цифру за которой стоит '-'
    {
        print "$1\n";   # Результат '2'
   }
else { print "ошибка поиска\n";}

$s = "1+2-3*4";
if ($s =~ /(\d)(?!\+)/) # Наити цифру за которой не стоит '+'
    {
        print "$1\n";   # Результат '2'
   }
else { print "ошибка поиска\n";}

Правила регулярного выражения. (regex)

Операторы и приоритеты

	ассоц.	    операторы
	-----	---------------------------
	левая	термы и левосторонные списковые операторы
	левая	->
	 -	++ --
	правая	**
	правая	! ~ \ унарные + и -
	левая	=~ !~
	левая	* / % x
	левая	+ - .
	левая	<< >>
	  -	именованные унарные операторы
	  -	< > <= >= lt gt le ge
	  -	== != <=> eq ne cmp
	левая	&
	левая	| ^
	левая	&&
	левая	||
	  -	..
	правая	?:
	правая	= += -= *= и т.д.
	левая	, =>
	  -	правосторонние списковые операторы
	левая	not
	левая	and
	левая	or xor

Термы и левосторонние списковые операторы.

        @i = ('a ','b ', print 'c ', 'd ');
        print "\n",@i,"\n";

Оператор '->'

Операторы ++ (инкремент) и -- (декремент).

	print ++($i = "09");	# Результат "10"

	print ++($i = "a9");	# "b0"

	print ++($i = "az");	# "ba"

	print ++($i = "aZ");	# "bA"

Оператор ** (возведение в степень)

	print 4**2	# Результат 16

	print -4**2	# Результат -16 т.е. -(4**2)

Унарные операторы.

	'!'	- логическое отрицание

	'-'	- арифметический минус

	'~'	- побитная инверсия (дополнение до 1)

	'+'	- арифметический плюс

	'\'	- получение ссылки на переменную (как & в С)

Операторы "привязки" =~ и !~ .

Мультипликативные операторы.

	'*'	- арифметическое умножение

	'/'	- арифметическое деление

	'%'	- арифметический модуль

	'x'	- оператор повторения

	print '*' x 5;	# Результат '*****'

	print (1,2) x 3; # Результат 121212

Аддитивные операторы.

	'+'	- арифметический плюс

	'-'	- арифметический минус

	'.'	- конкатенация (объединение) строк

Операторы сдвига.

Именованные унарные операторы.

Операторы отношений.

	'<'	- арифметическое меньше

	'>'	- арифметическое больше

	'<='	- арифметическое меньше или равно

	'>='	- арифметическое больше или равно

	'lt'	- строковое меньше

	'gt'	- строковое больше

	'le'	- строковое меньше или равно

	'ge'	- строковое больше или равно

Операторы равенства.

	'=='	результат true если левая часть равна правой (равно)

	'!='	- не равно

	'<=>'	- -1 если левая часть меньше правой, 0 если равна,
		1 если больше.

	'eq'	- строковое равно

	'ne'	- строковое не равно

	'cmp'	- как и '<=>' применительно к строкам

Операторы работы с битами.

	'&'	- побитное AND

	'|'	- побитное OR

	'^'	- побитное XOR

Логические операторы && (AND) и || (OR).

Оператор диапазона '..'

	for $i (1..4)
	   { print "$i ";
	   }

	@алфавит = ('a'..'z'); # Массив малых букв латинского алфавита

	@цифры = (0..9);	# Массив цифр

	$i = 1;
	$i > 1 ? print "больше" : print "меньше";

Операторы присваивания.

	**=
	+=	-=	.=
	*=	/=	%=	x=
	&=	|=	^=
	<<=	>>=
	&&=	||=

Оператор ',' (запятая)

Оператор логическое not (орицание).

Оператор логическое and (И).

Логическое or (ИЛИ).

С операторы отсутствующие в Перл.

	унарное &	- получить адрес. Для этого применяется '\'.

	унарный *	- переадресация.

	(TYPE)		- совмещение типов.

Операторы ограничители строк.

  По умолчанию	Полное	Функция     Интерполяция
   ----------	------	------------	----
	''	q{}	Literal		нет
	""	qq{}	Литерал		да
	``	qx{}	Команда		да
		qw{}	Список слов	нет
	//	m{}	Шаблон		да
		s{}{}	Подстановка	да
		tr{}{}	Трансляция	нет

	\t	символ табуляции
	\n	символ новой строки
	\r	возврат
	\f	перевод формата
	\v	вертикальная табуляция
	\b	backspace (забой)
	\a	звонок
	\e	escape
	\034	восьмеричный символ
	\x1a	шестьнадцатеричный символ
	\c[	символ управления
	\l	нижний регистр следующего символа
	\u	верхний регистр следующего символа
	\L	нижний регистр для всех символов до \E
	\U	верхний регистр для всех символов до \E
	\E	ограничитель смены регистра
	\Q	отмена действия метасимволов до \E

?PATERN?

m/PATERN/gimosx

	$a = "/usr/local/perl/perl.bin"; # Анализируемая строка

	@dirs =~ m[/(\w*)/(\w*)/(\w*)/(\w*)]

q/строка/

	print q#Привет.#;	# Результат Привет.

	print 'O\'K';		# O'K
qq/строка/
"строка"
	Интерполируемая строка.

	$var = 13;
	print "\$var = $var";

	$var = 13

qx/строка/

qw/строка/

	print qw/Построемся и спасемся!/; # ('Построемся','и','спасемся!')

	use POSIX qw( setlocale localeconv )
	@EXPORT = qw( proc1 var );

s/шаблон/подстрока/egimosx

	e	- Расмматривать правую часть как выражение.
	g	- Глобальный поиск.
	i	- Без различия регистра букв
	m	- многосточная переменная
	o	- компилировать шаблон один раз
	s	- однострочная переменная
	x	- расширенное регулярное выражение

	$var = "12345"; # исходная строка
	$var =~ s/1/0/; # Заменить '1' на '0'. Результат 02345
	$var =~ s(5)(.); # Заменить '5' на '.' Результат 0234.

tr/таблица1/таблица2/cds

Операторы ввода-вывода.

Слияние констант.

Целочисленная арифметика.

	use integer;

	no integer;

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

	print 1 + 2 + 3; # результат 6

	print(1+2)+3;	# результат 3

	print (1+2)+3;	# опять 3

	print (1+2+3);	# 6

Оператор '-X'.

	-X указатель файла
	-X выражение
	-X

	-r	Файл разрешен на чтение эффективным uid/gid
	-w	на запись -//-
	-x	исполнение -//-
	-o	принадлежит эффективному uid (идентификатор пользователя)

	-R	Файл разрешен на чтение реальным uid/gid
	-W	на запись -//-
	-X	исполнение -//-
	-O	принадлежит реальному uid

	-e	файл существует
	-z	пустой
	-s	не пустой

	-f	обычный текст
	-d	директория
	-l	символическая ссылка
	-p	pipes (конвейер)
	-S	socket (гнездо)
	-b	специальное блочное устройство
	-c	-//- символьное -//-
	-t	указатель на уст-во tty

	-u	установлен бит setuid
	-g	-//- setgid
	-k	-//- sticky

	-T	текстовой файл
	-B	двоичный

	-M	"возраст" файла в днях на момент старта скрипта
	-A	дней с последнего чтения
	-C	дней с последней модификации inode

abs выражение

accept NEWSOCKET, GENERICSOCKET

alarm секунды

atan2 Y, X

bind сокит, имя

binmode файл

bless ссылка, класс

caller выражение

	$package - имя пакета
	$filename - имя файла пакета
	$line - номер строки откуда был сделан вызов.

	$subroutine - имя подпрограммы
	$hasargs - имеющиеся аргументы
	$wantargs - необходимые аргументы

chdir выражение

chmod список

chmod 0666 'f1', 'f2', 'f3';

chomp переменная

chop переменная

chop список
chop

chown список

chr чмсло

chroot директория

close файл

closedir директория

connect сокит, имя

cos выражение

crypt текст, salt

dbmclose хеш

dbmopen хеш, база, режим

define выражение

delete выражение

die список

do BLOCK

do подпрограмма

do выражение

dump метка

each хеш

eof файл

eval выражение

exec список

exists выражение

exit выражение

exp выражение

fcntl файл, функция, скаляр

fileno файл

flock файл, операция

fork

format

formline формат, список

getc файл

getlogin

getpeername сокит

getpgrp PID

getppid

getpriority WHICH, WHO

Группа системных вызовов

getpwnam NAME

getgrnam NAME

gethostbyname NAME

getnamebyname NAME

getprotobyname NAME

getpwuid UID

getgrid GID

getservbyname NAME, PROTO

gethostbyaddr ADDR, ADDRTYPE

getnetbyaddr ADDR, ADDRTYPE

getprotobynumber NUMBER

getservbyport PORT, PROTO

getpwent

gethostent

getnetent

getprotoent

getservent

setpwent

setgrent

sethostent STAYOPEN

setnetent STAYOPEN

setprotoent STAYOPEN

setservent STAYOPEN

endpwent

endgrent

endhostent

endnetent

endprotoent

endservent

getsockname сокит

getsockopt сокит, уровень, опция

glob выражение

gmtime выражение

goto метка

goto выражение
goto &подпрограмма

	goto ('метка1', 'метка2', 'метка3')[$i];

grep блок, список

hex выражение

import

index строка, подстрока, позиция

ioctl FILEHANDLE, FUNCTION, SCALAR

join выражение, список

keys хеш

kill список

last метка

lc выражение

lcfirst выражение

length выражение

link OLDFILE, NEWFILE

listen SOCKET, QUEUESIZE

local список

localtime выражение

log выражение

lstat файл

m//

map блок, список

mkdir директория, права

msgctl ID, CMD, ARG

msgget KEY, FLAGS

msgsnd ID, MSG, FLAGS

msgrcv ID, VAR, SIZE, TYPE, FLAGS

my список

next метка

no Module список.

oct выражение

open файл,выражение

opendir указатель, выражение

ord выражение

pack шаблон, список

	A	- текстовая строка, добавляется пробелами.

	a	- текстовая строка, добавляется 0 символом.

	b	- битовая строка (возрастающая нумерация бит)

	B	- битовая строка (убывающая нумерация бит)

	h	- шестнадцатеричная строка ( младший байт - первый)

	H	- шестнадцатеричная строка (старший байт первый)

	c	- символ со знаком

	C	- символ без знака.

	s	- короткое целое (один байт) со знаком.

	S	- короткое целое без знака.

	i	- целое (два байта) со знаком.

	I	- целое без знака.

	l	- длинное целое (4 байта) со знаком.

	L	- длинное целое без знака.

	n	- короткое в "сетевом" формате.

	N	- длинное в "сетевом" формате.

	v	- короткое в "VAX" формате.

	V	- длинное в "VAX" формате.

	f	- single float.

	F	- double float.

	p	- указатель на строку ограниченную 0.

	P	- указатель на структуру с фиксированной длиной.

	u	- упаковка uuencode.

	x	- нуль-байт

	X	- резервный байт.

	@	- заполнить нулями позицию.

	print(pack("ccc",65,66,67)); # Результат ABC

	print(pack("A4A3","ab","cdefg")); # "ab  cde"

	print(pack("a4a3","ab","cdefg")); # "ab\0\0cde"

pipe READHANDLE, WRITEHANDLE

pop массив

pos скаляр

print файл список

printf файл список

push массив, список

q/строка/

qq/строка/
qx/строка/
qw/строка/

quotemeta выражение

rand выражение

read файл, скаляр, длина, смещение

readdir директория

readlink выражение

recv SOCKIT, SCALAR, LEN, FLAGS

redo метка

ref выражение

	REF, SCALAR, ARRAY, HASH, CODE, GLOB

rename старое_имя, новое_имя_файла

require выражение

reset выражение

	reset 'a';	# очистить все переменные начинающиеся
			# буквой 'a'
	reset 'a-z'	# все переменные с малых букв.

return список

reverse список

rewindir директрия

rindex строка, подстрока, позиция

rmdir директория

s/// Оператор подстановки. Смотри главу "Операторы".

scalar выражение

seek файл, позиция, отсчет

seekdir директория, позиция

select файл

semctl ID, SEMNUM, CMD, ARG

semget KEY, NSEMS, FLAGS

semop KEY, OPSTRING

send SOCKET, MSG, FLAGS, TO

setpgrp PID, PGRP

setpriority WHICH, WHO, PRIORITY

setsockopt SOCKET, LEVEL, OPTNAME, OPTVAL

shift массив

shmctl ID, CMD, ARG

shmget KEY, SIZE, FLAGS

shmread ID, VAR, POS, SIZE
shmread ID, STRING, POS, SIZE

shutdown SOCKET, HOW

sin выражение

sleep выражение

socket SOCKET, DOMAIN, TYPE, PROTOCOL

socketpair SOCKET1, SOCKET2, DOMAIN, TYPE, PROTOCOL

sort подпрограмма список

splice массив, смещение, длина, список

split /шаблон/, выражение, предел

split /шаблон/, выражение
split /шаблон/
split

здесь $a = 'Один', $b = 'Два' и $остаток = 'Три Четыре'

        @a = split(/([,.])/, "Один,Два.Три");

здесь @a = ("Один", "," ,"Два", ".", "Три")

sprintf формат, список

sqrt выражение

srand выражение

stat файл

	$dev	- имя устройства
	$ino	- номер i-узла
	$mode	- права доступа
	$nlink	- количество связей
	$uid	- идентификатор владельца
	$gid	- идентификатор группы
	$rdev	- тип устройства
	$size	- размер файла в байтах
	$atime	- дата последнего обращения
	$mtime	- дата последней модификации
	$ctime	- дата последнего изменения статуса
	$blksize - размер блока на диске
	$blocks	- количество блоков в файле.

study скаляр

substr выражение, смещение, длина

symlink старый_файл, новый_файл

syscall список

sysread файл, скаляр, длина, смещение

system список

syswrite файл, скаляр, длина, смещение

tell файл

telldir директория

tie переменная, класс, список

	TIEHASH classname, LIST
	DESTROY this
	FETCH this, key
	STORE this, key, value
	DELETE this, key
	EXISTS this, key
	FIRSTKEY this
	NEXTKEY this, lastkey

	TIEHASH classname, LIST
	DESTROY this
	FETCH this, key
	STORE this, key, value
	[others TBD]

	TIEHASH classname, LIST
	DESTROY this
	FETCH this, key
	STORE this, key, value

time

times

	($user, $system, $cuser, $csystem) = times;

	$user	-  пользовательское время процесса в секундах.

	$system	- системное время текущего процесса.

	$cuser	- время процесса-потомка текущего прцесса.

	$csystem - его системное время.

uc выращение

ucfirst выражение

umask выражение

undef выражение

unlink список

unpack шаблон, выражение

untie переменная

unshift массив, список

use модуль список

utime список

values хеш

vec выражение, смещение, бит

wait

waitpid PID, FLAGS

wantarray

warn список

write файл

y///

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

Private переменные.

	# Программа вычисления факториала.

	print fact(3);  # вычислить факториал 3*2*1

	sub fact	# Определяем подпрограмму.
	{ my $m;                # private переменная но не local !
	$m = $_[0];
	return 1 if $m <= 1;
	return($m * fact($m -1));
	}

	my(список) = выражение;

	my($m) = $_[0];

Прототипы (prototypes).

	Декларация		Пример вызова

	sub mylink($$)		mylink $old, $new
	sub myvec($$$)		myvec $var, $offset, 1
	sub myindex($$;$)	myindex &getstring, "substr"
	sub myreverse(@)	myreverse $a, $b, $c
	sub myjoin($@)		myjoin ":",$a,$b,$c
	sub mypop(\@)		mypop @array
	sub mysplice(\@$$@)	mysplice @array, @array, 0, @pushme
	sub mykeys(\%)		mykeys %{$hashref}
	sub myopen(*;$)		myopen HANDLE, $name
	sub mypipe(**)		mypipe READHANDLE, WRITEHANDLE
	sub mygrep(&@)		mygrep { /foo/ } $a, $b, $c
	sub myrand($)		myrand 42
	sub mytime()		mytime

Ссылка как параметр.

Переопределение встроенных функций.

	use subs 'функция1', 'функция2' ....;

Автозагрузка.

Модули (packages)

	packages имя_модуля;

	$main::var1	- переменная в головном модуле.

	::var1		- то же самое. Имя main можно опускать.

	$модуль1::var1	- переменная в модуле 'модуль1'

	$модуль1::модуль2::var1 - Модуль2 содержится в модуле 1.

Таблицы имен.

	*pi = \3.14159;

Конструкторы и деструкторы.

Классы.

Создание библиотеки.

	use имя_модуля;

Стандартные Перл библиотеки.

	use имя;

	no имя;

В стандартный набор входят следующие pragma:

CPAN

Форматы

	format имя =
	FORMLIST
	.

	"^####"	- пусто если переменная не определена.

#!/usr/local/bin/perl
#
#	Программа печати пригласительного билета
#
$кому = "Чапаеву Василию Ивановичу";

$от_кого = "Компания МММ";

$адрес = "Москва, ул. Петровка, д 38";

$текст = "Уважаемый Василий Иванович! Компания МММ имеет честь пригласить
Вас и Ваших близких на презентацию наших новых хромовых сапог, сделанных
на уровне мировых стандартов качества и дизайна.";

format STDOUT =

	П Р И Г Л А С И Т Е Л Ь Н Ы Й      Б И Л Е Т

Кому: @<<<<<<<<<<<<<<<<<<<<<<<<<<  | ^|||||||||||||||||||||||||||||||
      $кому,				$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст
От кого: @<<<<<<<<<<<<<<<<<<<<<<<  | ^|||||||||||||||||||||||||||||||
      $от_кого,				$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст
Адрес:@<<<<<<<<<<<<<<<<<<<<<<<<<<  | ^|||||||||||||||||||||||||||||||
      $адрес,				$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст

Отпечатано в типографии ИТУ 38
.

write();	# Вывод данных.
exit 0;		# Конец программы

	П Р И Г Л А С И Т Е Л Ь Н Ы Й      Б И Л Е Т

Кому: Чапаеву Василию Ивановичу    |   Уважаемый Василий Иванович!
                                   |     Компания МММ имеет честь
От кого: Компания МММ              |  пригласить Вас и Ваших близких
                                   |    на презентацию наших новых
Адрес:Москва, ул. Петровка, д 38   |   хромовых сапог, сделанных на
                                   |    уровне мировых стандартов
                                   |       качества и дизайна.
                                   |

Отпечатано в типографии ИТУ 38

Специальные переменные:

	$~	- построчный формат содержимого.

	$^	- формат заголовка листа.

	$%	- номер листа.

	$=	- строк в листе.

	use FileHandle;	# Указать в начале программы

	format_name файл имя_формата; # Формат содержимого листа.

	format_top_name файл имя_формата; # Формат заголовка листа.

	write(файл);	# вывод данных.

Отладка Перл программ

	$DB::single =1;

Адрес сайта: http://www.goodweb.ru
Адрес страницы: http://www.goodweb.ru/adv_perl.htm
E-mail: info@goodweb.ru