If ($ignore ints) {

for $sig (INT, TERM, HUP, ОиИ) { $SIG{$sig} = IGNORE; }

$SIG{PIPE} = PLUMBER; $mode = Sappend » ; >; Sfh = FHOOO,

unless (Snostdout) {

%fh = (STDOUT, standard output); # Направить в STDOUT >

$1 = 1 if Sunbuffer;

for (@ARGV) {

If (!open(Sfh, (/"[">(]/ && Smode) . S )) {

warn "SO. cannot open S : S!\n"; # Как в sun, я предпочитаю die

Sstatus++;

next;

select((select($fh), SI = 1)[0]) if Sunbuffer; Sfh{Sfh++} = S ;

while (<STDIN>) {

for Sfh (keys %fh) {

Поскольку в программе используется «волшебная» функция open, вместо файлов можно передавать каналы:

% someprog tctee f1 "Icat -n f2 »f3"

В примере 8.8 приведена программа-ветеран, написанная на Perl почти 10 лет назад и работающая до сих пор. Если бы нам пришлось писать ее заново, вероятно, мы бы использовали strict, предупреждения и модули с десятками тысяч строк. Но как известно, «лучшее - враг хорошего».

Пример 8.8. tctee

#Vusr/bin/perl « tctee - кпон tee

# Программа совместима с perl версии 3 и выше.

while ($ARGV[0] =~ /"-(.+)/ && (shift, ($ = $1), 1)) { next If /"$/;

s/i && (++$ignore ints, redo); s/a && (++$append, redo),

s/u && (++$unbuffer, redo), s/n && (++$nostdout, redo), die "usage tee [-aiun] [filenames] ..\n";

for Sfh (keys %fh) {

next if close($fh) Idefined $fh{$fh}; warn "SO: couldnt close $fh{Sfh}: $!\n": $status++;

exit Sstatus;

sub PLUMBER {

warn "$0: pipe to \"$fh{$fh}\" broke!\n";

$status++;

delete Sfh{$fh};

8.20. Программа: laston

Bo время регистрации в системе UNIX на экран выводятся сведения о времени последней регистрации. Эта информация хранится в двоичном файле с именем lastlog. Каждый пользователь имеет собственную запись в этом файле; данные пользователя с UID 8 хранятся в записи 8, UID 239 - в записи 239 и т. д. Чтобы узнать, когда пользователь с заданным UID регистрировался в последний раз, преобразуйте имя пользователя в числовое значение UID, найдите соответствующую запись в файле, прочитайте и распакуйте данные. Средствами интерпретатора это сделать очень сложно, зато в программе laston все очень легко. Приведем пример:

% laston gnat

gnat UID 314 at Men Иау 25 08:32:52 1998 on ttypO from below, perl, com

Программа из примера 8.9 была написана гораздо позже программы tctee из примера 8.8, однако она менее переносима, поскольку в ней используется двоичная структура файла lastlog системы UNIX. Для других систем ее необходимо изменить.

Пример 8.9. laston

#!/usr/bin/perl

# laston - определение времени последней регистрации пользователя

use User::pwent;

use IO::Seekable qw(SEEK SET);

open (LASTLOG, "/var/log/lastlog") or die "cant open /usr/adm/lastlog: S!";

Stypedef = L A12 A16; « Формат linux; для SunOS - "L AS A16" Ssizeof = length(pack(Stypedef, ()));

print $fh $ ;

for $user (isARGV) {

$U = ($user =" /"\d+$/) getpwuid($user) : getpwnarri($user); unless ($U) { warn "no such uid $user\n , next; } seekdASTLOG, $U->uid * $sizeof, SEEK SET) or die "seek failed read(LASTL0G, Sbuffer, Ssizeof) == Ssizeof or next; (Stime, Sline, Shost) = unpaGk(Stypedef, Sbuffer), printf "%-8s UID %5d %s%s%s\n", $U->name, SU->uid,

Stime ("at " . loGaltime(Stime)) ; "never logged in",

Sline && " on Sline,

Shost && from Shost;