6-Perl 标量

Posted 2020-11-23 bradmiller

1.Perl 标量
标量是一个简单的数据单元。
标量可以是一个整数，浮点数，字符，字符串，段落或者一个完整的网页。
以下实例演示了标量的简单应用：
实例
#!/usr/bin/perl
$age = 20; # 整数赋值
$name = "abc"; # 字符串
$salary = 130.50; # 浮点数
print "Age = $age ";
print "Name = $name ";
print "Salary = $salary ";
执行以上程序，输出结果为：
Age = 20
Name = abc
Salary = 130.5
2.数字标量
标量通常是一个数字或字符串，以下实例演示了不同类型的数字标量的使用：
实例
#!/usr/bin/perl
$integer = 200;
$negative = -300;
$floating = 200.340;
$bigfloat = -1.2E-23;
# 八进制 377 , 十进制为 255
$octal = 0377;
# 十六进制 FF, 十进制为 255
$hexa = 0xff;
print "integer = $integer ";
print "negative = $negative ";
print "floating = $floating ";
print "bigfloat = $bigfloat ";
print "octal = $octal ";
print "hexa = $hexa ";
执行以上程序，输出结果为：
integer = 200
negative = -300
floating = 200.34
bigfloat = -1.2e-23
octal = 255
hexa = 255
3.字符串标量
以下实例演示了不同类型的字符串标量的使用，注意单引号和双引号的使用区别：
实例
#!/usr/bin/perl
$var = "字符串标量 - 123!";
$quote = ‘我在单引号内 - $var‘;
$double = "我在双引号内 - $var";
$escape = "转义字符使用 - Hello, World!";
print "var = $var ";
print "quote = $quote ";
print "double = $double ";
print "escape = $escape ";
执行以上程序，输出结果为：
var = 字符串标量 - 123!
quote = 我在单引号内 - $var
double = 我在双引号内 - 字符串标量 - 123!
escape = 转义字符使用 - Hello, World!
4.标量运算
以下实例演示了标量的简单运算：
实例
#!/usr/bin/perl
$str = "hello" . "world"; # 字符串连接
$num = 5 + 10; # 两数相加
$mul = 4 * 5; # 两数相乘
$mix = $str . $num; # 连接字符串和数字
print "str = $str ";
print "num = $num ";
print "mix = $mix ";
执行以上程序，输出结果为：
str = helloworld
num = 15
mix = helloworld15
5.多行字符串
5.1 可以使用单引号来输出多行字符串，如下所示：
实例
#!/usr/bin/perl
$string = ‘
123
—— 学的不仅是技术，更是梦想！
‘;
print "$string ";
执行以上程序，输出结果为：
123
—— 学的不仅是技术，更是梦想！
5.2 可以使用 "here" document 的语法格式来输出多行：
实例
#!/usr/bin/perl
print <<EOF;
123
—— 学的不仅是技术，更是梦想！
EOF
执行以上程序，输出结果为：
123
—— 学的不仅是技术，更是梦想！
6.特殊字符
以下我们将演示 Perl 中特殊字符的应用，如 __FILE__, __LINE__, 和 __PACKAGE__ 分别表示当前执行脚本的文件名，行号，包名。
注意： __ 是两条下划线，__FILE__ 前后各两条下划线。
这些特殊字符是单独的标记，不能写在字符串中，例如：
实例
#!/usr/bin/perl

print "文件名 ". __FILE__ . " ";
print "行号 " . __LINE__ ." ";
print "包名 " . __PACKAGE__ ." ";
# 无法解析
print "__FILE__ __LINE__ __PACKAGE__ ";
执行以上程序，输出结果为：
文件名 test.pl
行号 4
包名 main
__FILE__ __LINE__ __PACKAGE__
7.v 字符串
一个以 v 开头,后面跟着一个或多个用句点分隔的整数,会被当作一个字串文本。
当你想为每个字符 直接声明其数字值时,v-字串提供了一种更清晰的构造这类字串的方法，而不像 "x{1}x{14}x{12c}x{fa0}" 这种不易于理解，我们可以看下面的实例：
实例
#!/usr/bin/perl

$smile = v9786;
$foo = v102.111.111;
$martin = v77.97.114.116.105.110;

print "smile = $smile ";
print "foo = $foo ";
print "martin = $martin ";
执行以上程序，输出结果为：
Wide character in print at test.pl line 7.
smile = &#x263a;
foo = foo
martin = Martin