Perl语言中的变量非常有趣。Perl变量无需声明,用$来指明即可。例如:
$s = "HellonWorldn";
$t = 'HellonWorldn';
print $s, "n", $t;
或:
$i = 5;
$j = $i + 5;
print $i, "t", $i + 1, "t", $j; # t = tab
或:
$a = "Hello ";
$b = "Worldn";
$c = $a .$b; # note use of . to concat strings
print $c;
由于 . 表示字符串连接,因此可以估计 .= 与 C 语言中的“+=”具有相同的含义。所以,你可以写成:
$a = "Hello ";
$b = "Worldn";
$a .= $b;
print $a;
还可以创建数组:
@a = ('cat', 'dog', 'eel');
print @a, "n";
print $#a, "n"; # The value of the highest index, zero based
print $a[0], "n";
print $a[0], $a[1], $a[2], "n";
符号$#表示获得数组中的最高索引,它等于数组中元素的编号减1。像在C语言中一样,所有数组的索引都是从零开始的。
您也可以创建散列:
%h = ('dog', 'bark', 'cat', 'meow', 'eel', 'zap');
print "The dog says ", $h{'dog'};
该散列中,单词'bark'和'dog'相关联,'meow'和'cat'相关联,等等。这个散列还可以表达的更具艺术性:
%h = (
dog => 'bark',
cat => 'meow',
eel => 'zap'
);
运算符=>引用左边的字符串,相当于一个逗号。
编辑推荐