diff options
Diffstat (limited to 'Master/texmf/doc/texlive/source/texlive-en/archive/split.pl')
-rw-r--r-- | Master/texmf/doc/texlive/source/texlive-en/archive/split.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/Master/texmf/doc/texlive/source/texlive-en/archive/split.pl b/Master/texmf/doc/texlive/source/texlive-en/archive/split.pl new file mode 100644 index 00000000000..bca00584335 --- /dev/null +++ b/Master/texmf/doc/texlive/source/texlive-en/archive/split.pl @@ -0,0 +1,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" ; } + +} |