首页 > 代码库 > perl入门知识(2)

perl入门知识(2)

交互式编程
你可以在命令行中使用 -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";
=pdo 注释
这是一个多行注释
这是一个多行注释
这是一个多行注释
这是一个多行注释
=cut

Here 文档
Here文档又称作heredoc、hereis、here-字串或here-脚本,是一种在命令行shell(如sh、csh、ksh、bash、PowerShell和zsh)和程序语言(像Perl、PHP、Python和Ruby)里定义一个字串的方法。
使用概述:
    1.必须后接分号,否则编译通不过。
    2.END可以用任意其它字符代替,只需保证结束标识与开始标识一致。
    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";


转义字符
如果我们需要输出一个特殊的字符,可以使用反斜线(\)来转义,例如输出美元符号($):
#!/usr/bin/perl
$result = "菜鸟教程 \"runoob\"";
print "$result\n";
print "\$result\n";

 

特殊用法

$# - 用来取得数组的最大index, 一般情况下,也可以用-1来表示最后一个元素。

 

常用函数

printf:输出函数,用法同c语言中一样;

length:输出包含内容的长度:如length("asdf")=4;

chop:去除最后一个字符:chop("abcd")="abc";

chomp:去除尾部的回车换行:chomp("abcd\n")="abcd";

substr($string,m,n):给定字符串,从第m位开始截取n位长度: substr("Hello",2,3)="llo", 计数从0开始,n可省略,即至尾部;

 

赋值运算符

  • = 赋值
  • +=  例如:$num += 1; 等价于$num =$num+1;
  • -=  例如:$num -= 1; 等价于$num =$num-1;
  • *=  例如:$num *= 1; 等价于$num =$num*1;
  • /=  例如:$num /= 1; 等价于$num =$num/1;
  • %=  例如:$num %= 1; 等价于$num =$num%1;         #取模,除以那个数取余数
  • **=  例如:$num **= 2; 等价于$num =$num**2;          #**代表幂,$num的2次方
  • .=    例如:$str.=“ string” 等价于 $str = $str." string";# . 代表连接符,将两个字符串拼接起来

算术运算符

  • +
  • -
  • *
  • /
  • % 取余数
  • ** 幂指数 10**2 即10的2次方
  • ++
  • --
  • .  连接字符串,"this is a "."string" = "this is a string"

数值关系运算符

  • >      大于
  • >=    大于等于
  • <      小于
  • <=    小于等于
  • ==    等于
  • !=     不等于
  • <=>  大于:1;等于:0;小于:-1;

字符串关系运算符

  • gt      大于
  • ge     大于等于
  • lt       小于
  • le      小于等于
  • eq     等于
  • ne     不等于
  • cmp  大于:1;等于:0;小于:-1;

逻辑运算符

  • &&或and   与      全真则真
  • || 或or        或      全假则假
  • !或not     非       真假假真
  • xor            异或   同假异真

位运算

  • &       按位与
  • |        按位或
  • ~       按位非
  • ^        按位异或
  • <<     左移位
  • >>     右移位

特殊运算符

  • ..         区间表示  如 1..3 等价于 1,2,3
  • ?:    三目操作符,满足?前条件执行:前内容,不满足执行:后内容

文件数据运算符

  • -r $file 如果$file是可读取的话,返回1的值
  • -w $file 如果$file是可写入的话,返回1的值
  • -x $file 如果$file是可执行的话,返回1的值
  • -e $file 如果$file存在的话,返回1的值
  • -o $file 如果$file是被执行才所拥有的话,返回1的值
  • -s $file 返回$file的文件大小(bytes)
  • -f $file 如果$file是正常文件的话,返回1的值
  • -T $file 如果$file是文本文件的话,返回1的值
  • -B $file 如果$file是Binary文件的话,返回1的值
  • -M $file 返回$file文件最后一次更改时间到现在的日期数

perl入门知识(2)