1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#@TeXIndex{a0poster, open TMP, ">/dev/null"; while (<>) { chop; if (/\@TeXIndex/) { print TMP "\n"; close TMP; $keep=$_; s/\@TeXIndex{(.*),.*/$1/; print "[$_]\n"; open TMP, ">$_.bib"; print TMP "$keep\n"; } else { print TMP "$_\n" ; } }