Hi ich habe folgenden Code

my $a1 = "A" ;
my $a2 = "B" ;
my $a3 = "C" ;

foreach my $k ( 1,2,3 ) 
{
    my $msg = ${a{$k}} # this should be at runtime i am creating variable a1 and assigning it value to msg .
    print "$msg\n" ;
}

# No "my" here
$a1 = "A" ;
$a2 = "B" ;
$a3 = "C" ;

foreach my $k ( 1,2,3 )
{
    my $msg = ${"a${k}"};
    print "$msg\n" ;
}

Ich habe sie die Arbeit mit Arrays.

tatsächlich gab es einen Teil-Code in die Wiederholung. wie die Kontrolle 5,6,7 Argument Länge 1 und dann seinen gültigen Eintrag, so wollte ich nach der Prüfung zu drucken, die Argument falsch war.

$ARG5 = "ADD ENTRY TO DATABASE" ;
$ARG6 = "ADD ENTRY TO REG FILE" ;
$ARG7 = "SHOW DEBUG MSG" ;

foreach $k in ( 5,6,7) 
{ 
     if ...
     {
      } else 
      { 
             print ${"ARG$k"} entry invalid\n" ;      
       }
}
 
so i created array 

@ARG = ( undef ,undef, ..., "ADD ENTRY TO REG FILE",...) ;

zedex,

was Sie wollen, ist ein Hash.

Der Annahme, dass der Rest des Codes funktioniert:

my %ARG = (
   5 => "ADD ENTRY TO DATABASE",
   6 => "ADD ENTRY TO REG FILE",
   7 => "SHOW DEBUG MSG",
);

foreach $k in (5,6,7) {
{ 
     if ...
     {
      } else 
      { 
             print "$ARG{$k} entry invalid\n" ;      
       }
}

Dank KevinADC

eigentlich war ich an so viele Dinge vergessen einfache Nutzung von HASH. auch wenn ich für diesen Hash gleichen Grund zuvor .. jede Art und Weise schön zu wissen, wie es geht