📄 perl5.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>Perl中文手册</title>
<LINK rel="stylesheet" href="mystyle.css" type="text/css">
</head>
<body>
<table border="0" width="100%" height="400" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" valign="top" bgcolor="#dddddd">
<table border="0" width="100%" cellpadding="0">
<tr>
<td width="5%">
</td>
<td width="95%">
<p align="center">Perl 5教程<br>
<a target="_blank" href="http://flamephoenix.126.com">by flamephoenix</a></p>
<p align="center">目录</p>
<p align="center">第一部分 Perl语言</p>
<p><a href="perl1.htm">第一章 概述</a></p>
<p><a href="perl2.htm">第二章 简单变量</a></p>
<p><a href="perl3.htm">第三章 操作符</a></p>
<p><a href="perl4.htm">第四章 列表和数组变量 </a></p>
<p><a href="perl5.htm">第五章 文件读写 </a></p>
<p><a href="perl6.htm">第六章 模式匹配</a></p>
<p><a href="perl7.htm">第七章 控制结构</a></p>
<p><a href="perl8.htm">第八章 子程序</a></p>
<p><a href="perl9.htm">第九章 关联数组(哈希表)</a></p>
<p><a href="perl10.htm">第十章 格式化输出</a></p>
<p><a href="perl11.htm">第十一章 文件系统</a></p>
<p><a href="perl12.htm">第十二章 引用(指针)</a></p>
<p><a href="perl13.htm">第十三章 面向对象编程</a></p>
<p><a href="perl14.htm">第十四章 包和模块</a></p>
<p><a href="func.htm">附录一 函数集</a></p>
<p align="center">第二部分 Perl的CGI应用</p>
<p><a href="cgi1.htm">第一章 cgilib例</a></p>
<p><a href="cgi2.htm">第二章 动态创建图像</a></p>
<p><a href="cgi3.htm">第三章 计数器的编写方法</a></p>
<p><a href="cgi4.htm">第四章 Web Server设置</a></p>
第五章、...<br>
</td>
</tr>
</table>
</td>
<td width="80%" valign="top">
<table border="0" width="100%" cellpadding="0">
<tr>
<td width="1%">
</td>
<td width="99%">
<p align="center">第五章 文件读写 <br></p>
<p align="center"><a target="_blank" href="http://flamephoenix.126.com">by flamephoenix</a></p>
<a href="#一、打开、关闭文件">一、打开、关闭文件</a><br>
<a href="#二、读文件"> 二、读文件</a><br>
<a href="#三、写文件"> 三、写文件</a><br>
<a href="#四、判断文件状态"> 四、判断文件状态</a><br>
<a href="#五、命令行参数"> 五、命令行参数</a><br>
<a href="#六、打开管道"> 六、打开管道</a>
<br><br>
<a name="一、打开、关闭文件">
一、打开、关闭文件</a>
<br>
语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。<br>
open(FILE1,"file1");<br>
open(FILE1,
"/u/jqpublic/file1");<br>
打开文件时必须决定访问模式，在PERL中有三种访问模式：读、写和添加。后两种模式的区别在于写模式将原文件覆盖，原有内容丢失，形式为：open(outfile,">outfile");而添加模式则在原文件的末尾处继续添加内容，形式为：open(appendfile,
">>appendfile")。要注意的是，不能对文件同时进行读和写/添加操作。<br>
open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返回零，因此可以如下判断：<br>
if (open(MYFILE, "myfile")) {<br>
# here's what to do if the file opened
successfully<br>
}<br>
当文件打开失败时结束程序：<br>
unless (open (MYFILE, "file1"))
{<br>
die ("cannot open input file
file1\n");<br>
}<br>
亦可用逻辑或操作符表示如下：<br>
open (MYFILE, "file1") || die
("Could not open file"); <br>
当文件操作完毕后，用close(MYFILE);
关闭文件。<br>
<a name="二、读文件"> 二、读文件
</a> <br>
语句$line = <MYFILE>;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行。<STDIN>为标准输入文件，通常为键盘输入，不需要打开。<br>
语句@array = <MYFILE>;把文件的全部内容读入数组@array，文件的每一行(含回车符)为@array的一个元素。<br>
<a name="三、写文件"> 三、写文件</a>
<br>
形式为：<br>
open(OUTFILE, ">outfile");<br>
print OUTFILE ("Here is an output
line.\n");<br>
注：STDOUT、STDERR为标准输出和标准错误文件，通常为屏幕，且不需要打开。<br>
<a name="四、判断文件状态"> 四、判断文件状态</a>
<br>
1、文件测试操作符<br>
语法为：-op expr，如：<br>
if (-e "/path/file1") {<br>
print STDERR ("File file1
exists.\n");<br>
}<br>
</p>
<p align="center"> 文件测试操作符 </p>
<div align="center"><center>
<table border="1" width="70%">
<tr>
<td valign="top" width="192"> <i>操作符</i></td>
<td valign="top" width="384"> <i>描述</i></td>
</tr>
<tr>
<td valign="top" width="192"> -b</td>
<td valign="top" width="384"> 是否为块设备</td>
</tr>
<tr>
<td valign="top" width="192"> -c </td>
<td valign="top" width="384"> 是否为字符设备
</td>
</tr>
<tr>
<td valign="top" width="192"> -d </td>
<td valign="top" width="384"> 是否为目录
</td>
</tr>
<tr>
<td valign="top" width="192"> -e </td>
<td valign="top" width="384"> 是否存在
</td>
</tr>
<tr>
<td valign="top" width="192"> -f </td>
<td valign="top" width="384"> 是否为普通文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -g </td>
<td valign="top" width="384"> 是否设置了setgid位
</td>
</tr>
<tr>
<td valign="top" width="192"> -k </td>
<td valign="top" width="384"> 是否设置了sticky位
</td>
</tr>
<tr>
<td valign="top" width="192"> -l </td>
<td valign="top" width="384"> 是否为符号链接
</td>
</tr>
<tr>
<td valign="top" width="192"> -o </td>
<td valign="top" width="384"> 是否拥有该文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -p </td>
<td valign="top" width="384"> 是否为管道
</td>
</tr>
<tr>
<td valign="top" width="192"> -r </td>
<td valign="top" width="384"> 是否可读
</td>
</tr>
<tr>
<td valign="top" width="192"> -s </td>
<td valign="top" width="384"> 是否非空
</td>
</tr>
<tr>
<td valign="top" width="192"> -t </td>
<td valign="top" width="384"> 是否表示终端
</td>
</tr>
<tr>
<td valign="top" width="192"> -u </td>
<td valign="top" width="384"> 是否设置了setuid位
</td>
</tr>
<tr>
<td valign="top" width="192"> -w </td>
<td valign="top" width="384"> 是否可写
</td>
</tr>
<tr>
<td valign="top" width="192"> -x </td>
<td valign="top" width="384"> 是否可执行
</td>
</tr>
<tr>
<td valign="top" width="192"> -z </td>
<td valign="top" width="384"> 是否为空文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -A </td>
<td valign="top" width="384"> 距上次访问多长时间
</td>
</tr>
<tr>
<td valign="top" width="192"> -B </td>
<td valign="top" width="384"> 是否为二进制文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -C </td>
<td valign="top" width="384"> 距上次访问文件的inode多长时间
</td>
</tr>
<tr>
<td valign="top" width="192"> -M </td>
<td valign="top" width="384"> 距上次修改多长时间
</td>
</tr>
<tr>
<td valign="top" width="192"> -O </td>
<td valign="top" width="384"> 是否只为“真正的用户”所拥有
</td>
</tr>
<tr>
<td valign="top" width="192"> -R </td>
<td valign="top" width="384"> 是否只有“真正的用户”可读
</td>
</tr>
<tr>
<td valign="top" width="192"> -S </td>
<td valign="top" width="384"> 是否为socket
</td>
</tr>
<tr>
<td valign="top" width="192"> -T </td>
<td valign="top" width="384"> 是否为文本文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -W </td>
<td valign="top" width="384"> 是否只有"真正的用户"可写
</td>
</tr>
<tr>
<td valign="top" width="192"> -X </td>
<td valign="top" width="384"> 是否只有"真正的用户"可执行
</td>
</tr>
<tr>
<td colspan="2"> 注：“真正的用户”指登录时指定的userid，与当前进程用户ID相对，命令suid可以改变有效用户ID。</td>
</tr>
</table>
</center></div>
<p> 例：<br>
unless (open(INFILE, "infile"))
{<br>
die ("Input file infile cannot be
opened.\n");<br>
}<br>
if (-e "outfile") {<br>
die ("Output file outfile already
exists.\n");<br>
}<br>
unless (open(OUTFILE,
">outfile")) {<br>
die ("Output file outfile cannot be
opened.\n");<br>
}<br>
等价于<br>
open(INFILE, "infile")
&& !(-e "outfile") &&<br>
open(OUTFILE, ">outfile") ||
die("Cannot open files\n");<br>
<a name="五、命令行参数"> 五、命令行参数</a>
<br>
象C一样，PERL也有存储命令行参数的数组@ARGV，可以用来分别处理各个命令行参数；与C不同的是，$ARGV[0]是第一个参数，而不是程序名本身。<br>
$var = $ARGV[0]; # 第一个参数<br>
$numargs = @ARGV; # 参数的个数<br>
PERL中，<>操作符实际上是对数组@ARGV的隐含的引用，其工作原理为：<br>
1、当PERL解释器第一次看到<>时，打开以$ARGV[0]为文件名的文件；<br>
2、执行动作shift(@ARGV); 即把数组@ARGV的元素向前移动一个，其元素数量即减少了一个。<br>
3、<>操作符读取在第一步打开的文件中的所有行。<br>
4、读完后，解释器回到第一步重复。<br>
例：<br>
@ARGV = ("myfile1",
"myfile2"); #实际上由命令行参数赋值<br>
while ($line = <>) {<br>
print ($line);<br>
} <br>
将把文件myfile1和myfile2的内容打印出来。<br>
<a name="六、打开管道"> 六、打开管道</a>
<br>
用程序的形式也可以象命令行一样打开和使用管道(ex:ls
> tempfile)。如语句open (MYPIPE, "| cat >hello");
打开一个管道，发送到MYPIPE的输出成为命令"cat
>hello"的输入。由于cat命令将显示输入文件的内容，故该语句等价于open(MYPIPE,
">hello"); 用管道发送邮件如下：<br>
open (MESSAGE, "| mail dave");<br>
print MESSAGE ("Hi, Dave! Your Perl
program sent this!\n");<br>
close (MESSAGE);<br>
</p>
<p align="center"><a href="perl4.htm">上一章</a> <a href="perl6.htm">下一章</a> <a href="index.htm">目录</a></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -