脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - perl - perl脚本学习指南--读书笔记

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

2020-06-19 10:36脚本之家 perl

最近在实习,看着公司有些脚本是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 $_;}打印数组;$_是一个很强大的默认变量

each操作,返回一对@array的(index, value),用在while循环中

perl有一道自动适应标量和列表上下文

sub定义子程序(函数),参数会在@_数组中,调用程序可用&符号,不与默认函数冲突可省略,可在函数中定义该

函数的持久私有变量,用state标识,每次调用函数时,该变量保持上次变化

my限定变量的范围为当前作用,一般定义变量都用my

<STDIN> 按照行读取输入文件,默认<> 会读取参数列表的所有文件,对于每行会以\n结尾,可以用chomp去掉\n

printf可以格式化输出,sprintf更加强大

文件句柄:open CONFIG, '>>:utf8', 'filename' or die "failed : $!",die会抛出异常,产生输出,close CONFIG;

使用文件句柄:类似while(<CONFIG>)读取文件;改变默认输出文件,select CONFIG; print "123" 到CONFIG文件,可替换默认STDERR

hash数组:key、value数组;可以赋值给数组,展开hash;reverse变成value=>key:%EVN环境变量

keys %hash返回keys数组,values %hash返回values数组;each返回K、V;exists、delete函数

强大的正则表达式:\A表示开头;\z表示结尾;/s匹配任意空白;括号可以捕获变量$1,存续到下次匹配成功;

不捕获模式:/(?:bronto)?aaaa(bb|CC)/此时$1 代表bb或者CC;/(?<name1>\w+)/命名捕获,$+{name1};

自动捕获变量:$`匹配前 $&匹配到的 $'匹配后的变量;/xxxx/p开启捕获变量:高版本${^MATCH}

s///替换,类似于sed,支持捕获$1;\U转换为大写

split /正则/, $string:拆分字符串为数组;join函数,split的逆过程;

非贪婪量词:+?,*?,{8,}?,将不进行贪婪匹配;/i忽略大小写,/m匹配换行符

$^I = ".bak"可以更新文件,打开文件时候以filename.bak打开,并写回原文件

unless(con):类似if(!con);until:条件为假,重复执行;last类似于break;next类似continue;redo回到循环体的开头(new);可加标签

各种文件测试符-e,-M测试文件各种信息;stat $filename返回文件的一系列信息;my @files = glob “*”:当前路径所有文件名

字符串函数:index,substr;高级排序@res = sort {$a<==>$b && $a cmp $b} @array

智能匹配符:~~:匹配hash的key,数组是否相同

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

given-when语句:类似switch,有continue和break;

system加命令,去执行子进程;exec跑到另一个进程去,perl不再执行;反引号可以捕获返回值;

支持fork多进程;defined(my $pid = fork) or die "$!"; unless($pid){子进程工作};支持发送接收SIG;

切片:($first, $last) = (sort @array)[0,-1],数组、hash都可以;eval捕获错误不至于返回;

grep:my @array = grep {$_ % 2} 1..1000;奇数数组;my @array = map {&big_money($_)} @data; 操作data中每个元素;均返回列表

延伸 · 阅读

精彩推荐
  • perlPerl从文件中读取字符串的两种实现方法

    Perl从文件中读取字符串的两种实现方法

    有时候我们需要从文件中读取字符串,这里简单介绍下, 需要的朋友可以参考下 ...

    脚本之家6252020-06-08
  • perlPerl使用nginx FastCGI环境做WEB开发实例

    Perl使用nginx FastCGI环境做WEB开发实例

    这篇文章主要介绍了Perl使用nginx FastCGI环境做WEB开发实例,实现了路由系统和模板系统,需要的朋友可以参考下...

    Perl教程网2412020-06-18
  • perlperl use vars pragma使用技巧

    perl use vars pragma使用技巧

    perl 中的vars是perl中的一个pragma(预编译指示符),专门用来预定义全局变量,这些预定义后的全局变量在qw()列表中,在整个引用perl文件中皆可使用,即便使...

    perl教程网6812020-06-16
  • perlPerl的经典用法分享

    Perl的经典用法分享

    Perl的经典用法分享,学习perl的朋友可以参考下 ...

    脚本之家6562020-06-06
  • perlperl命令行参数内建数组@ARGV浅析

    perl命令行参数内建数组@ARGV浅析

    这篇文章主要介绍了perl命令行参数内建数组@ARGV浅析,本文重点在于讲解@ARGV的用法,并通过实例来说明,需要的朋友可以参考下 ...

    perl教程网6162020-06-18
  • perlPerl List::Util模块使用实例

    Perl List::Util模块使用实例

    这篇文章主要介绍了Perl List::Util模块使用实例,本文给出扫描符合条件的某个列表并取出第一个符合条件的、求1到1000之间的和 、求一组数字的最大值与最小...

    脚本之家4712020-06-22
  • perlperl pop push shift unshift实例介绍

    perl pop push shift unshift实例介绍

    perl的pop跟push操作数组的最右边,shift跟unshift操作数组的最左边 ...

    脚本之家4612020-06-10
  • perlperl常见问题集合之二

    perl常见问题集合之二

    哪些平台上有 Perl?要到哪里去找? Perl的标准发行版(由 perl 发展小组负责维护)仅以原始码形式发行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz处取得。这个档...

    脚本之家2102020-05-29