linux-l: SOrtieren.
Robert C. Helling
helling at aei-potsdam.mpg.de
Di Nov 23 14:18:33 CET 1999
On Tue, 23 Nov 1999, Carsten Wartmann wrote:
> Hallo,
>
> hat jemand von Euch Perl/Python/Script/bash Experten eine Idee wie man
> eine Datei die wie folgt aussieht, alphabetisch sortieren kann:
>
> \index[Eintrag] Blabla. abbbsbsb sdlfj
> Blablabla. sdf klsjdfl
>
> \index[Beintrag] Blabla. abbbsbsb sdlfj
> Blablabla. sdf klsjdfl
>
> [····]
>
> Ist natürlich LaTeX und sortiert soll nach dem [xxxxx] werden, eine
> Leerzeile trennt die Einträge.
Ich nehme mal der Einfachheit halber an, dass die eckigen Klammern keine
weiteren eckigen Klammern enthalten...
#!/usr/local/bin/perl
# Sortiert Eintraege der Form \index[Dings]... nach Dings, Feldtrenner ist
# \n\n
while($line = <>){
while(<>){ # Weiter Zeilen aufsaugen
$line .= $_;
last unless /\S/; # Schluss bei Leerzeile
}
$line =~ /\[([^\]]*)\]/; # Suche den Inhalt der eckigen Klammern
$all{$1} = $line; # Unter Schluessel speichern }
foreach $key(sort keys %all){
print $all{$key};
}
Sollte es tun.
Robert
.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oO
Robert C. Helling Albert Einstein Institut Potsdam
Max Planck Institute For Gravitational Physics
print "Just another Fon +49 331 567 7227 Fax +49 331 567 7298
stupid .sig\n"; http://www.aei-potsdam.mpg.de/~helling
Mehr Informationen über die Mailingliste linux-l