From robe at vandale.nl  Mon Sep  2 02:49:31 2002
From: robe at vandale.nl (Rob Ermers)
Date: Thu Aug  5 00:23:59 2004
Subject: [vienna.pm] Verzeichnisse
Message-ID: <D4BBDD3AE4A1D411BDE30001FA7E7910DAB067@matra>

 <<nummer.pl>> 
Liebe Perl-Freunde,

Vor einiger Zeit hat Roland Bauer uns sehr geholfen ein Script zu basteln
(sehe nummer.pl), das mehrere Verzeichnisse generiert. Jetzt wo das Ende des
Projekts in Sicht kommt, haben sich unsere W?nsche um ein kleines biss'l
ge?ndert.

In unserem Haupttext -- eine ?bersetzung eines Arabischen Lexikons -- haben
wir mehrere Tausenden von Lemmata. Jedes Lemma hat ein Hauptwort <TREFW.>
und eine ?bersetzung <HVERT.>, manche haben ausserdem Beispiels?tze <VOORB.>
und deren ?bersetzungen. Weil wir die Hauptw?rter im Haupttext nicht
alphabetisch ordnen wollen -- es handelt sich ja um eine ?bersetzung --
haben wir jedem Lemma eine Referenznummer <NUMM.> zugewiesen. Diese
Referenznummer benutzen wir in den Verzeichnissen.

Wir wollen jetzt alle Hauptw?rter und W?rter aus den Beispielen zusammen in
ein einziges Verzeichnis aufnehmen, aber so, dass erkennbar ist in welchem
Lemma das Wort als Hauptwort aufgenommen ist. 

Dazu wollen wir die Referenznummer in dem Verzeichnis mit einer extra
Markierung versehen (z.B. <u>). Im Script m?sste dazu u.E. bei ### der Hash
ver?ndert werden. Obwohl ich auf Perl-Gebiet inzwischen einiges dazugelernt
habe, ?bersteigt dies meine Kenntnisse. Kann jemand uns weiterhelfen?

Hierunten folgt ein Beispiel.

Herzliche Gr?sse,

Robert Ermers
r.ermers@hccnet.nl

<BEGIN.>
<NUMM.>	123
<TREFW. >	Borke
<HVERT.>	schors
<VOORB.>	zwischen Baum und Borke sitzen
<EINDE.>

<BEGIN.>
<NUMM.>	1245
<TREFW. >	Baum
<HVERT.>	boom
<VOORB.>	der Baum der Erkenntnis
<EINDE.>


Verzeichnis:

Baum 123, <u>1245</u>
Borke <u>123</u>
der 123, 1245
Erkenntnis 1245
sitzen 123
und 123
zwischen 123


========================= 
www.vandale.nl. 
=========================
-------------- next part --------------
A non-text attachment was scrubbed...
Name: nummer.pl
Type: application/octet-stream
Size: 1178 bytes
Desc: not available
Url : http://mail.pm.org/archives/vienna-pm/attachments/20020902/e536be5b/nummer.obj
From roland.bauer at fff.at  Tue Sep  3 14:50:49 2002
From: roland.bauer at fff.at (Roland Bauer)
Date: Thu Aug  5 00:24:00 2004
Subject: [vienna.pm] Verzeichnisse
In-Reply-To: <D4BBDD3AE4A1D411BDE30001FA7E7910DAB05E@matra>
References: <D4BBDD3AE4A1D411BDE30001FA7E7910DAB05E@matra>
Message-ID: <Mahogany-0.64.2-4292930521-20020903-215049.00@fff.at>

On Thu, 29 Aug 2002 11:50:52 +0200 Rob Ermers <robe@vandale.nl> wrote:

#Jetzt wo das Ende des
#Projekts in Sicht kommt, haben sich unsere W=FCnsche aber um ein =
#kleines
#biss'l ge=E4ndert.
#
#Dazu wollen wir die
#Referenznummer in dem Verzeichnis mit einer extra Markierung versehen =
#(z.B.
#<u>). Im Script m=FCsste dazu u.E. bei ### der Hash ver=E4ndert werden. =

Hallo Rob,

da gibt es mehrere M?glichkeiten, zB folgende Vorgangsweise:

1) Statt gleichzeitig normale W?rter und Hauptw?rter zu schreiben:
- if (/^(<VOORB|TREFW.>)\s+(.*)/)
- push @{$voorb{$word}}, $i;
k?nnte man den Push-Befehl 2 x verwenden:
- if (/^(<VOORB>)\s+(.*)/) ....... nur die VOORB pushen
2) ausserhalb der for-schleife zusaetlich das TREFFW. (steht
in $hw) pushen: push @{$voorb{$hw}}, '<u>$i</u>';
3) die Sortierung der Nummern sollte ok sein, wenn man das push von $hw im
TREFFW-if macht: if (/^<TREFW.>\s+(.*)/) { ... push ... }

Roland







From roland.bauer at fff.at  Tue Sep  3 14:50:56 2002
From: roland.bauer at fff.at (Roland Bauer)
Date: Thu Aug  5 00:24:00 2004
Subject: [vienna.pm] Verzeichnisse
In-Reply-To: <D4BBDD3AE4A1D411BDE30001FA7E7910DAB067@matra>
References: <D4BBDD3AE4A1D411BDE30001FA7E7910DAB067@matra>
Message-ID: <Mahogany-0.64.2-4292930521-20020903-215056.00@fff.at>

Hallo Rob,

>Dazu wollen wir die Referenznummer in dem Verzeichnis mit einer extra
>Markierung versehen (z.B. <u>).

M?glicherweise w?re f?r Euch folgende Vorgangsweise ok:

1) VOORB und TREFW. getrennt in den Hash schreiben, also 
STATT: if (/^(<VOORB|TREFW.>)\s+(.*)/)
NEU: if (/^(<VOORB>)\s+(.*)/)

2) Das Hauptwort ($hw) extra in den Hash schreiben:
push @{$voorb{$hw}}, "<u>$i</u>";

3) Wenn das $hw vor der for-@words-Schleife geschrieben wird,
d?rfte sogar die Ausgabereihenfolge der Nummern ok sein