perl脚本学习指南--读书笔记(perl脚本教程视频)

推荐整理分享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