Hash füllen (Allgemeines zu Perl)

tuturutka

2006-01-17 20:29

User since
2006-01-17
7 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich bin Anfänger und solche Frage ist für euch sicher lustig, aber was soll's...irgendwann muss man anfangen :)
Mein Programm soll eine kontextfreie Grammatik aus einer Datei einlesen und in Hash speichern. Jede Zeile der Datei hat eine Regel der Grammatik in der Form ABC. Ich stelle es mir so vor, dass A der Schlüssel ist und der Wert ein Verweis auf eine Liste mit BC. Wie kann ich das machen?
Danke

bloonix

2006-01-18 00:29

User since
2005-12-17
1615 Artikel
HausmeisterIn

Hallo tuturutka,

ich würde dir sehr gerne weiterhelfen, aber leider habe ich
nicht ganz verstanden was du meinst.

Kannst du vielleicht dein Vorhaben etwas näher beschreiben?
Hast du vielleicht ein paar Zeilen als Beispiel?

Greez,
opi

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

renee

2006-01-18 01:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Ist die Datei in BNF angegeben??

Code: (dl )

use Data::Dumper;
my %produktionen;
open(my $fh,"<",$grammarfile) or die $!;
while(my $line = <$fh>){
  chomp $line;
  my ($links,$rechts) = split(/\s*:\s*/,$line,2);
  $produktionen{$links} = $rechts;
}
close $fh;
print Dumper(\%produktionen);

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

nepos

2006-01-18 10:22

User since
2005-08-17
1420 Artikel
BenutzerIn

Hast du mal ein Beispiel, wie eine Zeile deiner Datei aussieht?

tuturutka

2006-01-18 22:41

User since
2006-01-17
7 Artikel
BenutzerIn
[default_avatar]

Also,wie gesagt, jede Zeile der Datei enthält eine Grammatikregel in der Form ABC, wobei A das Symbol auf ger linken Seite der Regel und B und C die Symbole auf der rechten Seite der Regel sind, oder eine Grammatikregel in der Form A "wort", wobei A ein Nichterminalsymbol und "wort" ein Terminalsymbol ist.Das Nichtterminal auf der linken Seite der ersten Regel ist das Startsymbol der Grammatik.
Bsp:
S NP VP
VP VP PP
VP V NP
:
:
N Frau
V sah
P mit
....

renee

2006-01-18 22:51

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

use Data::Dumper;
my %produktionen;
open(my $fh,"<",$grammarfile) or die $!;
while(my $line = <$fh>){
   chomp $line;
   my ($links,$rechts) = split(/\s+,$line,2);
   $produktionen{$links} = $rechts;
}
close $fh;
print Dumper(\%produktionen);

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Crian

2006-01-19 11:10

User since
2003-08-04
5870 Artikel
ModeratorIn

vielleicht noch

Code: (dl )

$Data::Dumper::Sortkeys = 1;

für die schönere Ausgabe

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

tuturutka

2006-01-19 11:47

User since
2006-01-17
7 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich habe noch eine Frage. Kann ich in einem Hash mehrere Werte mit dem gleichen Schlüssel speichern?
S NP VP
VP VP PP
VP V NP
PP P NP
NP NP PP
NP DT N
Sonst klappt es prima, aber Regeln mit gleicher linken Seite werden nicht berücksichtigt.

morph

2006-01-19 11:56

User since
2007-12-06
79 Artikel
BenutzerIn

Oder die Werte werden überschrieben. Meines Wissens ist das nicht möglich. Die keys müssen eindeutig sein.

Wie wäre es die keys des Hashes als Referenz auf einen Array anzulegen? Geht sowas? Ich bin mir da nicht ganz sicher.

-uw

Dubu

2006-01-19 12:06

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Code: (dl )

push @{$produktionen{$links}}, $rechts;

$produktionen{$links} ist dann kein Skalar mehr, sondern eine Arrayreferenz.