602 Глава 16 • Управление процессами и межпроцессные взаимодействия Пример 16.12 (продолжение)

(Shost) = gethostbyname($host) unless Shost =~ /\ /, Suser = SENV{USER} $ENV{LOGNAME} SPwd[0]

or die "intruder alert", (SNAME = $Pwd[6]) =~ s/, V/,

SNAME =" s/8</\u\L$user/9; й До сих nop встречается SNAME = "\tSNAME\tSuser\(a$host\n";

check fortunes() if i-e SSIGS,

unless (-p SFIFO) { # -p проверяет, является ли операнд

й именованным каналом

if С-е ) {

system(SMKNOD SFIFO р) && die cant mknod SFIFO; warn created SFIFO as a named pipe\n"; } else {

die $0 won t overwrite file signature\n";

} else {

warn $0. using existing named pipe SFIFO\n",

Й Получить хорошее начальное значение для раскрутки генератора, й Не нужно в версиях 5 004 и выше srand(time() " ($$ + ($$ « 15)));

й Выбрать случайную подпись sub pick quote {

my Ssigfile = signame().

If (1-е Ssigfile) { return fortuneO;

open (SIGS, "< Ssigfile ) or die cant open Ssigfile;

local $/ = %%\n", local $ ; my Squip;

rand($ ) < 1 && (Squip = S ) while <SIGS>; close SIGS, chomp Squip;

return Squip 1 ENOSIG This signature file is empty \n;

Й Проверить, содержит ли "/ article строку Newsgroups. Если содержит, й найти первую конференцию и узнать, существует ли для нее й специализированный набор цитат, в противном случае вернуть глобальный й набор. Кроме того, время от времени возвращать глобальный набор й для внесения большего разнообразия в подписи.

>

sub signame {

(rand(1 0) > (SGLOBRAND) && open ART) return $SIGS, local $/ = ; local $ = <ART>;

my($ng) = /Newsgroups-\s.([",\s].)/,

$ng =" si\.!/tg If $NG IS DIR; # if rn -/, or SAVEDIR=%p/%c $ng = "SNEWS/Sng/SIGNATURES", return -f $ng $ng : $SIGS;

# Вызывать программу fortune с параметром -s до тех пор,

# пока мы не получим достаточно короткую цитату или не и превысим лимит попыток

sub fortune { local $ ; my Stries = 0, do {

$ = $Fortune Path -s, } until tr/\n < 5 I I $tries++ > 20, s/7 /mg,

$ II " SIGRAND: deliver random signals to all processes,\n,

# Проверить наличие программы fortune. Определить полный путь

# и занести его в глобальную переменную sub check fortunes {

return If $Fortune Path; # Уже найден for my $dir (split(/:/, $ENV{PATH}), /usr/games) { return if -x ($Fortune Path = "$dir/fortune"),

die "Need either $SIGS or a fortune program, bailing out ;

# Определение каталога sub gethome {

@Pwd = getpwuid($<);

$Home = $ENV{HOME} $ENV{L0GDIR} $Pwd[7] or die no home directory for user $<";

# Останется только один -- из фильма Горец sub justme {

If (open SEMA) { my $pid,

chop($pid = <SEMA>),

kill(0, $pid) and die "$0 already running (pid $pid), bailing out; close SEMA;

Сокеты

Глендаур: Я духов вызывать могу из бездны. Хотспер: И я могу, и каждый это может, Вопрос лишь, явятся ль они па зов.

Вильям Шекспир, «Генрих IV»

Введение

Сокеты являются «конечными пунктами» в процессе обмена данными. Одни типы сокетов обеспечивают надежный обмен данными, другие почти ничего не гарантируют, зато обеспечивают низкий расход системных ресурсов. Обмен данными через сокеты может осуществляться на одном компьютере или через Интернет.

В этой главе мы рассмотрим два самых распрострапенных типа сокетов: потоковые и датаграммные. Потоковые сокеты обеспечивают двусторонние, последовательные и надежные коммуникации; они похожи на каналы (pipes). Датаграммные сокеты не обеспечивают последовательную, надежную доставку, но они гарантируют, что в процессе чтения сохранятся границы сообщений. Ваща система также может поддерживать сокеты других типов; за подробностями обращайтесь к шап-странице socket(2) или эквивалентной документации.

Сокеты делятся по областям (domain); сокеты Интернета и сокеты UNIX. Имя сокета Интернета содержит две составляющие: хост (IP-адрес в определенном формате) и номер порта. В мире UNIX сокеты представляют собой файлы (например, /tmp/mysock).

Кроме области и типа, с сокетом также ассоциируется определенный протокол. Протоколы не имеют особого значения для рядового программиста, поскольку для конкретного сочетания области и типа сокета редко используется более одного протокола.

Области и типы обычно идентифицируются числовыми константами (которые возвращаются функциями, экспортируемыми модулями Socket и IO::Socket). Потоковые сокеты имеют тип SOCK STREAM, а датаграммные - SOCK DGRAM. Области Интернета соответствует константа PF INET, а области UNIX - константа PF UNIX (в POSIX вместо PF UNIX используется PF LOCAL, но PF UNIX почти всегда допустима просто потому, что используется в огромном количестве