PERL脚本 学习笔记

1. chomp无参数时，使用默认参数，将对$_操作。
2. 数组@array..可用$array[number]引用。$#array..表示数组中索引数。
3. $!包含出错信息；
4. 默认打开文件句柄的方式是“<”即输入，“>>”和“>”区别就在于一个添加方式操作文件的。
if(@ARGV < 2){
die “Not enough arguments\n”;
}
5. select LOG;改变默认句柄；在接下来的输出时不需要输入句柄参数；
print LOG "Hello world!\n";
6. 重新打开一个句柄会关闭之前的文件句柄；
7. my @k = keys %hash; my@v = values %hash返回键值或者变量值；
hask中exists函数判断时候存在某个key，delete函数删除key和value；
8. "."是元字符的通配符。星号（"*"）是匹配前一项0次或者多次（简单量词），"+"是指一个或者多个，"?"是表示出现不出现一次。
9. "/i"大小写无关；"/s"匹配任何符号；"/x"添加空格；结合用"/is";
10."m//"其实代表的就是一般的模式匹配"/ /"也可以使用m(),m{},m<>..类似"qw//"。
11.词界锚定，\b，是针对单词使用的。如/\bfred\b/可以匹配上单词fred.
12.$1, $2 这样的名字同模式中括号对数中匹配的项目；
13.三个特殊变量($`, $&, $')来指出是在什么地方匹配上的，分别为左中右。
14."/s"如果不加"/g"只能执行一次；
15.unless和if相反使用，同时可以紧接在控制修饰语后形成一条语句，elsif不是elseif，少了一个e；
16.last和next对应别的语言的break和continue；redo不进行条件表达式的下一个循环即直接跳转到循环内容的顶部。
17.unlink "file";rename "old","new";link "file";mkdir "file", oct("permission");rmdir "file";chmod 0755, “fred”, “barney”;chown $user, $group, glob “*.o”;utime $now, $ago, glob “*”;
18.index..$where = index($big, $small);开头处找到，则index 返回0。如果一个字符后，则返回１，依次类推。如果子串不存在，则返回-1;rindex...
19.$part = substr($string, $initial_position, $length);
20.my $money = sprintf “%.2f”, 2.49997;
21.system "date";
22.my(undef, $card_num, undef, undef, undef, $count) = split /:/;

赞 (0)

相关推荐

  • perl脚本学习指南--读书笔记

    perl脚本学习指南--读书笔记

    undef 默认未定义字符,perl里面没有NULL,defined($x)函数:如果参数为undef返回false qw(cs phy geo) 类似于 ("cs", "phy", "geo")列表可以赋值给数组@array 数组操作符:pop,push操作末尾,shift,unshift操作开头,reverse逆序,@array = sort @array; foreach @array{print $_;}打印数组:$_是一个很强大的默认变

  • Perl使用Tesseract-OCR实现验证码识别教程

    一.Tesseract-OCR 是什么 An OCR Engine that was developed at HP Labs between 1985 and 1995- and now at Google 基于Leptonica(http://leptonica.com/)图形处理库开的开源图形识别引擎. 支持Linux.Windows.Mac平台, 支持.NET.C++.Python.Java等开发语言:https://code.google.com/p/tesseract-ocr/wik

  • perl去除重复内容的脚本代码(重复行+数组重复字段)

    假如有这样的一段序列:1 2  1 2  2 1  1 3  1 4  1 5  4 1 我们需要得到如下的结果:1 3  1 5  2 1  4 1 那么,请借助以下的perl脚本来实现. 代码一: 复制代码 代码如下: #!/bin/perluse strict;  use warnings;  my $filename;  my %hash;  my @information;  my $key1;  my $key2;  print "please put in the file lik

  • perl批量查询ip归属地的方法代码

    由于业务需要,要查询客户的ip地址,将部分地区的客户过滤出来,开始想到使用ip数据库,发现读取纯真数据库的难度对我来说有些大,而我目前的时间要求比较紧迫,通过在群里询问,感谢黑影子和扶凯的帮忙,推荐了IP::QQWry::Decoded这个模块,该模块是专门用来读取qqwry纯真数据库的,用起来非常简单. 复制代码 代码如下: #!/usr/bin/perluse IP::QQWry::Decoded;use Encode;use utf8;binmode(STDIN, ':encoding(u

  • perl中单行注释和多行注释使用介绍

    Perl中的程序注释:单行注释和多行注释 (一)单行注释: 以#开头的行都被perl认为是注释.但是有一个例外,perl程序的第一行是#开头的,他指定了perl程序的解释器. 例如:#print 1: 这种方法有个缺点,就是每次# 只能够注释一行,如果要注释的代码很长,那就是一件很麻烦的事情. (二)多行注释: 最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释.方法如下: =pod codes to comment =cut 注意:=pod =cut

  • perl脚本实现限制ssh最大登录次数（支持白名单）

    ssh limit perl脚本主要作用: 1.限制一个ssh用户的最大登录数为n,n可自定义. 2.支持白名单,如root.test登录不受限制. 如果一个ssh用户的最大登录数超过指定数字,则后登录的会把先前登录的踢掉,以此达到控制登录数的目的. 该脚本需要主机支持perl,如果没有,可yum安装. 脚本源码: #!/usr/bin/perl -w use strict; #white list my @ALLOW_USERS = qw{ test root lulu1 }; #the ma

  • 为Java程序员准备的10分钟Perl教程

    1.从基础开始 不像java,Perl不需要"main"方法作为入口点.要运行一个简单的Perl程序如下: 复制代码 代码如下: # comment starts with "#" # the name is hello.pl print "Hello Perl!"; 只需执行: perl hello.pl 2. 日期类型 在Perl中的日期类型是非常简单,它有3种类型:标量,数组和Hash. 标是一个单值,它基本上可以是任何其他比数组或哈希.

  • 在Perl中使用Getopt::Long模块来接收用户命令行参数

    我们在linux常常用到一个程序需要加入参数,现在了解一下 perl 中的有关控制参数的模块 Getopt::Long ,比直接使用 @ARGV 的数组强大多了.我想大家知道在 Linux 中有的参数有二种形式. •长参数  –help•短参数   -h也就是-和–的分别.–表示完整参数.-表示简化参数.在 Perl 的这个模块中也支持这二种方法.这要介绍的二 Getopt 其实有二个模块,一个叫 Getopt::Long 一个叫 Getopt::Std.下面就只介绍 Getopt::Long

  • Perl5 OOP学习笔记第1/2页

    在学习了Perl的基本语法之后,学习Perl的OOP,略有心得.不知道Perl各个版本之间OOP是否有区别,但是我是学习的Perl5,所以在标题上将版本号也写出来了.因为了解到PHP4和PHP5的OOP部分就有不小的差别,所以有此担心. 学习Perl的OOP,最关键的两件事情就是package和bless.只要把这两个东西搞清楚也就学会大一半了. Perl的package 感觉Perl的package和Java还真有点相似.Java的package是以CLASSPATH中的目录为根,按目录定义和

  • perl与shell获取昨天、明天或多天前的日期的代码

    一.首先说下perl如何获取 复制代码 代码如下: #!/usr/bin/perl -wuse POSIX qw(strftime);my $day = strftime("%Y%m%d", localtime(time - 24*3600));#获取昨天的日期 二.在Linux中对man date -d 参数说的比拟笼统,以下示例进一步解释: # -d, --date=STRING display time described by STRING, not `now'[root@Gm

随机推荐