AI 助理
备案控制台
开发者社区 开发与运维 文章 正文

perl语言 入门

2019-02-15 2286
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： perl语言 入门

linux系统一般自带perl,可以在命令行运行。

1.Hello,World

#!/usr/bin/perl -w
print ("hello,world!\n");
#print "hello,world!\n";

说明：
（1）第一行指定解释器，-w参数表示提示警告（或者使用use strict命令，执行更严格的检查）；
（2）第二行输出hello, world!；
（3）如果习惯c的函数方式，print的参数可以打括号；
（4）第三行是注释，注释以#打头；
（5）如果习惯shell的方式，print的参数可以没有括号；
（6）双引号内可以使用转义字符；
不妨设文件名为helloworld.pm

程序的执行方法为：

（1）perl helloworld.pm
（2）chmod 755 helloworld.pm && ./helloworld.pm

2.常量

2.1数字

（1）Perl内部总按照“双精度浮点数”保存数字并执行运算；
（2）0377=>八进制；0xFF=>十六进制；

2.2字符串

（1）单引号表示字符串，不转义；
（2）双引号表示字符串，转义且解释变量；

2.3字符串操作符

（1）拼接操作符：“.”=>拼接字符串；
（2）重复操作符：“x”=>一个字符串重复多次；

#!/usr/bin/perl -w
print ("hello,"."world!\n");
print ("hello " x 3);

输出结果是：

hello,world!
hello hello hello

最后要说明一点，Perl是弱类型语言，字符串和数字会相互转化，这一点和php一样。

3.变量

（1）变量以$开头，后接一个标示符；
（2）如何用变量获取用户输入？
使用，它获取用户的输入（一般以换行结束），可以使用chomp去除结尾的换行符。

#!/usr/bin/perl -w
$count = 0;
while($count<10)
{
chomp($input = <STDIN>);
print($input);
$count++;
}

（3）未定义变量
未定义的变量会赋予undef值，它既不是数字，也不是字符串；
它有可能被当做数字0使用；
使用define函数可以知道一个变量是否被定义；

#!/usr/bin/perl -w
$var = undef;
print($var);
if(defined($var))
{
print("defined!\n");
}
else
{
print("undefined!\n");
}
$var++;
print($var);

它的输出是：

Use of uninitialized value in print at undef.pm line 3.
undefined!
1

（4）变量的作用域
my和our可以指定变量的作用域
my指定为局部作用域；
our指定为全局作用域（默认为our）；

#!/usr/bin/perl -w
our $g_one = "global_one\n";
$g_two = "global_two\n";
{
my $local_one = "local_one\n";
print($g_one);
print($g_two);
print($local_one);
}
print($g_one);
print($g_two);
print($local_one);

输出为：

global_one
global_two
local_one
global_one
global_two
Use of uninitialized value in print at our_my.pm line 13.

4.数组与列表

4.1数组

和c的数组使用非常类似：
$array[0]=”a0″;
$array[1]=”a1″;
$array[2]=”a2″;

4.2列表

圆括号内的一系列值，构成列表：
(1, 2, 3)
(“hello”, 4)
(“hello”, “world”, “yes”, “no”)
qw(hello world yes no)
(1..10)
说明：
（1）第一行，列表元素为1,2,3；
（2）第二行，列表元素为一个字符串，一个数字；
（3）第三行，列表元素为4个字符串，好多引号和逗号啊；
（4）第四行，qw操作符，用来建立字符串列表，而不用输入这么多引号和逗号，效果同（3）；
（5）范围操作符“..”，表示一个范围，从左至右连续加一。
列表的赋值：
($v1, $v2, $v3) = qw(yes i am);
整个列表的引用，@操作符：
@list = qw(yes i am);
@none = ();
@huge = (1..5);
@stuff = (@list, @none, @huge);
pop和push操作符：
（1）pop弹出列表末端元素；
（2）push向列表末端压入元素；
shift和unshift操作符：
（1）shift移出列表首部元素；
（2）unshift向列表首部压入元素；
列表的输出：
（1）列表输出，只输出列表，元素间不含空格；
（2）列表的字符串化输出，输出列表，元素间加入空格；
（3）foreach控制结果，可以依次取得列表中各个元素

#!/usr/bin/perl -w
@list = qw(yes i am);
@none = ();
@huge = (1..5);
@stuff = (@list, @none, @huge);
$pop_last = pop(@stuff);
print($pop_last);
push(@stuff, "hello");
$shift_first = shift(@stuff);
print($shift_first);
unshift(@stuff, "world");
print(@stuff);
print("@stuff");
$element=undef;
foreach $element (@stuff)
{
print("$element!\n");
}

