Thread Perl-Script für LaTeX-Indexerstellung: Suche ein Script
(12 answers)
Opened by Gast at 2005-06-28 20:59 Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 #!/usr/bin/perl use strict; use warnings; my $indexfile = shift; my @texfiles = @ARGV; # index_datei einlesen open INPUT, $indexfile or die $!; my @to_parse = <INPUT>; close INPUT; my %index; foreach my $eintrag (@to_parse) { # Format: <gesuchteswort> <indexname> <beschreibung> $eintrag =~ m~^(\S+)\s+(\S+)\s+(.+)$~; $index{$ 1} = $ 2 # Oben sollte natürlich $ 1 und $ 2 zusammengeschrieben werden } foreach my $texfile (@texfiles) { open TEXFILE, $texfile or die $!; my @inhalt = <TEXFILE>; close TEXFILE; open OUTFILE, "$texfile.out" or die $!; foreach my $zeile (@inhalt) { $zeile =~ s~($_)~\\index{$index{$_}}~i foreach keys %index; print OUTFILE $zeile; } close OUTFILE; } nicht getestet und in diesem winzigen forum-input-feld geschrieben :) EDIT: Forumseditor Parsefehler behoben Um die umbenennenfunktion erweitert\n\n <!--EDIT|Thorium|1119998340--> Per|li|nist der; -en, -en <zu â...ist>: a) Anhänger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.
|