Listen in Hashes deklarieren (Allgemeines zu Perl)

[thread]15197[/thread]

Listen in Hashes deklarieren

Leser: 22

Articles: hide open all | hide show old branches

+11 replies

Gast Almut

2010-06-26 11:42

Hallo,
kann mir mal jemand sagen wie ich mehrere Listen in einen Hash packe?
Soll in einer Aufgabe eine Datenbank mit mehrere Adressen darstellen. Die Adresse soll in Form einer Liste deklariert werden und dem Nachnamen(Schlüssel) zugewiesen werden.
Desweiteren soll ich den Benutzer einen Nachnamen eingeben lassen, worauf dann die dazugehörige Adresse ausgegeben werden soll(mit Überprüfung (exists) obs den Schlüssel überhaupt in der Datenbank gibt). Und bei einem bestimmten Wort sollen alle Schlüssel der Datenbank ausgegeben werden.
Ich glaub meine größtes Problem ist einfach, dass ich nciht weiß in welcher Form ich dass deklarieren muss. Damit ich sowohl auf die Schlüssel einzeln zugreifen und deren Wert ausgeben, als auch die Schlüssel der kompletten Datenbank ausgeben kann.Ich weiß irgendwie nicht wo ich was mit % und wo mit $ machen sollte.
Last edited: 2010-06-26 11:59:41 +0200 (CEST)

+5 replies

GwenDragon

2010-06-26 12:31

User since
2005-01-17
14748 Artikel
Admin1

Ich will mal nicht so sein.

Ein mehr oder weniger schnell hingeschriebener Beispielcode:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

my %database = (
  'TEST' => [ "Testdorf", 12345, "Testweg 99" ],
  'test' => [ "Teststadt", 54321, "Teststrasse 9" ],
);

sub Eingabe_Holen {
        my $eingabe = <STDIN>;
        chomp($eingabe);
        return if length($eingabe) == 0;
        return $eingabe;
}

sub say { print @_,"\n"; }

while (1) {
        say "
(1) Abfrage
(2) Erfassung
(X) Ende";
print "Auswahl: ";
        my $eingabe = Eingabe_Holen();
        last if length($eingabe) == 0 
                 or uc($eingabe) eq 'X';
        
        Abfrage() if $eingabe =~ /^1/;
        Erfassung() if $eingabe =~ /^2/;
}

sub Abfrage {
        print "Namen eingeben (* um alle abzufragen): ";
        my $wert = Eingabe_Holen();
        say "Datensatz wird gesucht...", "\n";
        
        if ($wert eq "*") {
                do {
                        say "------", 
                                join "\n", "", @{$database{$_}},
                                "------";
                } for keys %database;
        }
        elsif (exists $database{$wert}) {
                say "Datensatz: ", 
                          join "\n",@{$database{$wert}}; 
        } else {
                say "Datensatz nicht gefunden!"
        }
}

sub Erfassung {}

Die Erfassung eines Datensatzes musst du schon selbst erledigen. ;)
Du weißt ja bestimmt, wie die Wertzuweisung an einen Hash funktioniert, oder?

//EDIT: Ach so, eindutig ist die Speicherung in einem Hash so noch nicht. Wenn es mehrere gleiche Nachnamen gibt, überschreibt der nächste in der Erfassung den alten.

Wenn du was nicht weißt, frage bitte.
Last edited: 2010-06-26 12:54:43 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+4 replies
Gast Almut

2010-06-26 12:53
Danke, aber das erscheint mir alles ein bisschen "komisch" und Subroutinen, falls subs dafür steht, hatten wir auch noch nicht..Hab das mit der Deklaration jetzt mal verändert, aber ich weiß nicht wie ich da dann n Schlüssel aus dem Hash finden können soll..
Hätte das eher so in folgende Richtung gemacht:
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 34 35 36 37 38 39

#!usr/bin/perl # STDIN, STDOUT, Hashes Adresse use strict; use utf8; binmode(STDOUT , ":encoding(cp850)" ); binmode(STDIN , ":encoding(cp850)" ); my %Datenbank = ( 'Hubert' => ["Hans Hubert, Hubertusstr. 11, Huberstadt, Tel: 0684-65293"], 'Stein' => ["Gero Stein, Steinstr. 1, Steinfeld, Tel: 01234-567"], 'Baum' => ["Lana Baum, Baumallee 9, Eichenhausen, Tel: 23456-789"], 'Halm' => ["Rike Halm, Grüner Weg 72, Bonnstadt, Tel: 0228-33333"], 'Garten' => ["Eric Garten, Gartengasse 203, Gartenheim, Tel:09123-12345"], 'Wolle' => ["Leila Wolle, Schafpfad 2, Mähdorf, 0123-456"] ); my @Auswahl; print "\nBitte geben sie den Nachnamen der gewünschten Adresse ein:\n"; while (my $Eingabe = <STDIN>) { chomp ($Eingabe); if ( $Eingabe eq "alle Adressen") {foreach my $key (sort keys %Datenbank) { print "keys %hash\n"; } } if (exists $Datenbank{$Eingabe} ) { push (@Auswahl, $Eingabe); print "Sie haben folgende Adresse ausgewählt:@Auswahl\n"; } else { print "Ihr gewünschte Adresse befindet sich leider nicht in der Liste\n"; }
Achja und woher zum Teufel soll ich wissen, wie man das mit dem Code hier richtig einbaut. Da beschweren sich ja gern Leute drüber, dass man das nicht im Perl-Code dahin schreibt. Ich mein ich seh da zwar son Perl-"Knop", aber ich weiß ja nicht wo das in meinem Text stehen muss oder ob der da irgendwie rein muss oder so.

Last edited: 2010-06-26 12:57:29 +0200 (CEST)
- +3 replies
- GwenDragon
  
  2010-06-26 12:58
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Den Code hast du doch fein hier im Forum eingebaut. Passt doch.
  
  Was verstehst du an meinem Beispiel genau nicht?
  Sag doch mal was daran für dich unverständlich ist.
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Gast Almut
    
    2010-06-26 13:05
    
    Da sind einfach mehrere Begriffe und Operatoren drin mit denen ich nichts anfangen kann..wie gesagt das sub z.B.
    und das mit dem Code...hmm,Intuition, dass man das erst da hinkopieren muss, dann den Text und dann nochmal den Code...nur, dass das jetzt lustige Telefonnummerlinks stehen, aber das spielt ja keine Rolle.
    Last edited: 2010-06-26 13:16:14 +0200 (CEST)
    - Gast Almut
      
      2010-06-26 13:20
      
      Das sollte ohne Subroutinen laufen und ich will keine Extra-Eingabe mit Abfrage-Erfassung-Ende.Ich brauch Einfach nur ne Abfrage : Nachnamen eingeben um Adresse zum Nachnamen auszugeben und "alle ausgeben" oder so um dann alle auszugeben und mit exists noch den Text ob der Nachname der ausgeben werden soll überhaupt in der Datenbank ist.
      Tschuldigung...aber noch hatte ich keine Subroutinen und das mit Erfassung und Ende ist ja gar nicht gefragt.
      Last edited: 2010-06-26 13:22:07 +0200 (CEST)

+5 replies

pktm

2010-06-26 13:32

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo Almut,

mal so als kleine Referenz:

Code: (dl )

# Hash deklarieren
my %hash = ();

# Einen Akalar einfüllen
my $skalar = 'test';
$hash{'scalar'} = $skalar;

# Eine Liste in einem Hash geht nur als Referenz (siehe dazu [url=http://perldoc.perl.org/perlreftut.html]perlreftut[/url], wirklich *sehr* lesenswert).
my @array = (1, 2, 'test');
my $array_ref = \@array;
$hash{'list'} = $array_ref;

# geht auch direkt:
$hash{'list'} = \@array;

# oder:
$hash{'list'} = [1, 2, 'test'];

Zugriff auf die ganze Liste:
my $array_ref = $hash{'list'};
print $array_ref->[0]; # erstes Element ausgeben

# Zugriff als Array: mit @{$skalar} *dereferenzieren*
my @array = @{$hash{'list'}};
print $array[0]; # erstes Element ausgeben

Hoffe, das hilft.

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

+4 replies

Gast Almut

2010-06-26 14:05

