AW: Hash with variable name

[Thomas Bätzler]

HACKER Nora <nora.hac...@stgkk.at> wrote:
> The script is being started with a parameter $stp (among others) that
> can be one of mvb/pkv/av/be/vvw. This parameter is used as a key for a
> master hash the values of which are names of other hashes themselves.
>
> # Master-Hash
> my %stp_dirs = ( "mvb" => "mvb_dirs",
>                       "pkv" => "pkv_dirs",
>                       "av" => "av_dirs",
>                       "be" => "be_dirs",
>                       "vvw" => "vvw_dirs" );
> 
> # AV
> my %av_dirs=( "dir11" => "dir12"
>       "dir13" => "dir14" );
> 
> # BE
> my %be_dirs=( "dir21" => "dir22"
>       "dir23" => "dir24" );
> 
> # MVB
> my %mvb_dirs= ("dir31" => "dir32"
>                       "dir33" => "dir34" );
> 
> # PKV
> my %pkv_dirs=( "dir41" => "dir42"
>                       "dir43" => "dir44" );
> 
> # VVW
> my %vvw_dirs=( "dir51" => "dir52"
>                       "dir53" => "dir54" );

Try:

#!/usr/bin/perl -w

use strict;

# AV
my %av_dirs=(   'dir11' => 'dir12',
        'dir13' => 'dir14' );

# BE
my %be_dirs=(   'dir21' => 'dir22',
        'dir23' => 'dir24' );

# MVB
my %mvb_dirs= ('dir31' => 'dir32',
                        'dir33' => 'dir34' );

# PKV
my %pkv_dirs=( 'dir41' => 'dir42',
                        'dir43' => 'dir44' );

# VVW
my %vvw_dirs=( 'dir51' => 'dir52',
                        'dir53' => 'dir54' );

my %stp_dirs = (        'mvb' => \%mvb_dirs,
                        'pkv' => \%pkv_dirs,
                        'av' => \%av_dirs,
                        'be' => \%be_dirs,
                        'vvw' => \%vvw_dirs );

while ( my($sdir,$tdir) = each %{$stp_dirs{'mvb'}}) {
        print("SourceDir: $sdir\t\tTargetDir: $tdir\n");
}

__END__

HTH,
Thomas

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/