#!/usr/bin/perl -w
use strict;
use warnings;
use Class::Struct;
struct System => {
Name => '$',
};
my $system = new System;
$system->Name("Server1");
my $strout1 = qq{Server is ${$system->Name}\n};
my $strout2 = "Server is \"".$system->Name."\"\n";
print $strout1;
print $strout2;
結果:不能使用字符串(「服務器1」)作爲標裁判而「嚴格裁判」使用
不能使用字符串(「服務器1」)作爲標REF而「嚴格裁判」在 使用在test.pl線14
我希望能夠用QQ和正確DEREF $system->Name
。任何人都可以解釋我要去哪裏?
完美的謝謝你。 – Ryan
通常使用'「@ {[$系統 - >名稱]}」'代替 –