• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Perl基础

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

 

一 perl文件

1)文件第一行#!/usr/bin/perl,用来在类Unix系统上指定perl执行程序;

2)#开始的行表示注释;

3)use strict;对perl进行额外的检查,强迫你使用my定义变量,字符串必须使用单引号或双引号,引用其他的package的变量时变量前加package名字;

4)use warnings;打开warning开关,不忽略warnings,等价于 use warnings 'all';也可以使用use warnings FATAL => 'all'把warning当作error; 可以使用no warnings来取消warning;也可以使用local $^W = 0,来局部关闭warning; 

 

注意:

1)多行注释,heredoc,实例:

$usage = <<EOU;
Usage: getfilesbyname \\

[-f] [-l] [-g]

Where:

     -f == XXX         
     -l == XXX

     -g == XXX
EOU

print $usage

 

二 变量

1)$用来定义Scalar变量:整形,浮点数,字符串;

2)@用来定义Array变量:数组;

3)%用来定义Hash变量:用来存储key/value的map;

4)\用来定义Reference变量:用来存储内存地址的Scalar变量;

5)&用来调用subroutines;但是如果调用subroutines时候有参数,&可以省略;

6)*,typeglob,用来维护symbol table,使用较少,一般用Reference;

 

注意:

1)字符串使用单双引号都可以。对于双引号的字符串,字符串中支持简单变量替换和支持转义字符,要在字符串中包含双引号或反斜线,则在其前加一个反斜线,反斜线还可以取消变量替换\$result;单引号字符串与双引号字符串有两个区别,一是没有变量替换功能,二是反斜线不支持转义字符,而只在包含单引号和反斜线时起作用,单引号另一个特性是可以跨多行。

2)类型的自动转化,实例:my $num1 = '10';my $num2 = 10 ;my $total = $num1 + $num2;my $total2 = $num1 . $num2;

3)还可以使用上引号``,上引号中的作为系统命令执行,然后返回结果,实例:my $files=`tree`;print $files;

4)True or False,perl没有对应的bool变量的值True和False,在perl中的False为空字符串,字符串或数字0,未定义的变量,或$var=undef()或undef($var) 。

5)特殊的Scalar:$]表示支持的perl的版本;$0表示当前文件名;$^O表示当前系统版本;$_表示当前项,在for循环中表示当前项。

6)变量运算符,数字使用>,<,>=,<=;字符串使用eq,nq,lt,gt,le,ge;.

 

 

三 条件控制

1)if/elsif/else+unless。如下:

2)可以在action后跟test语句,例如: $a = 12 if $b < $c; $a = 12 unless $b >= $c;
3)条件语句$var1 = ($var2 == $var3) ? 17 : 19 ;

4) while/dowhile/until/dountil/for/foreach。如下:

5)我们可以选择性的加入continue block,例如 while($a < 12) {...} continue {...}.
6)last/next/redo, last不执行continue block立即退出;next跳过剩下的语句执行continue block开始下次循环;redo 不执行continue block,重新开始本次循环。

 

四 其他

1)可以通过eval{}来测试异常,结果在[email protected]中。也可以直接使用die{}来抛出异常。

2)$0表示当前perl文件的name,即perl name调用时的name。

3) @ARGV中存储传入perl文件的参数,比如第一个$ARGV[0],且第一个参数不为文件名是实际传入的第一个参数。$#ARGV + 1可以得到文件传入的参数的个数,也可以使用scalar(@ARGV);来获得参数个数。

4)$#_ 在函数中得到传入函数的参数的个数。

实例如下:

5)qw(),因为字符串都需要用引号,但是可以使用qw来自动加引号,例如 my @names = qw(Kernighan Ritchie Pike);等价于my @names = ('Kernighan', 'Ritchie', 'Pike');。

6)BEGIN block用来将文件的路径加入@INC, 如下:

BEGIN {
    
# Setup the source directory
    $scriptDir = $0;
    
$scriptDir =~ s:\\:/:g;
    
$scriptDir =~ s,/?[^/]+$,,;
    
$scriptDir = "." if ($scriptDir eq "");
    
unshift(@INC, $scriptDir);
}

 7) chomp()函数用来去除变量或字符串结尾的换行符

$text="alineoftext\n"; #也可以由<STDIN>输入
chomp($text); #去掉换行符(\n)。
更简单地可以写为chomp($text=<STDIN>); 等价于
$text=<STDIN>;

chomp($text); 

 

 

完!

 

 

转载于:https://www.cnblogs.com/itech/archive/2010/03/23/1691842.html


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
8-Perl哈希发布时间:2022-07-22
下一篇:
第十二章 Perl5中的引用/指针发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap