Perl入门（八）－－文件读写

可以用三种方式打开文件：读、写与添加。下面是文件的读写操作：

if (open (MYFILE, ">myfile"))
{
    print "opened in write mode\n";
    print MYFILE "First line in file\n";
    close(MYFILE);
}
else
{
    print "file not opened in write mode\n";
}

unless (open (MYFILE, ">>myfile"))
{
    print "file not opened in append mode\n";
}
else
{
    print "file opened in append mode\n";
    print MYFILE "Second line in file\n";
    close(MYFILE);
}

unless (open (MYFILE, "myfile"))
{
    die "file not opened in read mode\n";
}
@lines = <MYFILE>;
print @lines;
close(MYFILE);

文件测试操作符：用if (-op file)的方式可以检查一个文件的属性，其中op为下表中的某个操作符：

操作符	描述
-b	是否为块设备
-c	是否为字符设备
-d	是否为目录
-e	是否存在
-f	是否为普通文件
-g	是否设置了setgid位
-k	是否设置了sticky位
-l	是否为符号链接
-o	是否拥有该文件
-p	是否为管道
-r	是否可读
-s	是否非空
-t	是否表示终端
-u	是否设置了setuid位
-w	是否可写
-x	是否可执行
-z	是否为空文件
-A	距上次访问多长时间
-B	是否为二进制文件
-C	距上次访问文件的inode多长时间
-M	距上次修改多长时间
-O	是否只为“真正的用户”所拥有
-R	是否只有“真正的用户”可读
-S	是否为socket
-T	是否为文本文件
-W	是否只有"真正的用户"可写
-X	是否只有"真正的用户"可执行
注：“真正的用户”指登录时指定的userid，与当前进程用户ID相对，命令suid可以改变有效用户ID。

Perl中的命令行参数可以由数组@ARGV得到。它的第一项是第一个参数，而不像C一样是程序名。操作符“<>”可以依次读取以各命令行参数为文件名的文件，并返回一行：

while ($line = <>) { print $line; }