Perl学习笔记

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Perl学习笔记，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3321字，纯文字阅读大概需要5分钟。

内容图文

1.单引号和双引号

#!/usr/bin/perl
print "Hello, world\n"; # 双引号
print 'Hello, world\n'; # 单引号

 

 结果：

Hello, world
Hello, world\n

 

也就是可以看出，双引号会解析 转义字符和变量，而单引号不会。 

2.字符串（Here文档）

#!/usr/bin/perl
$a = 10;
$var = <<"EOF";
这是一个 Here 文档实例，使用双引号。
可以在这输如字符串和变量。
例如：a = $a
EOF
print "$var\n";
$var = <<'EOF';
这是一个 Here 文档实例，使用单引号。
例如：a = $a
EOF
print "$var\n";

 

输出：

这是一个 Here 文档实例，使用双引号。
可以在这输如字符串和变量。
例如：a = 10

这是一个 Here 文档实例，使用单引号。
例如：a = $a

 

1.$a用来定义标量，

2.在定义字符串时，要使用一个EOF或者其他任何样式的字母，并且加上<<，最后一行结束时还要有同样的字串作为结束，并且如果是双引号，就会解析其中的变量，单引号不解析变量。

3.数据类型

Perl是弱类型的语言，变量不需要指定类型。

1.标量：可以是数字、字符串、浮点数：$myfirst=123;　 #数字123

2.数组：以0开头，@arr=(1,2,3)

3.哈希：%h=('a'=>1,'b'=>2);  无序的key/value集，以%开头。

4.变量上下文

#!/usr/bin/perl
@names = ('google', 'runoob', 'taobao');
@copy = @names; # 复制数组
$size = @names; # 数组赋值给标量，返回数组元素个数
print "名字为 : @copy\n";
print "名字数为 : $size\n";

 

输出：

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

 

上下文是由表达式左边的变量类型决定的，=左边是标量/列表，则是标量/列表上下文，

5.特殊字符

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

 

结果：

文件名 E:/MymyEclipse_workSpace/Test002/perl.pl
行号 3
包名 main
__FILE__ __LINE__ __PACKAGE__

 

其中分别是指文件名、行号、包名。这些特殊字符不能出现在字符串中。

6.建立和访问数组

@array=(1,2,3);
$array[0]=9;
print "$array[0]";

 

建立就是很正常地建立，访问使用$+元素位置就可以了，和python一样，-1表示最后一个，并且-2以此类推。

#!/usr/bin/perl
@var_10 = (1..10);
@var_20 = (10..20);
@var_abc = (a..z);
print "@var_10\n"; # 输出 1 到 10
print "@var_20\n"; # 输出 10 到 20
print "@var_abc\n"; # 输出 a 到 z

 

提供了：起始值..结束值 来创建数组，和SNL挺像啊。

数组大小可以由 标量上下文决定。

7.对数组的操作

#!/usr/bin/perl
# 创建一个简单是数组
@sites = ("google","runoob","taobao");
print "1. \@sites = @sites\n";
# 在数组结尾添加一个元素
push(@sites, "baidu");
print "2. \@sites = @sites\n";
# 在数组开头添加一个元素
unshift(@sites, "weibo");
print "3. \@sites = @sites\n";
# 删除数组末尾的元素
pop(@sites);
print "4. \@sites = @sites\n";
# 移除数组开头的元素
shift(@sites);
print "5. \@sites = @sites\n";

 

这个例子很不错了，清晰明了。首先是对数组的输出是最基本的，直接输出定义就可以。

push(@数组名，“添加元素”)/unshift(@数组名，“添加元素”)/pop(@数组名)/shift(@数组名)

---

 

#!/usr/bin/perl
@sites = qw/google taobao runoob weibo qq facebook 网易/;
@sites2 = @sites[3,4,5];
print "@sites2\n";

 

这个例子给出了创建数组的另一种方法，就是使用qw然后是/元素1 元素2 /；  元素之间使用空格隔开。

对元素进行分割，切割后赋值给一个新的数组，当然也可以使用像创建数组时的 ..，来表示一个范围。

---

 

#!/usr/bin/perl
@nums = (1..20);
print "替换前 - @nums\n";
splice(@nums, 5, 5, 21..25);
print "替换后 - @nums\n";

 

结果：

替换前 - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
替换后 - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

 

对数组元素进行替换使用splice函数，其中参数分别是就是@数组名、替换起始下标，替换元素个数，替换为的序列。

例子中就是从下标为5，的5个数分别替换为21-25.

---

 

内容总结

以上是互联网集市为您收集整理的Perl学习笔记全部内容，希望文章能够帮你解决Perl学习笔记所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---