输出：

5
yes
worldiam1234hello
world i am 1 2 3 4 hello
i!
am!
1!
2!
3!
4!
hello!

4.3默认变量$_

该使用变量的地方，如果省略变量，则会使用默认变量$_。

#!/usr/bin/perl -w
$_="hello,world！";
print();

输出是：

hello,world！

5.函数

5.1函数定义与调用

（1）定义函数的关键字是sub；
（2）函数调用的关键字是&；
（3）可用return显示返回，也可用一个数字隐式返回

#!/usr/bin/perl
$num=0;
sub sumAdd
{
$num+=1;
print("$num\n");
#return $num; # 显示返回
$num; # 隐式返回
}
&sumAdd;
&sumAdd;
print(&sumAdd);

执行结果为：

1
2
3
3

5.2函数的参数

（1）调用函数时可直接带参数列表；
（2）函数定义处使用“默认变量”获取参数列表；

#!/usr/bin/perl -w
sub max
{
return ($_[0]>$_[1]?$_[0]:$_[1]);
}
$big=20;
$small=10;
print(&max($big,$small));

输出为：

20

6.程序输入输出

上文已经介绍过标准输入，下面介绍其他几种常见的输入输出。

6.1Unix工具输入输出：<>

<>提供类似于Unix工具输入输出的功能，它提供的功能能够很好的和cat/sed/awk/sort/grep等工具结合使用。

#!/usr/bin/perl -w
use strict;
while(<>)
{
chomp();
print("$_!!!\n");
}

该脚本的功能，是在输入每行后面加上!!!，它几处使用到了默认变量。
不妨设文件名为diamond.pm
不妨设hello.txt中有三行数据，分别是111,222,333
执行步骤：
（1）chmod 755 diamond.pm
（2）cat hello.txt | ./diamond.pm | cat
输出结果：
111!!!
222!!!
333!!!

6.2格式化输出：printf

#!/usr/bin/perl -w
$int_var = 2011;
$str_var = "hello,world";
printf("%d\n%s\n",$int_var,$str_var);

输出结果为：

2011
hello,world

6.3文件输入输出

Perl保留了6个文件句柄：STDIN/STDOUT/STDERR/DATA/ARGV/ARGVOUT
上述6.1中的程序还能这么执行：
./diamond.pm out.txt
则输出结果会重定向到out.txt中
输入输出到文件中中，需要打开、使用、关闭文件句柄
（1）打开文件句柄：

open LOG, “>>log.txt”;
open CONFIG, ”

（2）关闭文件句柄：

close LOG;
close CONFIG;

（3）使用文件句柄：

print LOG (“hello,world!\n”);
print STDERR (“yes i am!\n”);
while()
{
chomp();
…
}

也可以使用select关键字：

print(“to stdout1!”);
select LOG;
print(“to log1″);
print(“to log2″);
select STDOUT;
print(“to stdout2!”);
#!/usr/bin/perl -w
$input_file = "hello.txt";
$output_file = "out.txt";
open INPUT, "<$input_file"; open OUTPUT, ">>$output_file";
while(
<input type="text">)
{
chomp();
print OUTPUT ("$_!!!\n");
}
close OUTPUT;
close INPUT;

说明：他的功能和之前的diamond.pm是一样的。

7.哈希hash

7.1哈希的存取

$key=”am”;
$hash_one{“yes”} = 3;
$hash_one{“i”} = 1;
$hash_one{$key} = 5;
print($hash_one{“am”});
$value = $hash_one{“hello”}; # undef

7.2哈希的引用

要引用整个哈希，使用%操作符。
%hash_one = (“hello”,5,”world”,5);
print ($hash_one{“hello”});
%hash_two = %hash_one;

7.3哈希的松绑

哈希可以转化为键值列表，称为哈希的松绑，转化后不保证键的顺序，但值一定在键的后面。

#!/usr/bin/perl -w
$input_file = "hello.txt";
$output_file = "out.txt";
open INPUT, "<$input_file"; open OUTPUT, ">>$output_file";
while(
<input type="text">)
{
chomp();
print OUTPUT ("$_!!!\n");
}
close OUTPUT;
close INPUT;

输出结果为：

5
yes 3 am 2 hello 5 world 5 i 1

7.4哈希的反转

建立值对应键的反转哈希。
%hash_reverse = reverse(%hash_one);
只有在键值一一对应的情况下才凑效，否则会有无法预期的覆盖发生。

7.5哈希的美观赋值

哈希的美观赋值使用=>符号。
%hash_one = (“hello”,5,”world”,5,”yes”,3,”i”,1,”am”,2);
上面这种赋值方式很容易搞错，特别是键值都是字符串的时候。

