Perl 语言

Posted 2021-04-17 牛学汇

Perl语言学习——Perl 标量

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

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

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

#!/usr/bin/perl

$age = 3;                    # 整数赋值

$name = "bionew";    # 字符串

$salary = 500;             # 浮点数 

print "Age = $age ";

print "Name = $name ";

print "Salary = $salary ";

执行以上操作：

Age = 3

Name = bionew

Salary = 500

数字标量

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

#!/usr/bin/perl 

$niuduan = 200;

$niumowang = -300;

$niuxiaonou = 200.340;

$niuer = -1.2E-23; 

# 八进制 377 , 十进制为 255 

$niuzai = 0377;  

# 十六进制 FF, 十进制为 255 

$niute = 0xff; 

print "niuduan = $niuduan ";

print "niumowang = $niumowang ";

print "niuxiaodou = $niuxiaodou ";

print "niuer = $niuer ";

print "niuzai = $niuzai ";

print "niute = $niute ";

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

niuduan = 200

niumowang = -300

niuxiaodou = 200.34

niuer = -1.2e-23

niuzai = 255

niute = 255

字符串标量

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

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

标量运算

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

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

多行字符串

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

#!/usr/bin/perl 

$string = '

奔牛科技  

       ——竭诚为您服务！

'; 

 print "$string ";

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

奔牛科技  

       ——竭诚为您服务！

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

#!/usr/bin/perl 

 print <<EOF; 

奔牛科技  

       ——竭诚为您服务！

EOF

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

奔牛科技  

       ——竭诚为您服务！

结束

今天牛二先介绍到这里，大家继续努力，学习的脚步永不停息。

下次再会！

每天叫醒你的不是闹钟，而是信念

牛学汇