LaTeX Forum

\listfiles
\documentclass{scrartcl}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[ngerman]{babel}

\usepackage{glossaries}
\makeglossaries

% Neuer style für Wörterbuch
% Paketdoku Kap. 2.13.1 bis 2.13.3
\newglossarystyle{WBlist}{%
\glossarystyle{long3colheader}% Basisstyle
\renewenvironment{theglossary}%
{\begin{longtable}{p{3cm}p{3cm}r}}%
{\end{longtable}}%
\renewcommand*{\glossaryheader}{%
\bfseries Englisch & \bfseries Deutsch & \bfseries Seite \\ \hline \endhead}%
}

% Einträge, können auch in externe Datei ausgelagert 
% und mit \input{file} eingefügt werden
\newglossaryentry{Du}{name=You,description={Du}}
\newglossaryentry{Ich}{name=I,description={Ich}}
\newglossaryentry{habe}{name=have,description={habe}}
\newglossaryentry{Apfel}{name=aple,description={Apfel}}
\newglossaryentry{Hilfe}{name=help,description={Hilfe}}


\begin{document}
\glsaddall
\printglossary[style=WBlist,title=Wörterbuch]
\end{document}

# 16. November 2004 / 12. April 2005
$infilename = "kt_skript.loa";
$outfilename = ">kt_skript.loa.out";
open (INFILE, "$infilename") or die "Can't open input-file $infilename!\n";
$i = 0;
while (<INFILE>) {
   @line[$i++] = $_;
}
close (INFILE);
if ($i)
{
   open (OUTFILE, "$outfilename");
   @sortedline = sort @line;
   foreach (@sortedline) {
      s/ /}{/;
      $sortedline[$i] = $_;
   }
   foreach (@sortedline) {
      s/^/ \\EintragKTVerzeichnis{/;
      $sortedline[$i] = $_;
   }
   foreach (@sortedline) {
      s/$/}/;
      $sortedline[$i] = $_;
   }
   $prev = "not equal to $sortedline[0]";
   @sortedandremovedline = grep($_ ne $prev && ($prev = $_, 1), @sortedline);
#   @sortedandremovedline = @sortedline;
   print (OUTFILE "\\begin{KTVerzeichnis}\n");
   print OUTFILE @sortedandremovedline[0..$#sortedandremovedline--];
   print (OUTFILE "\\end{KTVerzeichnis}");
   close (OUTFILE);
   print "$i Einträge in $infilename gelesen, sortiert und nach $outfilename geschrieben.\n";
}
else
{
   print "$infilename leer; kein $outfilename erzeugt.\n";
}
# EOF