perl简单学习笔记（二）

文件操作
open(MYTEXT,"test.txt");    #打开文件，MYTEXT为文件句柄
close(MYTEXT);            #关闭文件
die函数---#在出现错误的时候停止程序的运行
读取文件
while(<MYTEXT>)   #每次读一行
  {
print $_;
}
写入文件
open(MYTEXT,">test.txt");           #改写方式
open(MYTEXT,">>test.txt");        #追加方式
print MYTEXT "xieruneirong","\n";             #print函数写入文件
binmode(MYTEXT);                     #将文件句柄标记问二进制文件

文件测试运算符----     -x filehandle或者 -x pathname
-r          可读
-w        可写
-e         存在
-z          存在，数据为空
-s          返回大小
-f           普通文件
-d          目录
-T           文本文件
-B           二进制文件

-M           返回时间

正则表达式
m//                #模式匹配
.                     #匹配除了换行符外的任意单个字符
\n      #   换行符        \r        #   回车符              \t         #   制表符            \f         #  换页符
+       通配至少一次
*       通配0---N次
?      通配0或1次
{n,m}   通配n到m次
.*      通配任何东西
[a-z]  匹配a,b,c,d,e中的任一字符
\w     一个单词字符
\W    一个非单词字符
\d     一个数字
\D    一个非数字
\s    一个白空间字符
\S   一个非白空间字符
^     开头标识
$     结尾标识
s/search/replacement/    替换
m//i   忽略大小写
m//g  全部进行匹配
grep函数

哈希
%hash1=('apple','fruit','pear','fruit');
%hash2=('apple'=>'fruit',
'pear'=>'fruit',
)
${'apple'}     去hash数据
keys函数用来检索hash中的所有关键字
foreach $name (keys %hash1)
{
print "$name\n";
}
values函数用来检索hash中的的所有值
exists函数可以用来测试hash中是否存在某个hash关键字
如    if(exists $hash{key}){}
delete $hash{key}   删除hash关键字
函数
sub test                         #声明
{
my ($aa)=@_;     #接收输入参数
return(1) ;             #返回值
}