Perl 标量

Posted 2021-04-17 集成电路设计及EDA教程

图：

曲：

当前浏览器不支持播放音乐或语音，请在微信或其他浏览器中播放

Perl 标量

转自菜鸟教程：http://www.runoob.com/perl/perl-scalars.html

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

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

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

实例

#!/usr/bin/perl

$age = 20; # 整数赋值

$name = "Runoob"; # 字符串

$salary = 130.50; # 浮点数

print "Age = $age ";

print "Name = $name ";

print "Salary = $salary ";

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

Age = 20

Name = Runoob

Salary = 130.5

---

1、数字标量

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

实例

#!/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

---

2、字符串标量

以下实例演示了不同类型的字符串标量的使用，注意单引号和双引号的使用区别：

实例

#!/usr/bin/perl

$var = "字符串标量 - 菜鸟教程!";

$quote = '我在单引号内 - $var';

$double = "我在双引号内 - $var";

$escape = "转义字符使用 - Hello, World!";

print "var = $var ";

print "quote = $quote ";

print "double = $double ";

print "escape = $escape ";

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

var = 字符串标量 - 菜鸟教程!

quote = 我在单引号内 - $var

double = 我在双引号内 - 字符串标量 - 菜鸟教程!

escape = 转义字符使用 -    Hello, World!

---

3、标量运算

以下实例演示了标量的简单运算：

实例

#!/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

---

4、多行字符串

我们可以使用单引号来输出多行字符串，如下所示：

实例

#!/usr/bin/perl

$string = '

菜鸟教程

—— 学的不仅是技术，更是梦想！

';

print "$string ";

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

菜鸟教程

    —— 学的不仅是技术，更是梦想！

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

实例

#!/usr/bin/perl

print <<EOF;

菜鸟教程

—— 学的不仅是技术，更是梦想！

EOF

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

菜鸟教程

    —— 学的不仅是技术，更是梦想！

---

5、特殊字符

以下我们将演示 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__

---

6、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