arrays - Perl 关联数组和变量赋值

Question

我无法理解这应该如何工作。我在 while 循环之外定义了我的两个散列。目标是能够检测 shell 类型，并将适当的哈希分配给新的 $shell 变量。这是我目前正在尝试的代码..

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

use POSIX;
use DateTime;
use Term::ANSIColor qw(:constants);

local $Term::ANSIColor::AUTORESET = 1;
my $dt = DateTime->now;   # Stores current date and time as datetime object

my %multicity = (
        url        => "example.com",
        ftpuser    => "user",
        ftppass    => "pass",
        remote_dir => "/httpdocs/",
        dbname     => "database"
);

my %singlecity = (
        url        => "example2.com",
        ftpuser    => "user",
        ftppass    => "pass",
        remote_dir => "/httpdocs/",
        dbname     => "database"
);

open (MYFILE, 'sites.txt');

LINE: while (<MYFILE>) {
    next LINE if /^#/;
    my ($shelltype, $siteurl, $ftpuser, $ftppass, $dbname) = split /\|/;

    # 1|example.com|user|pass|databasename - This should be a singlecity shell type.
    if ($shelltype == 1) { my $shell = \%multicity; } else { my $shell = \%singlecity; };

    print "Shelltype: $shelltype\n";
    print "Should be $shell{url}\n";

}
close (MYFILE);

我尝试了许多不同的方法，但无济于事，所以我终于求助于 stackoverflow 的专业人士来获得一些方向!

非常感谢任何帮助。谢谢。

Answer 1

你的 my $shell 是 if block 内的词法。将它移到 if 之外，否则它在那里不可用。添加一些缩进有助于发现这一点。

my $shell;
if ($shelltype == 1) { 
  $shell = \%multicity; 
} else { 
  $shell = \%singlecity; 
};

之后，您将收到一条警告，提示 %shell 未定义。那是因为您使用的是 $shell{url} 但您将 $shell 定义为哈希引用，因此您需要 $shell->{url} 或 $$shell{url} 在您的 print 中。