16.22. Программа: sigrand 599

Make IS like Pascal everybody likes it, so they go in and change it

--Dennis Ritchie

I eschew embedded capital letters in names, to my prose-oriented eyes, they are too awkward to read comfortably They jangle like bad typography

--Rob Pike

God made the integers, all else is the work of Man

--Kronecker

Id rather have rofix than const --Dennis Ritchie

If you want to program in C, program in С It s a nice language

I use it occasionally -) --Larry Wall

Twisted cleverness is my only skill as a programmer

--Elizabeth Zwicky

Basically, avoid comments If your code needs a comment to be understood. It would be better to rewrite it so it s easier to understand

--Rob Pike

Comments on data are usually much more helpful than on algorithms

-Rob Pike

Programs that write programs are the happiest programs in the world

--Andrew Hume

Мы проверяем, пе была ли программа запущена ранее - для этого используется файл с идентификатором процесса. Если посылка сигнала с номером О показывает, что идентификатор процесса все еще существует (или, что случается редко - что им воспользовался кто-то другой), программа просто завершается. Также мы проверяем текущую отправку Usenet и решаем, следует ли искать сиециали-зированные файлы подписей для конкретных конференций. В этом случае можно завести разные подииси для каждой конференции, в которую вы пишете. Для большего разнообразия глобальный файл подписей иногда применяется даже при наличии сиециализированного файла.

Программа sigrand может использоваться даже в системах без именованных каналов - достаточно удалить код создания именованного канала и увеличить паузу перед обновлениями файла. После этого .signature может быть обычным файлом. Другая проблема переносимости возникает при переходе программы в фоновый режим (при котором она почти становится демоном). Если функция fork недоступна, просто закомментируйте ее.

Полный текст программы приведен в примере 16.12.

Пример 16.12. sigrand

#1/usr/bin/perl -w

# sigrand - выдача случайных подписей для файла signature

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

use strict;

tt Конфигурационные переменные

use vars qw( $KG IS DIR $MKNOD $FULLNAME $FIFO $ART $NEWS SSIGS SSEMA SGLOBRAND $NAME );

# Глобальные имена

use vars qw( $Home $Fortune Path @Pwd );

#tt###############################################«#«###j(########

# Начало секции конфигурации

# В действительности следует читать из "/.sigrandrc gethome();

# rec/humor/funny вместо гес.humor funny $NG IS DIR = 1;

$MKNOD = "/bin/raknod",

$FULLNAME = "SHome/.fullname-,

SFIFO = "SHome/ signature";

$ART = SHome/.article":

SNEWS = "$Home/News";

SSIGS = "SNEWS/SIGNATURES ;

SSEMA = "SHome/.sigrandpid;

SGLOBRAND = 1/4; # Вероятность использования глобальных

# подписей при наличии специализированного файла

# SNAME следует: (1) оставить неопределенным, чтобы программа

# попыталась угадать адрес подписи (возможно, заглянув

# в "/ fullname, (2) присвоить точный адрес, или (3) присвоить tt пустую строку, чтобы отказаться от использования имени

SNAME = ; # Означает, что имя не используется

## SNAME = "me\iS)home. org\n";

# Конец секции конфигурации -- НОМЕ и FORTUNE

# настраиваются автоматически

################################################################

setupO; # Выполнить инициализацию

]ustme(); # Убедиться, что программа еще не работает

fork && exit; # Перейти в фоновый режим

open (SEMA, "> SSEMA") or die "cant write SSEMA $"; print SEMA "$$\n";

close(SEMA) or die "cant close SSEMA- $!";

# В бесконечном цикле записывать подпись в FIFO.

# Если именованные каналы у вас не поддерживаются, измените

# паузу в конце цикла (например, 10, чтобы обновление

# происходило только каждые 10 секунд), for (:;) {

open (FIFO, > SFIFO") or die "cant write SFIFO: $i";

my $sig = plck quote(); for ($sig) {

s/"(( :?["\n]*\n){4}). *$/$1/s, # Ограничиться 4 строками s/"(.{1,80}) .$/$1/gm; # Обрезать длинные строки

# Вывести подпись с именем, если оно присутствует,

# и дополнить до 4 строк If (SNAME) {

print FIFO SNAME, "\n" x (3 - ($sig =" tr/\n )), $sig; } else {

print FIFO $sig,

close FIFO;

# Без небольшой паузы приемник не закончит чтение к моменту,

# когда передатчик снова попытается открыть FIFO;

# поскольку приемник существует, попытка окажется успешной.

# В итоге появятся сразу несколько подписей.

# Небольшая пауза между открытиями дает приемникам возможность

# завершить чтение и закрыть канал.

select(undef, undef, undef, О 2); # Выждать 1/5 секунды

die "XXX; NOT REACHED"; # На эту строку вы никогда не попадете

################################################################

# Игнорировать SIGPIPE на случай, если кто-то открыл FIFO и

# снова закрыл, не читая данных; взять имя пользователя из файла

# .fuUname. Попытаться определить полное имя хоста. Следить за

# амперсандами в паролях. Убедиться, что у нас есть подписи или

# цитаты. При необходимости построить FIFO.

sub setup {

$SIG{PIPE} = IGNORE;

unless (defined SNAME) { # Если SNAME не определено

if (-e SFULLNAME) { # при конфигурации

SNAME = cat SFULLNAME;

die "SFULLNAME should contain only 1 line, aborting If SNAME =" tr/\n > 1; } else { my($user, Shost); chop($host = hostname);