Perl 变量_4 | 易学教程

Perl 变量

变量是存储在内存中的数据，创建一个变量即会在内存上开辟一个空间。

解释器会根据变量的类型来决定其在内存中的存储空间，因此你可以为变量分配不同的数据类型，如整型、浮点型、字符串等。perl的三个基本的数据类型：标量、数组、哈希。

Perl 为每个变量类型设置了独立的命令空间，所以不同类型的变量可以使用相同的名称，你不用担心会发生冲突。例如 $foo 和 @foo 是两个不同的变量。

创建变量

变量不需要显式声明类型，在变量赋值后，解释器会自动分配匹配的类型空间。变量使用等号(=)来赋值。

我们可以在程序中使用 use strict 语句让所有变量需要强制声明类型。


等号左边为变量，右边为值，实例如下：

$age = 25;             # 整型
$name = "runoob";      # 字符串
$salary = 1445.50;     # 浮点数

标量变量

标量是一个单一的数据单元。数据可以是整数，浮点数，字符，字符串，段落等。简单的说它可以是任何东西。以下是标量的简单应用：

#!/usr/bin/perl
 
$age = 25;             # 整型
$name = "runoob";      # 字符串
$salary = 1445.50;     # 浮点数
 
print "Age = $age\n";
print "Name = $name\n";
print "Salary = $salary\n";

数组变量

数组是用于存储一个有序的标量值的变量。

数组 @ 开始。

要访问数组的变量，可以使用美元符号($)+变量名，并指定下标来访问，实例如下所示：

#!/usr/bin/perl
 
@ages = (25, 30, 40);             
@names = ("google", "runoob", "taobao");
 
print "\$ages[0] = $ages[0]\n";
print "\$ages[1] = $ages[1]\n";
print "\$ages[2] = $ages[2]\n";
print "\$names[0] = $names[0]\n";
print "\$names[1] = $names[1]\n";
print "\$names[2] = $names[2]\n";

哈希变量

哈希是一个 key/value 对的集合，哈希 % 开始。如果要访问哈希值，可以使用 $ + {key} 格式来访问：

#!/usr/bin/perl
 
%data = ('google', 45, 'runoob', 30, 'taobao', 40);
 
print "\$data{'google'} = $data{'google'}\n";
print "\$data{'runoob'} = $data{'runoob'}\n";
print "\$data{'taobao'} = $data{'taobao'}\n";

变量上下文

所谓上下文：指的是表达式所在的位置。

上下文是由等号左边的变量类型决定的，等号左边是标量，则是标量上下文，等号左边是列表，则是列表上下文。

Perl 解释器会根据上下文来决定变量的类型。实例如下：

#!/usr/bin/perl
 
@names = ('google', 'runoob', 'taobao');
 
@copy = @names;   # 复制数组
$size = @names;   # 数组赋值给标量，返回数组元素个数
 
print "名字为 : @copy\n";
print "名字数为 : $size\n";
以上程序执行输出结果为：

名字为 : google runoob taobao
名字数为 : 3

以下列出了多种不同的上下文：
在这里插入图片描述

Perl 标量

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

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

数字标量

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

#!/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\n";
print "negative = $negative\n";
print "floating = $floating\n";
print "bigfloat = $bigfloat\n";
print "octal = $octal\n";
print "hexa = $hexa\n";

字符串标量

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

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

标量运算

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


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

多行字符串

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

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

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

菜鸟教程
    —— 学的不仅是技术，更是梦想！

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

#!/usr/bin/perl
 
print <<EOF;
菜鸟教程
    —— 学的不仅是技术，更是梦想！
EOF
执行以上程序，输出结果为：

菜鸟教程
    —— 学的不仅是技术，更是梦想！

特殊字符

以下我们将演示 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-字串提供了一种更清晰的构造这类字串的方法。

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

参考文献：
【1】https://www.runoob.com/perl/perl-arrays.html

来源：CSDN

作者：菜鸟-求指导

链接：https://blog.csdn.net/qq_43042339/article/details/104607860

标签

perl

变量