Hash Zugriff und Speicherung in Variablen - #80353 (Allgemeines zu Perl)

Crian

2004-02-27 16:11

User since
2003-08-04
5872 Artikel
ModeratorIn

Ich kann mir im Moment zwei sinnvolle Dinge vorstellen, die Du vielleicht bezwecken möchtest:

1) Dein Hash enthält Usernamen als Schlüssel und Passworte als Werte (danach sieht es aber nicht aus)

2) Dein Hash enthält Usergruppen als Schlüssel und Usernamen als Werte.
Das könnte Sinn machen. Allerdings solltest Du dann nicht nur einzelne Werte speichern, sondern Listen.

Dazu könnte dann dieser Code passen:

Code: (dl )

#/usr/bin/perl
use strict;
use warnings;


# Hash mit erlaubten Werten:
my %logname = (
               Tester => [
                           "ABC1",
                           "BCD2",
                           "Multi",
                         ],
               Admin  => [
                           "DEF3",
                           "Crian", #;)
                           "Multi",
                         ],
              );

my $user_name = <>;
chomp($user_name);

#
# Bestimmen aller passenden Werte:
#
my @keys;
for my $group (keys %logname) {
    my @k = grep { $_ eq $user_name } @{$logname{$group}};
    push @keys, $group if scalar @k;
}

#
# Begrüßung mit passenden Gruppen oder Ablehnung:
#
if (scalar @keys > 0) {
    print "Willkommen ", join(', ', @keys), " $user_name!\n";
}
else {
    print "'$user_name', Sie sind dem System leider nicht bekannt.\n";
}

Edit: ABC1 bekommt zu hören: "Willkommen Tester ABC1!", Crian bekommt zu hören: "Willkommen Admin Crian!" und Multi bekommt zu hören: "Willkommen Tester, Admin Multi!". Unbekannte wie etwa sdaf bekommen "'sdaf', Sie sind dem System leider nicht bekannt." zu hören\n\n

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