Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea.iki.rssi.ru/integral06/perl-bin/list_participants.pl~ Дата изменения: Wed Mar 21 23:31:55 2007 Дата индексирования: Mon Oct 1 23:19:57 2012 Кодировка: Поисковые слова: http www.badastronomy.com bad tv foxapollo.html

#!/usr/bin/perl


#die "Give me data base file" unless(defined $ARGV[0]);

%author=();



$bibfile="/export/web/data/integral06/fregistration.bib";

require "bp.pl";
&bib'format("auto");

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

while ($record = &bib'read($bibfile)) {
%entry = &bib'explode($record);
$id="$entry{'last_name'} $entry{'first_name'}";
$id=~s/ /\_/g;
#$names{$id}="$entry{'last_name'} $entry{'first_name'}";
$names{$id}="$entry{'last_name'}";
$inst{$id}=$entry{'affiliation'};
$email{$id}=$entry{'email'};
#print "$names{$id}\n";
}
&bib'close($bibfile);

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