Perl 标量

标量是一个简单的数据单元。

标量可以是一个整数，浮点数，字符，字符串，段落或者一个完整的网页。

以下实例演示了标量的简单应用：

实例

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

执行以上程序，输出结果为： 

									Age = 20
Name = yssmx
Salary = 130.5

数字标量

标量通常是一个数字或字符串，以下实例演示了不同类型的数字标量的使用：

实例

#!/usr/bin/perl $integer = 200 ; $negative = - 300 ; $floating = 200.340 ; $bigfloat = - 1.2 E - 23 ; # 八进制 377 , 十进制为 255 $octal = 0377 ; # 十六进制 FF, 十进制为 255 $hexa = xff ; 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 = " 字符串标量 - 云搜索MX教程! " ; $quote = ' 我在单引号内 - $var ' ; $double = " 我在双引号内 - $var " ; $escape = " 转义字符使用 - \t Hello, World! " ; print " var = $var \n " ; print " quote = $quote \n " ; print " double = $double \n " ; print " escape = $escape \n " ;

执行以上程序，输出结果为： 

									var = 字符串标量 - 云搜索MX教程!
quote = 我在单引号内 - $var
double = 我在双引号内 - 字符串标量 - 云搜索MX教程!
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 = ' 云搜索MX教程 —— 学的不仅是技术，更是梦想！ ' ; print " $string \n " ;

执行以上程序，输出结果为： 

									云搜索MX教程
    —— 学的不仅是技术，更是梦想！

你也可以使用 "here" document 的语法格式来输出多行：

实例

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

执行以上程序，输出结果为： 

									云搜索MX教程
    —— 学的不仅是技术，更是梦想！

特殊字符

以下我们将演示 Perl 中特殊字符的应用，如 __FILE__, __LINE__, 和 __PACKAGE__ 分别表示当前执行脚本的文件名，行号，包名。

注意 ： __ 是两条下划线， __FILE__ 前后各两条下划线。

这些特殊字符是单独的标记，不能写在字符串中，例如：

实例

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

执行以上程序，输出结果为： 

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

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 \n " ; print " foo = $foo \n " ; print " martin = $martin \n " ;

执行以上程序，输出结果为： 

									Wide character in print at test.pl line 7.
smile = &#x263a;
foo = foo
martin = Martin