Если вы не хотите, чтобы внутренняя дата была преобразована в формат local-time, используйте параметр -epoch:

% ggh -epoch http: www.perl.com/perl/

Если вы предпочитаете формат gmtime, используйте параметр -gmtime: % ggh -gmtime http: www,perl.com/perl/

Чтобы просмотреть весь файл, не задавайте значения аргументов (вероятно, данные следует перенаправить в утилиту постраничного вывода):

% ggh I less

Чтобы отсортировать выходные данные по дате, укажите флаг -epoch; % ggh -epoch sort -rn less

Для сортировки по времени в формате местного часового пояса используется более сложная командная строка;

% ggh -epoch sort -rn perl -ре s/XdVlocaltime $&/е I less

Сопроводительная документация Netscape утверждает, что в журнале используется формат NDBM. Это не соответствует действительности; на самом деле использован формат Berkeley DB, поэтому вместо NDBM File (входит в стандартную поставку всех систем, на которых работает Perl) в программе загружается DB File. Исходный текст программы приведен в примере 14.8.

Пример 14.8. ggh

#!/usr/bin/perl -w

# ggh - поиск данных в журнале netscape

SUSAGE = «EO GOMPLAINT;

usage: $0 [-database dbfilename] [-help]

[-epochtime -localtime -gmtime]

[ [-regexp] pattern] href ... ] EO COMPLAINT

use Getopt::Long;

($opt database, $opt epochtime, $opt localtime, $opt gmtime, $opt regexp, $opt help, Spattern, ) = (0) X 7;

usageO unless GetOptions qw{ database=s

regexp=s

epochtime localtime gmtime help

if ($opt help) { print SUSAGE; exit; }

usage("only one of localtime, gmtime, and epochtime allowed") if Sopt localtime + Sopt gmtime + Sopt epochtime > 1;

14.11. Программа: ggh - поиск в глобальном журнале Netscape 519

if ( $opt regexp ) {

Spattern = Sopt regexp; } elsif (@ARGV && SARGV[0] \~ m(: )) {

Spattern = shift;

usageCcant mix URLs and explicit patterns") if Spattern && @ARGV;

If (Spattern && !eval {=" /Spattern/; 1 } ) { S@ =~ s/ at \w+ line \d+\. ; die "SO; bad pattern $@";

require DB File; DB File->import(); # Отложить загрузку до выполнения $1=1; # Для перенаправления данных

Sdotdir = SENV{HOME} SENV{LOGNAME};

SHISTORY = $opt database "Sdotdir/,netscape/history, db";

die "no netscape history dbase in SHISTORY; $!" unless -e SHISTORY;

die "cant dbmopen SHISTORY; S!" unless dbmopen %hist db, SHISTORY, 0666;

# Следующая строка - хак, поскольку программисты С,

# которые работали над этим, путали strlen и strlen+1,

# Так мне сказал ]wz ;-)

Sadd nulls = (ord(substr(each %hist db, -1)) == 0);

# XXX: Сейчас следовало бы сбросить скалярные ключи, но

# не хочется тратить время на полный перебор,

# необходимый для связанных хэшей,

# Лучше закрыть и открыть заново?

Snulled href = "";

Sbyte order = "V"; # На PC не понимают "Н" (сетевой порядок)

if ((SARGV) {

foreach Shref (@ARGV) {

$nulled href = Shref . ($add nulls && "\0"); unless ($binary time = $hist db{Snulled href}) { warn "SO; No history entry for HREF $href\n"; next;

$epoch secs = unpack(Sbyte order, $binary time); Sstardate = $opt epochtime ? Sepoch secs

; Sopt gmtime ? gmtime Sepoch secs : localtime Sepoch secs;

print "Sstardate Shref\n";

520 Глава 14 • Базы данных Пример 14.8 (продолжение)

} else {

while ( ($href, $binary time) = each %hist db ) { chop Shref if $add nulls; # gnat reports some binary times are missing $binary time = pack(Sbyte order, Q) unless $binary time; $epoch secs = unpack($byte order, $binary time); Sstardate = $opt epochtime $epoch secs

: Sopt gmtime gmtime $epoch secs localtime Sepoch secs,

print Sstardate Shref\n unless Spattern && Shref i~ /Spattern/o;

sub usage {

print STDERR @ \n" If @ ; die SUSAGE;

!> Смотри также-

Рецепт 6.17.