perl-数据类型

Iam柒年

已于 2022-10-07 22:29:51 修改

阅读量1.1k

点赞数

分类专栏： perl 文章标签： perl 开发语言

于 2022-09-12 16:51:06 首次发布

本文链接：https://blog.youkuaiyun.com/qq_37884273/article/details/126815557

版权

perl 专栏收录该内容

3 篇文章

订阅专栏

这篇学习笔记介绍了Perl的基础语法，包括命令行执行、编程习惯、注释和警告。深入讲解了标量、数组和哈希等数据类型，以及它们的操作和使用。还涉及到了数组的索引、赋值、添加删除元素，以及哈希的创建、访问、迭代和操作。文章通过实例展示了Perl中变量声明、运算符和控制结构。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下一篇：perl-操作表达（运算符，条件表达，循环）

学习记录

学习perl脚本有一段时间了，整理下perl的基础语法，以后忘记了，再回来看。

关于perl执行，注释，打印警告，编程习惯约定

使用命令行执行：

perl -w -e 'print("hello, world\n")' 
# -e 执行perl代码
# -w 输出警告（如果有错误）
# 单引号：按照原样输出，双引号：转移输出（\n，被转义成换行），如果没有转义，那双引号和单引号是一样的

使用脚本执行：以下是一些编程习惯

默认以pl结尾表示perl脚本
执行 perl test.pl

#!/usr/bin/perl -w
# use strict;
# use diagnostics;
print("hello, world\n");
# #号是注释
# print默认带括号，每一行默认带分号（perl比较灵活，没有分号也行）
# 默认使用双引号表示字符串
# 对于初学者，建议加上use strict(初略)或者use diagnostics(详细)，打印错误信息（避免拼写错误，限定变量作用域），便于分析debug

使用帮助文档：

perldoc -f print
# 使用perldoc来查询内建函数的使用，包括一些例子

数据类型

perl中变量分为三种数据类型，以下介绍

标量

标量可以是数字（perl强制将数字存储为双精度浮点数，所以不需要考虑数字的精度问题），字符串（加双引号），以$作为标量标识，以下是需要注意的地方

举例：

$first = 123;　    # 数字标量123
$second = "123";   # 字符串标量123

关于数字标量非十进制数表示

进制举例
二进制，以0b开头 0b1111_1111，表示十进制255
八进制，以0开头 0377，表示十进制的255
十六进制，以0x开头 0xff(0xFF)，表示十进制255
关于标量申明，在perl中，可以在任何地方申明标量并使用（也可以不申明直接用，不建议这么写）
关于标量的初始值，标量的初始值为空（null）
关于标量运算，数字变量操作（加减乘除），$a+$b, $a-$b, $a*$b, $a/$b, $a%$b ，字符串标量拼接，$a.$b

进制	举例
二进制，以`0b`开头	`0b1111_1111`，表示十进制`255`
八进制，以`0`开头	`0377`，表示十进制的`255`
十六进制，以`0x`开头	`0xff(0xFF)`，表示十进制`255`

关于标量的作用域分以下两种：
– 包标量：包标量是包（package）内的全局标量在整个包以及下面的子函数都可以用
– 私有标量：a. my型标量，只在本层模块可以看到这个表标量（本层调用的其他函数是看不到
– 的），b. local型标量，在本层和本层下层的函数都可以看到的。同名标量下，私有类型的标量优先级高

#!/usr/bin/perl -w

sub g_print{
    print("g_test x: ", "$x\n");
}
sub test_my{
    my $x = 11;  # my私有变量，只在本模块使用
    print("call my x: ", "$x\n");
    g_print(); # 调用外部逻辑，属于本模块的下层模块，看不到本模块my私有变量
}
sub test_local{
    local $x = 20; # local私有变量，在本模块以及下层模块使用
    print("call local x: ", "$x\n");
    g_print(); # 调用外部逻辑，属于本模块的下层模块，能看到本模块local私有变量
}
$x = 9; #包变量
test_my();
test_local();
print("x: ", "$x\n");

# 结果：
# g_test x: 9
# call my x: 11
# g_test x: 9
# call local x: 20
# g_test x: 20
# x: 9

数组

perl 数组一个是存储标量值的列表集合变量，变量可以是不同类型，可以包含任意多个元素，以@符号作为数组标识，这里的数组指的是一维数组，以下是需要注意的地方

举例：

@val = (25, 30, 40);             
@names = ("google", "runoob", "taobao");

数组的下标从左到右以0开始，从右到左以-1开始，@val = () 表示空数组

访问数组元素，下表取值和连续取值，非连续取值，跟很多脚本语言差不多

#!/usr/bin/perl -w
@val_0 = (25, 30, 40);
# 单元素索引，访问数组中某一个元素，单个数组元素是标量，用的是标量符号
$a = $val_0[0];
print("\$val_0[0]: $val_0[0]\n"); # 25 \表示转义输出, 没法转义的按原样输出
print("\$val_0[-1]: $val_0[-1]\n"); # 40，反向取值
# 连续索引，访问的是数组，用的是数组符号
@val_1 = @val_0[0..1];
print("\@val_0: @val_0\n"); # 25,30 连续取值采用的是数组序列方式
@val_2 = @val_0[0,1];
print("\@val_2: @val_2\n"); # 25,30 非连续取值
@val_3 = @val_0[2, 0..1];
print("\@val_3: @val_3\n"); # 40, 25,30 这样写也行

数组序列，用于数组初始化于数组切片，起始值 + .. + 结束值