%hash_one = (
“hello” => 5,
“world” => 5,
“yes” => 3,
“i” => 1,
“am” => 2,
);

美观赋值，是不是看起来更美观，更容易区分哈什的键值呢。

7.6哈希的遍历

（1）keys和values函数能返回所有键与值的列表，但列表内顺序不保证。
@k = keys(%hash_one);
@v = values(%hash_one);
（2）each函数能一一遍历哈希，返回键值对，非常适合于while等循环；
while(($key, $value) = each(%hash_one))
{
…
}
示例代码：

#!/usr/bin/perl -w
%hash_one = (
"hello" => 5,
"world" => 5,
"yes" => 3,
"i" => 1,
"am" => 2,
);
@k = keys(%hash_one);
@v = values(%hash_one);
print("@k\n");
print("@v\n");
$key = undef;
$value = undef;
while(($key, $value) = each(%hash_one))
{
print("$key=>$value\n");
}

输出结果为：

yes am hello world i
3 2 5 5 1
yes=>3
am=>2
hello=>5
world=>5
i=>1

7.7哈希的查询与删除

（1）查询一个键是否存在，使用exists函数；
（2）删除一个键，使用delete函数；

#!/usr/bin/perl -w
%hash_one=(
"yes" => 3,
"i" => 1,
"am" => 2,
);
delete($hash_one{"yes"});
if(exists($hash_one{"yes"}))
{
print($hash_one{"yes"});
}

结果什么也不输出。

8.流程控制*（本节可跳过，都是些花哨的用法）

除了各语言常用的if/esle，for，while等流程控制外，Perl还有一些特有的控制语句，更人性化。
（1）unless控制结构
作用效果类似于if not，无效率上提升，只是使表达更自然，代码更容易理解。
（2）until控制结构
作用效果类似于while not
（3）条件修饰
判断条件可以直接写在语句的后面，以增加可读性（habadog注：这是鬼扯）。

print (“$n”) if $n < 0; $i *= 2 until $i > 1024;
&sumAdd($_) foreach @num_list;

（4）裸控制结构
只有一个花括号的结构，往往用来限制作用域，在各语言中都很常见。

{
$a = 1;
…
}
# $a失效了

（5）last控制结构
相当于c中的break，立刻终止循环；
（6）next控制结构
相当于c中的continue，立刻开始下一次循环；
（7）redo控制结构
…独有的，重新开始本次循环；

while(1)
{
# 跳到这里
print (“hello”);
redo;
}

9.高级特性

神奇的Perl还有正则、module、文件、字符串、智能匹配、进程管理、线程支持等高级特性，就不在入门手册里介绍了。