Hilft mir leider nicht so wirklich weiter, ich hab ja da meine Nachnamen als Schlüssel und die Adresse als Liste, das mit dem deklarieren hab ich ja Dank der Antwort davor denk ich mal richtig, aber ich weiß ....ach keine Ahnung...ich bin verzweifelt. Ich muss das ganze jedenfalls ohne Subroutinen und mit exists machen...hier die Aufgabenstellung:
23. Erstellen Sie eine Adressdatenbank, indem Sie eine beliebige Anzahl von
Adressdatensätzen (min. 3 !) in einem Hash speichern. Sie können die Nachnamen als
Schlüssel und die Adressinformation als Wert anlegen. Ein Datensatz könnte z.B.
folgendermaßen aussehen:
Hubert => "Hans Hubert, Hubertusstr. 11, Huberstadt, Tel: 0684-65293"
Das Programm soll den Benutzer genau einen Schlüssel eingeben lassen und den dazu
gespeicherten Adressdatensatz ausgeben.
Ist kein Eintrag, also kein Schlüssel, mit dem eingegebenen Namen vorhanden, soll der
Benutzer informiert werden. Zur Erinnerung:
exists ($hash{$eingabe}) # Existiert in %hash der Schlüssel,
# der in $eingabe gespeichert ist?
# Rückgabewert ist wahr, wenn
# Schlüssel existiert und falsch
# wenn Schlüssel nicht existiert
Weiterhin soll das Programm noch die Möglichkeit bieten, auf ein Stichwort des Benutzers
hin, eine Liste mit allen möglichen Eingaben (sprich Schlüsseln) auszugeben.

Die Aufgabe kam mir erst ganz einfach vor und dann lief das mit dem deklarieren nicht...und sowie ichs jetzt deklariert hab, kann ich den REst nicht mehr anwenden...
Last edited: 2010-06-26 14:07:46 +0200 (CEST)

GwenDragon

2010-06-26 14:32

User since
2005-01-17
14748 Artikel
Admin1

So ähnlich wie deins:

Code (perl): (dl )

#!usr/bin/perl
# STDIN, STDOUT, Hashes Adresse

use strict;
use utf8;
binmode(STDOUT , ":encoding(cp850)" );
binmode(STDIN , ":encoding(cp850)" );

my %Datenbank = (
'Hubert' => ["Hans Hubert, Hubertusstr. 11, Huberstadt, Tel: 0684-65293"],
'Stein' => ["Gero Stein, Steinstr. 1, Steinfeld, Tel: 01234-567"],
'Baum' => ["Lana Baum, Baumallee 9, Eichenhausen, Tel: 23456-789"],
'Halm' => ["Rike Halm, Grüner Weg 72, Bonnstadt, Tel: 0228-33333"],
'Garten' => ["Eric Garten, Gartengasse 203, Gartenheim, Tel:09123-12345"],
'Wolle' => ["Leila Wolle, Schafpfad 2, Mähdorf, 0123-456"]
);

print "\nBitte geben sie den Nachnamen der gewünschten Adresse ein:\n"; 
while (my $Eingabe = <STDIN>) 
{   
        chomp ($Eingabe);
        if
                ( 
                $Eingabe eq "alle Adressen")
        {
                        foreach my $key (sort keys %Datenbank) {
                                print $Datenbank{$key}->[0],"\n"; # Adresse ausgeben
                        }
        }
        elsif  (
                $Eingabe ne ""
                )
        {
                if 
                (
                exists $Datenbank{$Eingabe}
                )
                {
                        print "Sie haben folgende Adresse ausgewählt: $Eingabe\n";
                        print $Datenbank{$Eingabe}->[0],"\n"; # Adresse ausgeben
                }
                else 
                {
                        print "Ihre gewünschte Adresse befindet sich leider nicht in der Liste\n";
                        print "Bitte Daten eingeben: ";
                        my $Daten = <STDIN>;
                        chomp ($Daten);
                        if ( $Daten ne "" ) 
                        {
                                $Datenbank{$Eingabe}->[0] = $Daten;
                                print "Ihre neue Adresse wird in die Liste eingefügt\n";
                        }
                }
        }
}

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+2 replies
pktm

2010-06-26 15:13

User since
2003-08-07
2921 Artikel
BenutzerIn

Wenn du dich so festgefahren hast, hilft meistens eine längere Pause und ein Neuanfang. Alte Codes weglegen, alles nochmal in Ruhe überdenken.
So hab ich das früher immer gelernt.
http://www.intergastro-service.de (mein erstes CMS :) )
- Gast Almut
  
  2010-06-26 16:46
  
  @GwenDragon: Vielen lieben Dank. Genauso hatte ich mir das Ganze vorgestellt, nur an der Umsetzung hats halt an einigen Stellen gehapert.
  Naja, der letzte Teil mit der Eingabe von einer neuen Adresse ist für diese Aufgabe überflüssig, aber vielleicht gebrauch ich das ja nochmal wann anders.
  @ptkm: auch dir Danke für deine Bemühungen, auch wenn sie mir letztendlich nicht weitergeholfen haben.
  DANKE
  Last edited: 2010-06-26 17:00:47 +0200 (CEST)

View all threads created 2010-06-26 11:42.