@val = (2..6); 
print("@val\n"); # 表示(2,3,4,5,6)
@val = (6..2);
print("@val\n"); # 表示空数组
@val = (6, 1..5, 2)
print("@val\n"); # 表示(6,1,2,3,4,5,2)
@var_abc = ('a'..'z');
print("@var_abc\n");  # 输出 a 到 z

数组赋值-纯字符串数组，

# 使用qw标记，各元素以空格或多行来分开，省去了**对字符串加引号**的过程
# 界定符用！，/，（），间隔符使用空格，换行
@array = qw!这是 一个 数组!;
@array = qw/这是 一个 数组/;
@array = qw(这是 一个 数组);

# 使用split(" ", $string)函数，将字符串分割为数组, 双引号中是以此为参照物分割
$string = "Where There Is A Will There Is A Way";
@array = split(" ", $string);
print "$array[4]\n";
# 反之使用join(" ", @array)函数，也可以将数组装换成字符串
@array = ("Where", "There", "Is", "A", "Will", "There", "Is", "A", "Way");
$string = join(" ", @array);

数组赋值-其他

# a.直接赋值
@array = ("string", 1, 2, 1..5);
@array = qw(string1, string2, string3);

# b.混合赋值，如果数组包含标量，其他数组，则会进行取值作为元素
# @array2 = ("hello", "world", 123, "how are you?");
$test = "hello";
@array1 = ("world", 123);  
@array2 = ($test, @array1, "how are you?");

# c.复制赋值, 复制表示的重新存储，区别于索引
@array1 = ("string", 1, 2);
@array2 = @array1;

# 索引赋值, 单元素索引并修改，连续
@array1 = ("string", 1, 2);
$array1[0] = "hello"; 
@array1[0..1] = ("hello", "world");

# 替换赋值，使用splice(@array, offset, num, list)
@nums = (1..20);
print "替换前 - @nums\n"; 
# 从第5个开始，替换5嗝元素，以21..25去替换
splice(@nums, 5, 5, 21..25); 
print "替换后 - @nums\n";

数组添加和删除元素

@sites = ("hello","world","123");
$size = @sites; # 拿到数组大小
# $val = pop(@array)操作，删掉数组中最后一个元素, 并返回这个删除值（当然也可以不要返回）
$val = pop(@sites); 
# #$val = shift(@array)操作，删掉数组开头元素，并返回这个删除值（当然也可以不要返回）
$val = shift(@sites);
# push(@array, list)操作，在数组末尾添加一个或者多个元素
push(@sites, 1);
push(@sites, 1..2);
push(@sites, @val);
# unshift(@array, list)操作，在数组开头添加一个或者多个元素
unshift(@sites, 1);
unshift(@sites, 1..2);
unshift(@sites, @val);

数组大小或长度

 # 数组大小指的是存储物理大小
 @sites = ("hello","world","123");
 $size = @sites; # #size = 3
 $sites[6] = "yes";
 $size = @sites; # #size = 7
 # 数组长度指的是最后一个数组的索引下标, 使用$#，不能有括号以及数组标志符@
 $index_max = $#sites;

哈希

很多脚本语言都有键值对｛key:val｝这种数据结构，在perl语言中叫哈希，以%符号为前缀，以下举例

实例

#!/usr/bin/perl -w
# 创建哈希，单双引号都可以
%dict = ("ame", "lisa", "age", 25, "height", "180cm");
print("\$dict{'name'}: $dict{'name'}\n");
print("\$dict{'age'}: $dict{'age'}\n");
print("\$dict{'height'}: $dict{'height'}\n");
# 打印结果，注意打印用双引号打印，内部就只能用单引号，哈希表以{}来表示索引
$dict{'name'}: lisa
$dict{'age'}: 25
$dict{'height'}: 180cm

创建哈希以及访问元素

# 除了实例中介绍的，一般用=>符号穿件键值对，比较直观
%dict = ("ame" => "lisa", "age" => 25, "height" => "180cm");
# 访问哈希元素格式：$dict{key}
$name = $dict{"name"};

读取哈希keys以及value

# 使用keys函数返回哈希中所有键到列表
# 2022/10/7更新，注意是返回到一个列表中，因此可以用foreach对哈希中键或者值进行单独循环
%dict = ("ame" => "lisa", "age" => 25, "height" => "180cm");
@key = keys(%dict);
print("\@key: @key\n");
# 打印结果
@key: height age name

# 使用values函数返回哈希中所有的对到列表
%dict = ("ame" => "lisa", "age" => 25, "height" => "180cm");
@value = values(%dict);
print("\@value: @value\n");
# 打印结果
@value: 25 lisa 180cm

# 对key和value进行循环
foreach my $key (keys(%dict)) {
  my $value = $dict{$key};
  print "$key : $value\n";
}

哈希迭代

# 使用each函数对哈希进行迭代，按顺序返回哈希中每一个键值对
%dict = ("ame" => "lisa", "age" => 25, "height" => "180cm");
while(($key, $value) = each(%dict)){
  print("key: $key, value: $value\n");
}

哈希中添加或删除键值对

# 哈希中是靠键值对来识别元素，添加或删除没有列表那么复杂
# 添加键值对，也可以来修改键值对
%dict = ("ame" => "lisa", "age" => 25, "height" => "180cm");
$dict{"result"} = 100;
$dict{"age"} = 18;
print("\$dict{'result'}: $dict{'result'}\n");
# 删除键值对，使用delet函数，删掉键值即可
delete($dict{"result"});

检查键值对是否存在

# 在读取键值对之前，要判断下该键值对是否存在
# 使用exists函数判断，返回一个布尔值
%dict = ("ame" => "lisa", "age" => 25, "height" => "180cm");
if(exists($dict{"result"})){
  print("存在result键");
}
else {
  print("不存在result键");
}