#!/usr/bin/perl open OBS,'){ chomp $line; if(substr($line,0,1)!~m/^\s/){ $obstxt[++$nobs]=$line; } else { $desctxt[$nobs].="$line
"; } } $nxn=0; while($line=){ chomp $line; $xname[++$nxn]=$line; } print " HEPData Observables

HEPData Observbles

"; $n=1; &doit; print "\n"; print "\n"; print "\n"; foreach $n (2...$nobs){ &doit; print "\n"; } print "
Observablesxnames (to be used with differential distributions)
ObservableDescriptionxnamedescription
\n"; foreach $n (1...$nxn){ ($xn1,$xn2)=split/_+/,$xname[$n]; print "$xn1
\n"; } print "		\n"; foreach $n (1...$nxn){ ($xn1,$xn2)=split/_+/,$xname[$n]; print "$xn2
\n"; } print "
"; sub doit{ $id1="id$n"."1"; $id2="id$n"."2"; ($obs1,$obs2)=split/_+/,$obstxt[$n]; if($desctxt[$n] eq ""){ print "$obs1$obs2\n"; } else { print "$obs1\n"; print "\n"; print "
\n"; print "$obs2...."; print 'more\n"; print "
\n"; print "\n"; print "\n"; } } exit();