#!/usr/local/bin/perl # LANL-e-print database to HTML converter # (c) Dirk Hoffmann, DESY-FH1 1999 # # Please use this program freely while maintaining the copyright notice # inside the source code. # require 5.00; my $bg1='bgcolor="#FFFFAA"'; #my $url="http://www-h1.desy.de/~hoffmann/myH1/Publications/"> #my $url="http://cppm.in2p3.fr/~hoffmann/Publications/"; my $url="http://marwww.in2p3.fr/~hoffmann/Publications/"; my @date=localtime; $date=$date[3].".".($date[4]+1).".".($date[5]+1900); print < List of scientific publications

List of scientific publications, Dirk Hoffmann

as of: $date. This page is available online at $url and contains HTTP-links of available online copies.

EoHeader while (<>) { next if /^%/; next if /^ *$/; if (/\@Article/) { print "\n"; next;} if (/ *} */) { # EndOfRecord print "\t\n"; if (defined $record{collaboration}) { if ($record{collaboration} eq "H1") { print "\t\n";} else { print "\t\n";}} else { print "\t\n";} print "\n"; if ($record{journal}=~/H1\s+internal/) { print "\t\n"; # New (2001) syntax of arXiv requires cleanup for HTML link my $clean = $record{eprint}; $clean =~ s/^arXiv://; print "\t\n"; print "\t\n"; undef %record; next;} chop; if (!/".+"/ == 1) { # add next line, if this one looks incomplete (1 " only) $_ .=<>; chop} my ($idx, $content) = split /=/, $_, 2; $idx=~s/\s+//g; $content=~m/.*"{*([^}"]*)}*".*/; $record{$idx}=$1; } print <

The following paragraphs only work in the online (HTTP) version (see link at top of document).

Further links

Here is an up to date list for H1 publications.

About this document
How this list was made? Here is the Perl-Sourcecode; input is the (completed) hep-eprint-citations-bibTeX format. EoFooter exit;

Titel	Author(s)
Titel	Journal/Conference	(Pr)eprint
"; if (defined $record{http}) { print "", $record{title}, "";} else { print $record{title}; } print "	H1-Kollaboration		", $record{collaboration}, "		", $record{author}, "
	";} else{ print "\t		";} if (defined $record{journal}) { if (defined $record{volume}) { print $record{journal}, " ", "", $record{volume}, ", ", $record{pages};} elsif (defined $record{year}) { print "Submitted to ", $record{journal};} else { print "To be published in ", $record{journal};}} else{ print $record{conference}; } if (defined $record{year}) { print " (", $record{year}, ")"; } print "	", $record{eprint}, "\n"; #print "\t\n"; print "\t", $record{preprint}, "