Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea.iki.rssi.ru/conf/hea2007/list_abstracts.pl~ Дата изменения: Tue Nov 13 01:49:26 2007 Дата индексирования: Mon Oct 1 23:07:21 2012 Кодировка: Поисковые слова: внешние планеты

#!/usr/bin/perl

#use Text::BibTeX;


require "bp.pl";

# get current time and data
@TIME = localtime(time);
$DATE = @TIME[3].".".(@TIME[4]+1).".".(@TIME[5]+1900);
$time = @TIME[2].":".@TIME[1].":".@TIME[0];


$bib_file="/export/web/www/conf/hea2007/TeX/snapshot.Nov12.bib";

$form="form";

@TIME = localtime(time);
$DATE = @TIME[3].".".(@TIME[4]+1).".".(@TIME[5]+1900);
$time = @TIME[2].":".@TIME[1].":".@TIME[0];
$query;





%prelist=();

$oral=1;

start:
$totrecs=0;
$cdinner=0;
$calive=0;
%prelist=();
foreach $file ($bib_file){

next unless &bib'open($file);
while ($record = &bib'read($file)){
%entry = &bib'explode($record);
next unless(defined $entry{'contrib'});
next if($entry{'contrib'} =~ m/^oral/);
#next if($entry{'contrib'} eq 'poster');
next if($entry{'contrib'} eq 'noreport');


my $abs=$entry{'abstract'};
$abs=~s/\&\#8470;/\\No/g;
$abs=~s/\&\#8722;/\$\\mu\$/g;
$abs=~s/\%/\\\%/g;
$abs=~s/^ +//;
my $fsymbol=substr ($abs,0,1);
my $cut=substr $abs,1,length($abs);
$abs="\\dropping{2}{\\itshape{} $fsymbol}".$cut if ($fsymbol ne '');

print " \\section*{$entry{'name'} $entry{'vorname'} $entry{'vatersname'}}

\\begin{flushleft}
{\\it \\Large $entry{'title'}}
\\end{flushleft}
%\\begin{flushleft}
%$entry{'coauthors'}
%\\end{flushleft}
$abs
\\centerline{}
%$entry{'coauthors'}
\n";
}

&bib'close($file);

}