Perl读写文件&字符串操作

Perl中读写文件的方法非常简单，可以使用open或sysopen函数来打开文件，linux下运行perl脚本只需 ./XX.pl 或 perl XX.pl。

读文件

open(文件句柄, "<文件名");或者 open(文件句柄, "文件名");

如：open (IN, "./test.txt");

　　while (<IN>) {

　　　　chomp; #去掉换行符(/n);

　　　　print $_; #perl将每一行赋给“$_”这样一个内置变量里。

　　}

　　close(IN);

写文件

open(文件句柄, ">文件名"); #覆盖原文件的内容。

open(文件句柄, ">>文件名"); #追加写入文件。

如：open (OUT, "./result.txt");

　　my $str = "I love Perl.";

　　print OUT "$str\n";

　　close(OUT);

PS：在读写文件时，经常伴有对字符串的拆分，这时一个非常有用的函数是split函数，把字符串分割并将结果存入数组中，下面做简单介绍：

perl的split函数使用正则表达式，未特定则工作在$_上。

用法：@array = split (/<reg>/, $line);或@array = split(/<reg>/);

如：$str="Caine:Michael:Actor:14,LeafyDrive";

@array=split(/:/,$str); #@array=("Caine","Michael","Actor","14,LeafyDrive");

• //之间表示split用到的正则表达式(或分隔法则);
• \s是一种常用的通配符，代表空格。
• +代表重复一次或者一次以上；
• 故\s+代表一个或者一个以上的空格；

• 字符串比较用“eq” 和“ne”；

• 字符串连接用 “.” 。

• 截取字符串：my $substr1=substr("I love Perl",2,5);#截取第三个字符开始的5个字符，即“love ”；