如何在perl中使用查找文本作為變量？

Question

我在file1.pm文件file1.pm中有變量

package oa;
use strict;
use warnings;
our $first1= 'DTH';
1;

現在想訪問變量中的這個變量，這是我的主程序，但是我沒有得到輸出，我知道問題是“ oa：$ var”我可以使用“ / oa :: $ var /”來訪問變量嗎？

#!/usr/bin/perl
use file1;
$input='DTH';
$var=first . 1;
if($input =~ /oa::$var/){
print “DTH”;
}

Answer 1

Perl不是PHP，並且$標記在軟件包名稱的前面：如果要訪問軟件包變量，請執行$PackageName::var_name 。

./MyPackage.pm ：

package MyPackage;  # package names should be CamelCase!
use strict;
use warnings;

our $first1 = 'DHT';
1;

./script.pl ：

use strict;
use warnings;
use MyPackage;

my $input = 'DHT';
if ($input =~ /$MyPackage::first1/) {
    print "DHT\n";
}

但是，您還通過名稱引用變量。 這是一件壞事，並且幾乎不可能理解和維護這樣的程序。 您可以改用哈希 （也稱為關聯數組，地圖或字典）：

在MyPackage ：

our %stuff = (
    first1 => 'DHT',
    other1 => 'foobar',
);

在腳本中：

my $var = 'first1';
if ($input =~ /$MyPackage::stuff{$var}/) {
    ...