文章标签：
Perl
PHP
Shell
Linux
Unix
网络协议
hiekay
目录
相关文章
张志凌
|
6月前
|
存储 索引 Perl
Perl 教程 之 Perl 面向对象 5
Perl的面向对象编程涉及匿名哈希表或数组来存储对象属性。类通过`@ISA`数组实现继承，如Employee继承Person。在Employee.pm中声明`@ISA = qw(Person)`。在main.pl中，创建Employee对象并调用方法，显示继承功能。程序输出显示姓名的变化。
张志凌
65 0
换个网名有点难
|
4月前
|
Unix Linux 开发者
Perl 语言入门学习
Perl 语言入门学习
换个网名有点难
56 0
jjczqyjxgdegi
|
5月前
|
网络协议 Unix Shell
技术笔记：perl语言入门（转）
技术笔记：perl语言入门（转）
jjczqyjxgdegi
29 0
张志凌
|
6月前
|
存储 索引 Perl
Perl 教程 之 Perl 面向对象 6
Perl 面向对象编程有两种实现：匿名哈希表和数组方式。教程中展示了基于哈希表的继承示例，Employee 类继承并重写了 Person 类的方法。在Employee中，`new`构造函数被重写，添加了新属性，`getFirstName`被重写，还新增了`setLastName`和`getLastName`方法。在主程序中，创建Employee对象并调用这些方法，显示了方法重写和辅助函数的使用效果。
张志凌
45 3
张志凌
|
6月前
|
存储 索引 Perl
Perl 教程 之 Perl 面向对象 1
Perl的面向对象编程涉及两种实现：使用匿名哈希表存储对象属性的引用，或使用数组为每个属性创建行索引。对象是类的实例，类是包含方法的Perl包。方法是接受对象或类名作为首参的子程序。`bless()`函数用于构建对象，将引用与类关联。
张志凌
28 3
张志凌
|
6月前
|
存储 索引 Perl
Perl 教程 之 Perl 面向对象 3
Perl的面向对象编程涉及两种实现：匿名哈希表引用和数组引用。对象是类（Perl包）中数据项的引用，方法是接收类名或对象作首参的子程序。
张志凌
42 3
张志凌
|
6月前
|
存储 索引 Perl
Perl 教程 之 Perl 面向对象 4
Perl的面向对象涉及两种对象实现：匿名哈希表和数组。对象是类的实例，类是包含方法的Perl包。方法是接收对象引用作为首参的子程序。`bless()`函数用于构造对象。以下是一个Person类的例子，包含`new`构造器、`getFirstName`和`setFirstName`方法。在`employee.pl`脚本中，创建Person对象并演示了方法的使用。输出显示了姓名的设置和获取过程。
张志凌
42 2
张志凌
|
6月前
|
存储 Java 索引
Perl 教程 之 Perl 面向对象 7
在Perl OOP中，对象基于匿名哈希或数组实现，存储实例属性。当调用不存在的方法时，Perl查找AUTOLOAD来动态处理。析构函数DESTROY在对象销毁时自动调用，允许执行清理操作。不能修改传递给DESTROY的只读引用，但可写入对象本身。析构器可调用基类或其他类的DESTROY，但通常不手动调用。对象释放时，其所含对象也会自动销毁。
张志凌
36 1
张志凌
|
6月前
|
存储 索引 Perl
Perl 教程 之 Perl 面向对象 8
Perl面向对象教程展示了两种实现：通过匿名哈希表或数组存储对象属性。示例中，`MyClass`与子类`MySubClass`被定义，后者继承并扩展了父类方法。在主程序中，创建并调用了对象，演示了构造、方法调用、继承及自动调用析构函数的过程。
张志凌
49 1
张志凌
|
6月前
|
存储 索引 Perl
Perl 教程 之 Perl 面向对象 2
Perl的面向对象编程涉及两种实现：匿名哈希表引用和数组引用。对象是类数据的引用，类是包含方法的Perl包。方法是接收类名作为首参的子程序。`bless()`函数用于构造对象。类定义为包，提供独立命名空间，文件通常以`.pm`结尾。例如： ```markdown .package Person # 类代码... .end ``` 简而言之，Perl的OOP基于引用，类是包，方法是子程序，`bless`构造对象，类定义创建命名空间。
张志凌
34 2

热门文章

最新文章

  • 1
    SpringBoot开发案例之整合Dubbo提供者(一)
  • 2
    阿里AI上岗双11服装车间，能识别头发丝直径十分之一的瑕疵
  • 3
    Webpack构建library时的踩坑经历
  • 4
    安装nginx：src/os/unix/ngx_user.c:26:7: error: ‘struct crypt_data’ has no member named ‘curren
  • 5
    字节流套接口的读写
  • 6
    【转】类别catagory的用法
  • 7
    lsof 命令
  • 8
    TeamCity : 自动触发 Build
  • 9
    建站篇-用户认证系统-管理员登陆后台
  • 10
    asp.net学习之ado.net(无连接模式中的DataAdapter)
  • 1
    VideoChat：高效学习新神器！一键解读音视频内容，结合 AI 生成总结内容、思维导图和智能问答
    40
  • 2
    《C++巧筑智能框架根基：开启 AI 开发新航道》
    30
  • 3
    《跨越语言壁垒：Python 人工智能原型到 C++可执行程序的转型之路》
    26
  • 4
    Go语言中json序列化的一个小坑，建议多留意一下
    26
  • 5
    JVM常见面试题（四）：垃圾回收
    27
  • 6
    C语言物联网开发之设备安全与代码可靠性隐患
    22
  • 7
    C语言物联网开发之设备安全与代码可靠性隐患
    20
  • 8
    C 语言物联网开发之网络通信与数据传输难题
    19
  • 9
    Linux服务器安全
    16
  • 10
    Web应用防火墙（WAF）与数据库应用防火墙有什么区别？
    19

    • 相关课程

    更多
  • Python Web开发基础
  • 【Python入门】Python数据处理编程基础
  • Python入门与实践
  • Python 脚本进阶
  • Python 脚本入门
  • Python语言基础 - 语法入门

    • 相关电子书

    更多
  • Python 脚本速查手册
  • Python系列直播第一讲——Python中的一切皆对象
  • 基于JVM的脚本语言开发、运用实践

    • 相关实验场景

    更多
  • 语言入门-1：环境构建
  • Python选择及循环结构
  • Python新手入门
  • Python入门
    • 下一篇
    无影云桌面