Zbirnik

#!/usr/bin/perl =comment ./tockovanje.pl -t 1.01 -s 0 -n '1.5.1 Članki z recenzijo' rok_pestotnik2013.html > tockovanje_1.01.html ./tockovanje.pl -t 2.01 -s 304 -n '1.1 Monografija' rok_pestotnik2013.html > tockovanje_2.01.html ./tockovanje.pl -t 1.06 -s 305 -n '1.3.2 Dokumentirani objavljeni referati na mednarodnih kongresih' rok_pestotnik2013.html > tockovanje_1.06.html ./tockovanje.pl -t 1.08 -s 306 -n '1.3.2 Dokumentirani objavljeni referati na mednarodnih kongresih' rok_pestotnik2013.html > tockovanje_1.08.html ./tockovanje.pl -t 2.13 -s 331 -n '4.4 Objavljeni prikazi, poročila, ekspertize' rok_pestotnik2013.html > tockovanje_2.13.html echo "

1.5.1 Clanki z recenzijo" > tockovanje.html echo "

1.3.2 mednarodni objavljeni referati na simpozijih - vabljena predavanja" >> tockovanje.html echo "

1.3.2 mednarodni objavljeni referati na simpozijih" >> tockovanje.html echo "

1.1 Monografije" >> tockovanje.html echo "

4.4 Strokovna dela porocila ekspertize" >> tockovanje.html =cut # -t typology tipologija # -s shift v stevilcenju # -y zadnja izvolitev # -n naslov use Getopt::Std; BEGIN { %options=(); getopts("t:s:y:n:",\%options); $kategorija="1.01"; $kategorija=$options{t} if defined $options{t}; $ncounter=0; $ncounter=$options{s} if defined $options{s}; $zadnjaizvolitev=2010; $zadnjaizvolitev=$options{y} if defined $options{y}; $title="Tipologija: $kategorija"; $title=$options{n} if defined $options{n}; $pomembnadela=""; print "\n"; print "\n"; print "\n"; print "\n"; print "Zbirnik\n"; print "\n"; print "

Zbirnik za $title

\n"; print "\n"; print " \n"; $print=0; $prviavtor=0; } END { # $mcount[0]=0; # $mzadnja[0]=0; # $mfirst[0]=0; $mcount[1]=sprintf("%2.1f", $mcount[1] ); $mzadnja[1]=sprintf("%2.1f", $mzadnja[1] ); $mfirst[1]=sprintf("%2.1f", $mfirst[1] ); $mcount[2]=0; $mzadnja[2]=0; $mfirst[2]=0; print " \n"; print "\n"; print ""; foreach $item (@mcount) { if ($item>0){ print "\n"; } else { print "\n"; } } print "\n"; print ""; foreach $item (@mzadnja) { if ($item>0){ print "\n"; } else { print "\n"; } } print "\n"; print "\n"; print ""; foreach $item (@mfirst) { if ($item>0){ print "\n"; } else { print "\n"; } } print "\n"; print "

Št. dela	Leto izdaje	STD	STK	Št. avtorjev	WoS: št. citatov (TC)	čistih citatov (CI)	normirano št. čistih citatov (NC)	Scopus: št. citatov (TC)	čistih citatov (CI)	normirano št. čistih citatov (NC)
Št. dela	Leto izdaje	STD/ število del	STK	Št. avtorjev	WoS: št. citatov (TC)	čistih citatov (CI)	normirano št. čistih citatov (NC)	Scopus: št. citatov (TC)	čistih citatov (CI)	normirano št. čistih citatov (NC)
Vsota celotno obdobje		$item
Vsota zadnje izv. obdobje		$item
Prva avtorstva		$item

\n"; print "

Pomembna dela:

"; print "$pomembnadela"; print ""; } use File::Basename; while (<>){ s/&/&/g; if ($print) { print $_ ; } if (m/\/){ $year=$1; $prviavtor=$2; if ($year>=$zadnjaizvolitev) { $zadnja=1; } else { $zadnja=0; } if ($prviavtor){ $pomembnadela="$pomembnadela $ncounter"; } $print=1; $nc=0; print $_ ; $ncounter++; print "$ncounter$year\n"; } if (m/\(.*)\<\/td\>/){ if ($print) { if ($nc) { $val=$1; } else { $val=1; } $mcount[$nc]+=$val; if ($zadnja==1){ $mzadnja[$nc]+=$val; } if ($prviavtor==1){ $mfirst[$nc]+=$val; } $nc++; } } if (m/\<\/tr\>/){ $print=0; } }