# Структура flock для SunOS

BEGIN

« По данным c2ph: typeclef=s2 12 s2, sizeof=16 my $FLOCK STRUCT = s s 1 1 s s;

sub sunos flock { If (wantarray) {

my (Stype, Swhence, Sstart, Slen, Spid, $xxx) =

unpack(SFLOCK STRUCT, $ [0]); return (Stype, Swhence, Sstart, Slen, Spid); } else {

my (Stype, Swhence, Sstart, Slen, Spid) = @ ; return pack($FLOCK STRUCT,

Stype, Swhence, Sstart, Slen, $pid, 0);

# Структура flock для (Free)BSD;

Начальное смещение •/

len = 0 означает блокировку до конца файла */ Владелец блокировки */ Тип блокировки: чтение/запись и т. д. */ Тип 1 start •/

й off t l start; /*

# off t l len; /*

# pid t l pid; /.

# short l type; /*

# short l whence, /* BEGIN {

# По данным c2ph: typedef="q2 i s2", size=24 my SFLOCK STRUCT = 11 11 i s s;

sub bsd flock {

if (wantarray) {

my (Sxxstart, Sstart, Sxxlen, Slen, Spid, Stype, Swhence) =

unpack(SFLOCK STRUCT, S [0]); return (Stype, Swhence, Sstart, Slen, Spid); } else {

my (Stype, Swhence, Sstart, Slen, Spid) = @ ; my (Sxxstart, Sxxlen) = (0,0); return pack($FLOCK STRUCT,

Sxxstart, Sstart, Sxxlen, Slen, Spid, Stype, Swhence);

ft Установить обработчик сигнала для потомков BEGIN {

my Scalled = 0;

sub genocide {

exit if $called++;

print "$$. Time to die, kiddies,\n" if $$ == Sprogenitor; my $]ob = getpgrpO; $SIG{INT} = •IGNORE:

kill -2, $]ob If $]ob; # killpg(SIGINT, ]ob) 1 while wait > 0;

print "$$ My turn\n" if $$ == Sprogenitor* exit;

END { &genocide }

# Синоним структуры fcntl на стадии компиляции BEGIN {

for ($-0) {

•struct flock = do

/bsd/ && \&bsd flock II

/Unux/ && \&linux flock II

/sunos/ && \&sunos flock II

die "unknown operating system $"0, bailing out";

Содержимое файлов

Из всех решений UNIX самым (еииальпьш был выбор одного символа для перевода строки.

Майк 0Де]щ, лишь с долей шутки

Введение

До революции UNIX всевозможные источники и нриемиики данных не имели 1П1чего общего. Чтобы две программы пообщались друг с другом, приходилось идти на невероятные ухиидрения и отправлять в мусор целые горы перфокарт. При виде этой компьютерной Вавилонской башни норой хотелось бросить программирование и подыскать себе менее болезненное хобби - например, податься в секту флаггелантов.

В наши дни этот жестокий и нестанда])тный стиль программирования в основном ушел в прошлое. Современные операционные системы всячески стараются создать иллюзию, будто устройства ввода/вывода, сетевые подключения, управляющие данные процессов, другие программы, системные консоли и даже терминалы пользователей представляют собой абстрактные потоки байтов, именуемые файлами. Теперь можно легко написать программу, которая нисколько не заботится о том, откуда взялись ее входные данные и куда отправятся результаты.

Поскольку чтение и запись данных осуществляется через простые байтовые потоки, любая программа может общаться с любой другой программой. Трудно переоценить всю элегантность и мощь такого подхода. Пользователи перестают зависеть от сборников магических заклинаний JCL (или СОМ) и могут собирать собственные нестандартные инструменты, используя простейшее иеренаправле-]ше ввода/вывода и конвейерную обработку.

Интерпретация файлов как неструктурированных байтовых потоков однозначно определяет круг возможных операций. Вы можете читать и записывать последовательные блоки данных фиксированного размера в любом месте файла, увеличивая его размер при достижении конца. Чтение/занись блоков переменной длины (например, строк, абзацев и слов) реализуется в Perl на базе стандартной библиотеки ввода/вывода С.