1. Toy模板网首页
  2. > Toy博客

小白的初次更新------Perl教程（上）

10月前 作者：小石榴与兄棣伙的结合体(*^▽^*) 分类：Toy博客 阅读(52) 违法举报

这篇具有很好参考价值的文章主要介绍了小白的初次更新------Perl教程（上）。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

大家好啊，我来更新第二篇博客了，这篇博客给大家分享一下Perl的教程

分为了上中下三篇哦~~~

✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌✌

我滴主页：❤❤❤小石榴与兄棣伙的结合体(*^▽^*)_-CSDN博客

 希望大家三连+关注！！！

Perl 教程

小白的初次更新------Perl教程（上）,perl,开发语言

Perl 是 Practical Extraction and Report Language 的缩写，可翻译为 "实用报表提取语言"。

Perl 是高级、通用、直译式、动态的程序语言。

Perl 最初的设计者为拉里·沃尔（Larry Wall），于1987年12月18日发表。

Perl 借用了C、sed、awk、shell脚本以及很多其他编程语言的特性。

Perl 最重要的特性是Perl内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。

谁适合阅读本教程？

本教程适合想从零开始学习 Perl 编程语言的开发人员。当然本教程也会对一些模块进行深入，让你更好的了解 Perl 的应用。

学习本教程前你需要了解

在继续本教程之前，你应该了解一些基本的计算机编程术语。如果你学习过PHP，ASP等其他编程语言，将有助于你更快的了解 Perl 编程。

第一个 Perl 程序

对于大多数程序语言，第一个入门编程代码便是"Hello World！"，以下代码为使用 Perl 输出"Hello World！"：

实例

#!/usr/bin/perl print "Hello, World!\n";

Perl 简介

Perl，一种功能丰富的计算机程序语言，运行在超过100种计算机平台上，适用广泛，从大型机到便携设备，从快速原型创建到大规模可扩展开发。

Perl 语言的应用范围很广，除CGI以外，Perl被用于图形编程、系统管理、网络编程、金融、生物以及其他领域。由于其灵活性，Perl被称为脚本语言中的瑞士军刀。

什么是 Perl？

Perl是由Larry Wall设计的，并由他不断更新和维护的编程语言。

Perl具有高级语言（如C）的强大能力和灵活性。事实上，你将看到，它的许多特性是从C语言中借用来的。

Perl与脚本语言一样，Perl不需要编译器和链接器来运行代码，你要做的只是写出程序并告诉Perl来运行而已。这意味着Perl对于小的编程问题的快速解决方案和为大型事件创建原型来测试潜在的解决方案是十分理想的。

Perl提供脚本语言（如sed和awk）的所有功能，还具有它们所不具备的很多功能。Perl还支持sed到Perl及awk到Perl的翻译器。

简而言之，Perl像C一样强大，像awk、sed等脚本描述语言一样方便。

