[Perl] 纯文本查看 复制代码
#!/usr/bin/perl
#一般情况
@array = qw{go around};
print "Those people @array preaching revolution.\n";
@groad = qw{welcome to};
$email = "beyes@groad.net";
print "My email is $email\n"; #展开的是数组
$email = "beyes\@groad.net"; #转义 '@' 符号
print "My email is $email \n";
$email = 'beyes@groad.net'; #单引号里面的内容保持原汁原味
print "My email is $email \n";
@groad = qw(welcome to groad net);
$groad = "domain";
#数组名和普通变量名同名时避免误解的方法(这里要输出 [3] 而不是将其当做是数组的索引)
print "It is $groad[2]\n";
print "It is ${groad}[3]\n"; #使用花括号避免误解
print "It is $groad\[3]\n"; #使用反斜杠转义
print "It is $groad"."[3]\n"; #使用 '.' 连接符号