perl文件读写

由于cat命令将显示输入文件的内容， 由于 命令将显示输入文件的内容，故 命令将显示输入文件的内容 该语句等价于open(MYPIPE, “>hello”); 用 该语句等价于 管道发送邮件如下： 管道发送邮件如下： open (MESSAGE, "| mail dave"); print MESSAGE ("Hi, Dave! Your Perl program sent this!\n"); close (MESSAGE);
Perl语言程序设计
文件读写
一、打开、关闭文件
1. 语法 为open (filevar, filename)，其中filevar 为文件句柄，或者说是程序中用来代表某文 件的代号，filename为文件名，其路径可为 相对路径，亦可为绝对路径。 open(FILE1,"file1"); open(FILE1, "/u/jqpublic/file1"); open(FILE1, “\\u\\jqpublic\\file1");
亦可用逻辑或操作符表示如下： open (MYFILE, "file1") || die ("Could not open file");
当文件操作完毕后，用close(MYFILE); 关闭文件。
二、读文件
读取文件一行数据 语句$line = <MYFILE>;从文件中读取一 行数据存储到简单变量$line中并把文件指针 向后移动一行。<STDIN>为标准输入文件， 通常为键盘输入，不需要打开。
八、命令行参数
一样， 象C一样，PERL也有存储命令行参数的 一样 也有存储命令行参数的 数组@ARGV，可以用来分别处理各个命令 数组 ， 行参数； 不同的是， 行参数；与C不同的是，$ARGV[0]是第一个 不同的是 是第一个 参数，而不是程序名本身。 参数，而不是程序名本身。 $var = $ARGV[0]; # 第一个参数 $numargs = @ARGV; # 参数的个数
3、<>操作符读取在第一步打开的文件中的 、 操作符读取在第一步打开的文件中的 所有行。 所有行。 4、读完后，解释器回到第一步重复。 、读完后，解释器回到第一步重复。 例： @ARGV = ("myfile1", "myfile2"); #实际上由命令行参数赋值 ቤተ መጻሕፍቲ ባይዱ际上由命令行参数赋值 while ($line = <>) { print ($line); } 将把文件myfile1和myfile2的内容打印出来。 的内容打印出来。 将把文件 和 的内容打印出来
2. 文件访问模式 打开文件时必须决定访问模式，在 PERL中有三种访问模式：读、写和添加。 写模式: 将原文件覆盖，原有内容丢失， 形式为：open(outfile,“>outfile”); 添加模式: 则在原文件的末尾处继续添加 内容， 形式为：open(appendfile, “>>appendfile”)。 注意: 不能对文件同时进行读和写/添 加操作。
四、判断文件状态
1、文件测试操作符（ -x ） 、文件测试操作符（ 语法为： 语法为：-op expr，如： ， if (-e "/path/file1") { print STDERR ("File file1 exists.\n"); }
Perl 的文件操作也可以先测试文件是否存在， 的文件操作也可以先测试文件是否存在， 是否可读写等。 是否可读写等。如： $x="abc.txt"; if(-e $x) #abc.txt 是否存在？ 是否存在？ { # 存在操作 } else { printf "文件不存在。\n"; 文件不存在。 文件不存在 } -e 操作符测试文件或目录是否存在。 操作符测试文件或目录是否存在。 以下为文件测试清单： 以下为文件测试清单：
读取文件全部内容 语句@array = <MYFILE>;把文件的全部 内容读入数组@array，文件的每一行(含回车 符)为@array的一个元素
三、写文件
形式为： open(OUTFILE, ">outfile"); print OUTFILE "Here is an output line.\n"; STDOUT STDERR 注：STDOUT、STDERR为标准输出和 标准错误文件，通常为屏幕，且不需要打开。
是否可读 是否非空 是否表示终端 是否设置了setuid位 是否可写 是否可执行 是否为空文件 距上次访问多长时间 是否为二进制文件
-C -M -O -R -S -T -W -X
距上次访问文件的inode多长时间 多长时间 距上次访问文件的 距上次修改多长时间 是否只为“真正的用户” 是否只为“真正的用户”所拥有 是否只有“真正的用户” 是否只有“真正的用户”可读 是否为socket 是否为 是否为文本文件 是否只有"真正的用户 可写 是否只有 真正的用户"可写 真正的用户 是否只有"真正的用户 可执行 是否只有 真正的用户"可执行 真正的用户
文件测试操作符
操作符
-b -c -d -e -f -g -k -l -o -p
描述
是否为块设备 是否为字符设备 是否为目录 是否存在 是否为普通文件 是否设置了setgid位 是否设置了sticky位 是否为符号链接 是否拥有该文件 是否为管道
-r -s -t -u -w -x -z -A -B
3. open的返回值 用来确定打开文件的操作是否成功，当其成功 时返回非零值，失败时返回零，因此可以如下判断： 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"); }
小结 Perl读写文本文件
1、文件名前面没有 、文件名前面没有">"表示读文件 表示读文件 没有 表示 open(FILE,"C:\test.txt"; while(<FILE>) { chomp; print "$_\n"; } close(FILE);
2、文件名前面有一个 、文件名前面有一个">"表示写文件，并覆盖 表示写文件 有一个 表示写文件， 原有内容 open(FILE,">C:\test.txt"; print FILE "大家好 大家好\n"; 大家好 close(FILE);
五、删除文件
Perl的unlink() 操作符可实现删除文件。 如： unlink("abc.txt"); #删除 abc.txt
六 文件重命名
Perl 的 rename() 操作符可实现文件重命名。 操作符可实现文件重命名。 如： rename("abc","zmd")||die "出错，不能更名 出错， 出错 "; 此时将 abc 更名为 zmd，成功返回真，否则 ，成功返回真， 给出出错提示。 给出出错提示。
PERL中，<>操作符实际上是对数组 中 操作符实际上是对数组 @ARGV的隐含的引用。 的隐含的引用。 的隐含的引用 其工作原理为： 其工作原理为： 1、当PERL解释器第一次看到 时，打 解释器第一次看到<>时 、 解释器第一次看到 开以$ARGV[0]为文件名的文件 为文件名的文件； 开以$ARGV[0]为文件名的文件； 2、执行动作 、执行动作shift(@ARGV); 即把数组 @ARGV的元素向前移动一个，其元素数量 的元素向前移动一个， 的元素向前移动一个 即减少了一个。 即减少了一个。
3、文件名前面有两个">"表示在这个文件后面 追加内容 open(FILE,">>C:\test.txt"; print FILE "大家好\n"; close(FILE);
相对， 注：“真正的用户”指登录时指定的userid，与当前进程用户 相对，命 真正的用户”指登录时指定的 ，与当前进程用户ID相对 可以改变有效用户ID。 令suid可以改变有效用户 。 可以改变有效用户
例： 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");
七 目录操作
Perl 中处理目录非常类似于处理文件。 中处理目录非常类似于处理文件。 打开目录句柄： 打开目录句柄： opendir(ETC,"/etc")||die "出错， 出错， 出错 不能打开目录"; 不能打开目录