Perl 标量

#!/usr/bin/perl
 
age = 20;             # 整数赋值name = "Geekdoc";   # 字符串
salary = 130.50;     # 浮点数
 
print "Age =age\n";
print "Name = name\n";
print "Salary =salary\n";

Age = 20
Name = Geekdoc
Salary = 130.5

#!/usr/bin/perl
 
integer = 200;negative = -300;
floating = 200.340;bigfloat = -1.2E-23;
 
# 八进制 377 , 十进制为 255 
octal = 0377;
 
# 十六进制 FF, 十进制为 255hexa = 0xff;
 
print "integer = integer\n";
print "negative =negative\n";
print "floating = floating\n";
print "bigfloat =bigfloat\n";
print "octal = octal\n";
print "hexa =hexa\n";

integer = 200
negative = -300
floating = 200.34
bigfloat = -1.2e-23
octal = 255
hexa = 255

#!/usr/bin/perl
 
var = "字符串标量 - 极客教程!";quote = '我在单引号内 - var';double = "我在双引号内 - var";escape = "转义字符使用 -\tHello, World!";
 
print "var = var\n";
print "quote =quote\n";
print "double = double\n";
print "escape =escape\n";

var = 字符串标量 - 极客教程!
quote = 我在单引号内 - $var
double = 我在双引号内 - 字符串标量 - 极客教程!
escape = 转义字符使用 -    Hello, World!

#!/usr/bin/perl
 
str = "hello" . "world";       # 字符串连接num = 5 + 10;                  # 两数相加
mul = 4 * 5;                   # 两数相乘mix = str .num;             # 连接字符串和数字
 
print "str = str\n";
print "num =num\n";
print "mix = $mix\n";

str = helloworld
num = 15
mix = helloworld15

#!/usr/bin/perl
 
string = '
极客教程
    —— 学的不仅是技术，更是梦想！
';
 
print "string\n";

极客教程
    —— 学的不仅是技术，更是梦想！

#!/usr/bin/perl
 
print <<EOF;
极客教程
    —— 学的不仅是技术，更是梦想！
EOF

极客教程
    —— 学的不仅是技术，更是梦想！

#!/usr/bin/perl
 
print "文件名 ". __FILE__ . "\n";
print "行号 " . __LINE__ ."\n";
print "包名 " . __PACKAGE__ ."\n";
 
# 无法解析
print "__FILE__ __LINE__ __PACKAGE__\n";

文件名 test.pl
行号 4
包名 main
__FILE__ __LINE__ __PACKAGE__

#!/usr/bin/perl
 
smile  = v9786;foo    = v102.111.111;
martin = v77.97.114.116.105.110; 
print "smile =smile\n";
print "foo = foo\n";
print "martin =martin\n";

Wide character in print at test.pl line 7.
smile = ☺
foo = foo
martin = Martin