位置: 编程技术 - 正文
perl脚本学习指南--读书笔记(perl脚本教程视频)
编辑：rootadmin推荐整理分享perl脚本学习指南--读书笔记(perl脚本教程视频)，希望有所帮助，仅作参考，欢迎阅读内容。
文章相关热门搜索词:perl脚本教程视频,perl脚本语言,perl脚本怎么运行,perl 脚本,perl脚本教程视频,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 "" 到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，数组是否相同
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..;奇数数组；my @array = map {&big_money($_)} @data; 操作data中每个元素；均返回列表
Perl实现的Linux下socket代理服务器 大家提供了许多linux开代理的方法，一般用到python等语言，一些服务器可能不会安装，然而perl可以说是linux标配的语言，给大家一款Perl语言的socket代理
perl数据库添加、删除、更新、查询操作例子 注意：连接时候使用SID指定的database，所以没有在连接中指定database.#!/usr/bin/perlusestrict;usewarnings;useDBI;my$db_name="geneva_admin";my$db_passwd="geneva_admin";my$dbh=DBI-co
标签: perl脚本教程视频
本文链接地址:https://www.jiuchutong.com/biancheng/372585.html 转载请保留说明！上一篇：perl脚本实现限制ssh最大登录次数（支持白名单）(perl脚本函数)
下一篇：Perl实现的Linux下socket代理服务器(perl执行linux命令)
