linux-l: SOrtieren.

[Robert C. Helling]

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