#!/usr/bin/perl -n
#./jcr2013.pl jcr/*.html > jcr2013.html
use File::Basename;
s/&/&/g;
# stara merila $maxtock=8;
# nova merila $maxtock=12;
$maxtock=8;
BEGIN {
print "\n";
print "\n";
$print=0;
}
END {
print "";
}
if (m/\<\/tbody\>/){
print "| STD | $std |
|---|
";
print "\n";
$print=0;
} else {
if ($print) {
print $_ ;
}
}
## preglej vse clanke, v glavnem imajo vsi 8 tock, razen
# Nature
if (m/0028-0836/) {
$std=$maxtock;
}
# PRL
if (m/0031-9007/) {
$std=$maxtock;
}
# journal of the koreaian physicaL SOCIETY
if (m/0374-4884/) {
$std=6;
}
#####################
if (m/\/){
$fname=$ARGV;
# $len=length($fname);
# print "\n$len\n";
$basename = basename($fname,".html");
print "