Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea.iki.rssi.ru/integral06/perl-bin/culture.pl~ Дата изменения: Wed Mar 21 23:31:55 2007 Дата индексирования: Mon Oct 1 23:07:59 2012 Кодировка:

#!/usr/bin/perl

%author=();

$bibfile="/export/web/data/integral06/reg-culture-db.txt";
$bibfile="culture.bib";
require "bp.pl";
&bib'format("auto");

exit 0 unless &bib'open($bibfile);
$totrecs = 0;

while ($record = &bib'read($bibfile) ) {
%entry = &bib'explode($record);
print "$entry{name}\n";
}
&bib'close($bibfile);

#foreach $i (keys %names){
#print "$names{$i}\n";
#}


__END__

# 20.04.06 11:22:15
@inproceedings {Peter_Kretschmar,
name={Peter Kretschmar},
armory_select={yes},
armory_ntickets={1},
kremlin_select={yes},
kremlin_ntickets={1},
bustour_kolomenskoe_ntickets={1},
bustour_novodevichii_ntickets={1},
bustour_tretyakovskii_ntickets={1},
comments={},
}