Perl 优点

  • 相比C、Pascal这样的"高级"语言而言，Perl语言直接提供泛型变量、动态数组、Hash表等更加便捷的编程元素。
  • Perl具有动态语言的强大灵活的特性，并且还从C/C++、Basic、Pascal等语言中分别借鉴了语法规则，从而提供了许多冗余语法。
  • 在统一变量类型和掩盖运算细节方面，Perl做得比其他高级语言(如：Python）更为出色。
  • 由于从其他语言大量借鉴了语法，使得从其他编程语言转到Perl语言的程序员可以迅速上手写程序并完成任务，这使得Perl语言是一门容易用的语言。
  • Perl 是可扩展的，我们可以通过CPAN（"the Comprehensive Perl Archive Network"全面的 Perl 存档网络）中心仓库找到很多我们需要的模块。

  • Perl 的 mod_perl 的模块允许 Apache web 服务器使用 Perl 解释器。

Perl 缺点

也正是因为Perl的灵活性和"过度"的冗余语法，也因此获得了仅写（write-only）的"美誉"，因为Perl程序可以写得很随意（例如，变量不经声明就可以直接使用），但是可能少写一些字母就会得到意想不到的结果（而不报错），许多Perl程序的代码令人难以阅读，实现相同功能的程序代码长度可以相差十倍百倍，这就令程序的维护者（甚至是编写者）难以维护。

同样的，因为Perl这样随意的特点，可能会导致一些Perl程序员遗忘语法，以至于不得不经常查看Perl手册。

建议的解决方法是在程序里使用use strict;以及use warnings;，并统一代码风格，使用库，而不是自己使用"硬编码"。Perl同样可以将代码书写得像Python或Ruby等语言一样优雅。

很多时候，perl.exe进程会占用很多的内存空间，虽然只是一时，但是感觉不好。

Perl 环境安装

在我们开始学习 Perl 语言前，我们需要先安装 Perl 的执行环境。

Perl 可以在以下平台下运行：

  • Unix (Solaris, Linux, FreeBSD, AIX, HP/UX, SunOS, IRIX etc.)
  • Win 9x/NT/2000/
  • WinCE
  • Macintosh (PPC, 68K)
  • Solaris (x86, SPARC)
  • OpenVMS
  • Alpha (7.2 and later)
  • Symbian
  • Debian GNU/kFreeBSD
  • MirOS BSD
  • 等等...

很多系统平台上已经默认安装了 perl，我们可以通过以下命令来查看是否已安装：

$ perl -v

This is perl 5, version 18, subversion 2 (v5.18.2) built for darwin-thread-multi-2level
(with 2 registered patches, see perl -V for more detail)

Copyright 1987-2013, Larry Wall
……

如果输出以上信息说明已安装，如果还未安装，可以看接下来的安装指导。

安装 Perl

我们可以在 Perl 的官网下载对应平台的安装包:Perl Download - www.perl.org

Perl 基础语法

Perl 借用了C、sed、awk、shell脚本以及很多其他编程语言的特性，语法与这些语言有些类似，也有自己的特点。

Perl 程序由声明与语句组成，程序自上而下执行，包含了循环，条件控制，每个语句以分号 ; 结束。

Perl 语言没有严格的格式规范，你可以根据自己喜欢的风格来缩进。

第一个 perl 程序

交互式编程

你可以在命令行中使用 -e 选项来输入语句来执行代码，实例如下：

$ perl -e 'print "Hello World\n"'

输入以上命令，回车后，输出结果为：

Hello World

脚本式编程

我们将以下代码放到 hello.pl 文件中：

实例

#!/usr/bin/perl # 输出 "Hello, World" print "Hello, world\n";

代码中 /usr/bin/perl 是 perl 解释器的路径。在执行该脚本前要先确保文件有可执行权限，我们可以先将文件权限修改为 0755 ：

$ chmod 0755 hello.pl 
$ ./hello.pl 
Hello, world                   # 输出结果

print 也可以使用括号来输出字符串，以下两个语句输出相同的结果：

print("Hello, world\n");
print "Hello, world\n";

脚本文件

perl 代码可以写在一个文本文件中，以 .pl、.PL 作为后缀。

文件名可以包含数字，符号和字母，但不能包含空格，可以使用下划线（_）来替代空格。

一个简单的Perl 文件名：

run_oob.pl

注释

使用注释使你的程序易读，这是好的编程习惯。

perl 注释的方法为在语句的开头用字符#，如：

# 这一行是 perl 中的注释

perl 也支持多行注释，最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:

实例

#!/usr/bin/perl # 这是一个单行注释 print "Hello, world\n"; =pod 注释 这是一个多行注释 这是一个多行注释 这是一个多行注释 这是一个多行注释 =cut

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

Hello, world

注意：

  • =pod、 =cut只能在行首。
  • 以=开头，以=cut结尾。
  • =后面要紧接一个字符，=cut后面可以不用。

Perl 中的空白

Perl 解释器不会关心有多少个空白，以下程序也能正常运行：

实例

#!/usr/bin/perl print "Hello, world\n";

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

Hello, world

但是如果空格和分行出现在字符串内，他会原样输出：

实例

#!/usr/bin/perl # 会输出分行 print "Hello world\n";

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

Hello
          world

所有类型的空白如：空格，tab ，空行等如果在引号外解释器会忽略它，如果在引号内会原样输出。

单引号和双引号

perl 输出字符串可以使用单引号和双引号，如下所示：

实例

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

输出结果如下：

Hello, world
Hello, world\n

从结果中我们可以看出，双引号 \n 输出了换行，而单引号没有。

Perl双引号和单引号的区别: 双引号可以正常解析一些转义字符与变量，而单引号无法解析会原样输出。

实例

#!/usr/bin/perl $a = 10; print "a = $a\n"; print 'a = $a\n';

输出结果如下：

a = 10
a = $a\n

Here 文档

Here文档又称作heredoc、hereis、here-字串或here-脚本，是一种在命令行shell（如sh、csh、ksh、bash、PowerShell和zsh）和程序语言（像Perl、PHP、Python和Ruby）里定义一个字串的方法。

使用概述：

  • 1、必须后接分号，否则编译通不过。
  • 2、EOF 可以用任意其它字符代替，只需保证结束标识与开始标识一致。
  • 3、结束标识必须顶格独自占一行(即必须从行首开始，前后不能衔接任何空白和字符)。
  • 4、开始标识可以不带引号号或带单双引号，不带引号与带双引号效果一致，解释内嵌的变量和转义符号，带单引号则不解释内嵌的变量和转义符号。
  • 5、当内容需要内嵌引号（单引号或双引号）时，不需要加转义符，本身对单双引号转义，此处相当与 q 和 qq 的用法。

实例

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

转义字符

如果我们需要输出一个特殊的字符，可以使用反斜线（\）来转义，例如输出美元符号($):

实例

#!/usr/bin/perl $result = "菜鸟教程 \"runoob\""; print "$result\n"; print "\$result\n";

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

小白的初次更新------Perl教程（上）,perl,开发语言

Perl 标识符

Perl 标识符是用户编程时使用的名字，在程序中使用的变量名，常量名，函数名，语句块名等统称为标识符。

  • 标识符组成单元：英文字母（a~z，A~Z），数字（0~9）和下划线（_）。
  • 标识符由英文字母或下划线开头。
  • 标识符区分大小写，$runoob 与 $Runoob 表示两个不同变量。

 

Perl 数据类型

Perl 是一种弱类型语言，所以变量不需要指定类型，Perl 解释器会根据上下文自动选择匹配类型。

Perl 有三个基本的数据类型：标量、数组、哈希。以下是这三种数据类型的说明：

序号 类型和描述
1 标量

标量是 Perl 语言中最简单的一种数据类型。这种数据类型的变量可以是数字，字符串，浮点数，不作严格的区分。在使用时在变量的名字前面加上一个 $，表示是标量。例如：

$myfirst=123;　    #数字123　

$mysecond="123";   #字符串123　
2 数组

数组变量以字符 @ 开头，索引从 0 开始，如：@arr=(1,2,3)

@arr=(1,2,3)
3 哈希

哈希是一个无序的 key/value 对集合。可以使用键作为下标获取值。哈希变量以字符 % 开头。

%h=('a'=>1,'b'=>2);

数字字面量

一、整型

Perl 实际上把整数存在你的计算机中的浮点寄存器中，所以实际上被当作浮点数看待。

在多数计算机中，浮点寄存器可以存贮约 16 位数字，长于此的被丢弃。整数实为浮点数的特例。

整型变量及运算：

$x = 12345;
if (1217 + 116 == 1333) {
    # 执行代码语句块
}

8 进制和 16 进制数：8 进制以 0 开始，16 进制以 0x 开始。例如：

$var1 = 047;    # 等于十进制的39
$var2 = 0x1f;   # 等于十进制的31

二、浮点数

浮点数数据如：11.4 、 -0.3 、.3 、 3. 、 54.1e+02 、 5.41e03。

浮点寄存器通常不能精确地存贮浮点数，从而产生误差，在运算和比较中要特别注意。指数的范围通常为 -309 到 +308。

实例

#!/usr/bin/perl $value = 9.01e+21 + 0.01 - 9.01e+21; print ("第一个值为：", $value, "\n"); $value = 9.01e+21 - 9.01e+21 + 0.01; print ("第二个值为:", $value, "\n");

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

第一个值为：0
第二个值为:0.01

三、字符串

Perl 中的字符串使用一个标量来表示，定义方式和 c 很像，但是在 Perl 里面字符串不是用 \0 来表示结束的。

Perl 双引号和单引号的区别: 双引号可以正常解析一些转义字符与变量，而单引号无法解析会原样输出。

但是用单引号定义可以使用多行文本，如下所示：

#!/usr/bin/perl 

$var='这是一个使用

多行字符串文本

的例子';

print($var);

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

这是一个使用

多行字符串文本

的例子

Perl 语言中常用的一些转义字符如下表所示：

转义字符 含义
\\ 反斜线
\' 单引号
\" 双引号
\a 系统响铃
\b 退格
\f 换页符
\n 换行
\r 回车
\t 水平制表符
\v 垂直制表符
\0nn 创建八进制格式的数字
\xnn 创建十六进制格式的数字
\cX 控制字符，x可以是任何字符
\u 强制下一个字符为大写
\l 强制下一个字符为小写
\U 强制将所有字符转换为大写
\L 强制将所有的字符转换为小写
\Q 将到\E为止的非单词（non-word）字符加上反斜线
\E 结束\L、\U、\Q

Perl 变量

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

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

上一章节中我们已经为大家介绍了Perl的三个基本的数据类型：标量、数组、哈希。

  • 标量 $ 开始， 如$a $b 是两个标量。
  • 数组 @ 开始 ， 如 @a @b 是两个数组。
  • 哈希 % 开始 ， %a %b 是两个哈希。

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

创建变量

变量不需要显式声明类型，在变量赋值后，解释器会自动分配匹配的类型空间。

变量使用等号(=)来赋值。

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

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

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

以上代码中 25, "runoob" 和 1445.50 分别赋值给 $age, $name 和 $salary 变量。

接下来我们会看到数组和哈希的使用。

标量变量

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

实例

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

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

Age = 25
Name = runoob
Salary = 1445.5

数组变量

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

数组 @ 开始。

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

实例

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

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

$ages[0] = 25
$ages[1] = 30
$ages[2] = 40
$names[0] = google
$names[1] = runoob
$names[2] = taobao

程序中我们在 $ 标记前使用了转义字符 (\) ，这样才能输出字符 $。

哈希变量

哈希是一个 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";

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

$data{'google'} = 45
$data{'runoob'} = 30
$data{'taobao'} = 40

变量上下文

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

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

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

实例

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

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

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

代码中 @names 是一个数组，它应用在了两个不同的上下文中。第一个将其复制给另外一个数组，所以它输出了数组的所有元素。第二个我们将数组赋值给一个标量，它返回了数组的元素个数。

以下列出了多种不同的上下文：

序号 上下文及描述
1 标量 −

赋值给一个标量变量，在标量上下文的右侧计算
2 列表 −

赋值给一个数组或哈希，在列表上下文的右侧计算。
3 布尔 −

布尔上下文是一个简单的表达式计算，查看是否为 true 或 false。
4 Void −

这种上下文不需要关系返回什么值，一般不需要返回值。
5 插值 −

这种上下文只发生在引号内。

好了，今天先到这吧

最后别忘了

点赞，收藏，评论，关注！！！

爱你们哦😙

❤❤❤❤❤❤❤❤❤❤❤❤文章来源地址https://www.toymoban.com/news/detail-714913.html

到了这里，关于小白的初次更新------Perl教程（上）的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处： 如若内容造成侵权/违法违规/事实不符，请点击违法举报进行投诉反馈，一经查实，立即删除！

分享到：
领支付宝红包 赞助服务器费用

相关文章

  • 无涯教程-Perl - splice函数

    此函数从LENGTH元素的OFFSET元素中删除ARRAY元素,如果指定,则用LIST替换删除的元素。如果省略LENGTH,则从OFFSET开始删除所有内容。 以下是此函数的简单语法- 该函数返回- 在标量context中,如果没有删除任何元素,则为undef 在标量context中删除了最后一个元素 在列表context中,失败时为空

    2024年02月12日
    浏览(50)

  • 无涯教程-Perl - use函数

    此函数将MODULE导出的所有功能(或仅LIST引用的功能)导入当前包的名称空间。有效等效于- 也用于在当前脚本上强加编译器指令(编译指示),尽管从本质上讲它们只是模块。 请注意,use语句在编译时进行判断。在执行时判断require语句。 如果VERSION参数存在于Module和LIST之间,则使用将

    2024年02月12日
    浏览(38)

  • 无涯教程-Perl - seekdir函数

    此功能将DIRHANDLE中的当前位置设置为POS。 POS的值必须是Telldir先前返回的值。 seekdir()函数类似于Unix seekdir()系统调用。 以下是此函数的简单语法- 如果失败,此函数返回0,如果成功,则返回1。 以下是显示其基本用法的示例代码,在/tmp内创建一个目录testdir- 执行上述代码后,将产生

    2024年02月13日
    浏览(34)

  • 无涯教程-Perl - redo函数

    此函数将重新启动当前循环,而不会强制判断控制语句。块中不再执行任何语句。如果存在继续块,将不会执行。如果指定了LABEL,则在LABEL标识的循环开始时重新开始执行。 以下是此函数的简单语法- 此函数不返回任何值。 以下是显示其基本用法的示例代码- 执行上述代码后,将

    2024年02月13日
    浏览(31)

  • 无涯教程-Perl - grep函数

    此函数从LIST中提取EXPR为TRUE的所有元素。 以下是此函数的简单语法- 此函数返回在标量context中表达式返回true的次数以及在列表context中与表达式匹配的元素列表。 以下是显示其基本用法的示例代码- 执行上述代码后,将产生以下输出- Perl 中的 grep函数 - 无涯教程网 无涯教程网

    2024年02月13日
    浏览(34)

  • 无涯教程-Perl - unshift函数

    此函数按顺序将LIST中的元素放在ARRAY的开头。这与shift()相反。 以下是此函数的简单语法- 此函数返回ARRAY中新元素的数量。 以下是显示其基本用法的示例代码- 执行上述代码后,将产生以下输出- Perl 中的 unshift函数 - 无涯教程网 无涯教程网提供描述此函数按顺序将LIST中的元素

    2024年02月12日
    浏览(57)

  • 无涯教程-Perl - undef函数

    此函数未定义EXPR的值。用于标量,列表,哈希,函数或类型范围。在带有诸如undef $hash {$key}之类的语句的哈希上使用；实际上将指定键的值设置为未定义的值。 如果要从哈希中删除元素,请使用delete函数。 以下是此函数的简单语法- 此函数返回undef。 以下是显示其基本用法的示例

    2024年02月12日
    浏览(37)

  • 无涯教程-Perl - bless函数

    此函数告诉REF引用的实体,它现在是CLASSNAME包中的对象,如果省略CLASSNAME,则为当前包中的对象。建议使用bless的两个参数形式。 以下是此函数的简单语法- 该函数返回对祝福到CLASSNAME中的对象的引用。 以下是显示其基本用法的示例代码,通过祝福对包类的引用来创建对象引用-

    2024年02月13日
    浏览(41)

  • 无涯教程-Perl - warn函数

    此函数将LIST的值打印到STDERR。基本上与die函数相同,除了不对出口进行任何调用并且在eval语句内不引发异常。这对于引发错误而不导致脚本过早终止很有用。 如果变量$@包含一个值(来自先前的eval调用),并且LIST为空,则$@的值将以。t.caught打印。附加到末尾。如果$@和LIST都为空

    2024年02月11日
    浏览(41)

  • 无涯教程-Perl - chdir函数

    此功能将当前工作目录更改为EXPR,如果未指定,则更改为用户的主目录。此函数调用等效于Unix命令 cd EXPR 。 以下是此函数的简单语法- 如果失败,此函数返回0,如果成功,则返回1。 以下是显示其基本用法的示例代码,假设您在/user/home/learnfk目录中工作- Perl 中的 chdir函数 - 无涯教程

    2024年02月14日
    浏览(34)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

博客赞助

微信扫一扫打赏

请作者喝杯咖啡吧~博客赞助

支付宝扫一扫领取红包，优惠每天领

二维码1

领取红包

二维码2

领红包