一、打开、关闭文件
语法为open (filevar, filename),其中filevar为文件句柄,或者说是程序中用来代表某文件的代号,filename为文件名,其路径可为相对路径,亦可为绝对路径。
open(FILE1,"file1"); open(FILE1, "/u/jqpublic/file1");
if (open(MYFILE, "myfile")) { # here's what to do if the file opened successfully }
unless (open (MYFILE, "file1")) { die ("cannot open input file file1\n"); }
open (MYFILE, "file1") || die ("Could not open file");
二、读文件
语句$line =<> ;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行。为标准输入文件,通常为键盘输入,不需要打开。语句@array = <>;把文件的全部内容读入数组@array,文件的每一行(含回车符)为@array的一个元素。
三、写文件
形式为:
open(OUTFILE, ">outfile"); print OUTFILE ("Here is an output line.\n");
四、判断文件状态
1、文件测试操作符
语法为:-op expr,如:
if (-e "/path/file1") { print STDERR ("File file1 exists.\n"); }
unless (open(INFILE, "infile")) { die ("Input file infile cannot be opened.\n"); } if (-e "outfile") { die ("Output file outfile already exists.\n"); } unless (open(OUTFILE, ">outfile")) { die ("Output file outfile cannot be opened.\n"); }
open(INFILE, "infile") && !(-e "outfile") && open(OUTFILE, ">outfile") || die("Cannot open files\n");
五、命令行参数的解释
象C一样,PERL也有存储命令行参数的数组@ARGV,可以用来分别处理各个命令行参数;与C不同的是,$ARGV[0]是第一个参数,而不是程序名本身。
$var = $ARGV[0]; # 第一个参数 $numargs = @ARGV; # 参数的个数
@ARGV = ("myfile1", "myfile2"); #实际上由命令行参数赋值 while ($line = ) { print ($line); }
函数的参数
&abc("a","b") sub abc { $first=$_[0]; $second=$_[1]; .... }
abc函数中有a,b两个参数
$_[0]的值就是a
$_[1]的值就是b
可以这样来加深理解
&abc("a","b") sub abc { $first=$_[0]; $second=$_[1]; print $first.$second; }
#!/usr/bin/perl $sum1 = my_sum1(1,2); $sum2 = my_sum2(1,2); print "sum1 = $sum1 sum2 = $sum2"; sub my_sum1 { ($first,$second)=@_; return($first+$second); } sub my_sum2 { $first=$_[0]; $second=$_[1]; return($first+$second); } exit;
sum1 = 3 sum2 = 3
其实很简单,所有传入perl过程的参数都是以@_身份传入的。如果调用一个有两个参数的函数,它们在函数内部可以作为@_数组的前两个成员访问:$_ [0]和$_[1]。因为@_只是一个有着奇怪名字的普通数组,所以你可以像处理普通数组一样随意的处理它,知道了这一点,其他的书写模式也就不奇怪了:
比如:($first,$second)=@_; 就是将数组@_中的两个元素分别付给$first,$second,由于@_是数组,所以将$first,$second用括号括起来表示列表环境。
还有什么$first = shift; $second = shift; 将@_中的第一个元素付给$first,第二个元素付给$second。
Perl 中的特殊变量 $&, $`,$' 用在模式匹配中
$& 用来存放匹配中的值
$` 用来存放匹配中之前所有字符
$' 用来存放匹配中之后所有字符
如:
#!/usr/bin/perl -w if("Hello good there,neigbor hello" =~ /\S\w+,/){ print "That actually matched '$&'. "; print $`." "; print $'." "; }
That actually matched 'there,'. Hello good neigbor hello
另外常用的变量@_
@_ 是子程序的一个私有变量;如果有一个全局变量@_,它将在此子程序调用前存储起来,当子程序调用完成后,其早期的值会被重新赋还给@_。这意味着当将参数传递给子程序时不用担心它会影响此程序中其它子程序的@_这个变量的值。嵌套的子程序调用时,@_的值和上述类似。甚至此子程序递归调用时,每一次调用将得到新的@_,因此子程序调用时将得到其自身的参数列表。
除非调用的子程序前有&而后面没有括号(或者没有参数),此时@_从此调用者的上下文(context)得到。这通常不是个好主意,但有时很有用。
六、打开管道
用程序的形式也可以象命令行一样打开和使用管道(ex:ls>tempfile)。如语句open (MYPIPE, "| cat >hello"); 打开一个管道,发送到MYPIPE的输出成为命令"cat >hello"的输入。由于cat命令将显示输入文件的内容,故该语句等价于open(MYPIPE, ">hello"); 用管道发送邮件如下:
open (MESSAGE, "| mail dave"); print MESSAGE ("Hi, Dave! Your Perl program sent this!\n"); close (MESSAGE);