📄 perl 语言－perl 中文教程（第十一章）.htm
字号:
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>改变文件的访问权限。参数为：<BR>1、permissions为将要设置的权限，其含义见上述mkdir中权限表<BR>2、filelist为欲改变权限的文件列表</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>chown</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>chown (userid, groupid, filelist);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>改变文件的属主，有三个参数：<BR>1、userid：新属主的(数字)ID号<BR>2、groupid：新的组(数字)ID号，-1为保留原组<BR>3、filelist：欲改变属主的文件列表</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>umask</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>oldmaskval = umask (maskval);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>设置文件访问权限掩码，返回值为当前掩码。</TD></TR></TBODY></TABLE>
<P><A name=3.4></A><FONT color=#003333>4、其它属性函数</FONT> </P>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>truncate</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>truncate (filename, length);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>将文件的长度减少到length字节。如果文件长度已经小于length，则不做任何事。其中filename可以为文件名，也可以为文件变量</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>stat</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>stat (file);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>获取文件状态。参数file可为文件名也可为文件变量。返回列表元素依次为：<BR>
<UL>
<LI>文件所在设备
<LI>内部参考号(inode)
<LI>访问权限
<LI>硬链接数
<LI>属主的(数字)ID
<LI>所属组的(数字)ID
<LI>设备类型（如果file是设备的话）
<LI>文件大小（字节数）
<LI>最后访问时间
<LI>最后修改时间最后改变状态时间
<LI>I/O操作最佳块大小
<LI>分配给该文件的块数 </LI></UL></TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>lstat</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>lstat (file);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>与stat类似，区别是将file看作是符号链接。</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>time</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>currtime = time();</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>返回从1970年1月1日起累计秒数。</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD width=57>
<DIV align=center><B>函数名</B></DIV></TD>
<TD width=514>gmtime</TD></TR>
<TR>
<TD width=57>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD width=514>timelist = gmtime (timeval);</TD></TR>
<TR>
<TD width=57>
<DIV align=center><B>解说</B></DIV></TD>
<TD width=514>将由time, stat 或 -A 和 -M
文件测试操作符返回的时间转换成格林威治时间。返回列表元素依次为：<BR>
<UL>
<LI>秒
<LI>分钟
<LI>小时，0~23
<LI>日期
<LI>月份，0~11(一月~十二月)
<LI>年份
<LI>星期，0~6(周日~周六)
<LI>一年中的日期，0~364
<LI>是否夏令时的标志<BR>详见UNIX的gmtime帮助。 </LI></UL></TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>localtime</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>timelist = localtime (timeval);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>与gmtime类似，区别为将时间值转换为本地时间。</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>utime</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>utime (acctime, modtime, filelist);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>改变文件的最后访问时间和最后更改时间。例如：<BR>$acctime = -A "file1";<BR>$modtime =
-M "file1";<BR>@filelist = ("file2", "file3");<BR>utime ($acctime,
$modtime, @filelist);</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>fileno</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>filedesc = fileno (filevar);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>返回文件的内部UNIX文件描述。参数filevar为文件变量。</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>fcntl<BR>flock</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>fcntl (filevar, fcntlrtn, value);<BR>flock (filevar,
flockop);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>详见同名UNIX函数帮助。</TD></TR></TBODY></TABLE>
<P><A name=4></A><FONT
color=#003300>四、使用DBM文件</FONT><BR> Perl中可用关联数组来访问DBM文件，所用函数为dbmopen和dbmclose，在Perl5中，已用tie和untie代替。 </P>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>dbmopen</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>dbmopen (array, dbmfilename, permissions);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>将关联数组与DBM文件相关联。参数为：<BR>1、array：所用关联数组<BR>2、dbmfilename：将打开的DBM文件名<BR>3、访问权限，详见mkdir</TD></TR></TBODY></TABLE><BR>
<TABLE class=myFont borderColor=forestgreen cellSpacing=0 cellPadding=2
border=1>
<TBODY>
<TR>
<TD>
<DIV align=center><B>函数名</B></DIV></TD>
<TD>dbmclose</TD></TR>
<TR>
<TD>
<DIV align=center><B>调用语法</B></DIV></TD>
<TD>dbmclose (array);</TD></TR>
<TR>
<TD>
<DIV align=center><B>解说</B></DIV></TD>
<TD>关闭DBM文件，拆除关联数组与之的关系。</TD></TR></TBODY></TABLE></DIV></DIV></TD></TR></TBODY></TABLE>
<DIV align=center></DIV>
<DIV align=center><BR></DIV>
<DIV align=center><SPAN class=myFont><A
href="http://www.sun126.com/perl5/perl5-10.htm">上页</A> <A
href="http://www.sun126.com/perl5/perl5-12.htm">下页</A> <A
href="http://www.sun126.com/perl5/perl5index.htm">回目录</A> <A
href="http://www.sun126.com/perl5/perl5-11.htm#a"><FONT face="Arial, 宋体">Go
Top</FONT></A></SPAN><BR><BR></DIV>
<TABLE height=50 cellSpacing=0 cellPadding=0 width="100%" bgColor=#000000
border=0>
<TBODY>
<TR>
<TD bgColor=#cccc99 height=4>
<DIV align=center><IMG height=4 src="" width=4></DIV></TD></TR>
<TR>
<TD height=50>
<DIV align=center><FONT class=myfont size=2><SPAN class=myfont><FONT
color=#99cc99><A href="http://www.sun126.com/bbs/ccb/index.cgi"><FONT
color=#99cc99>中国CCB论坛</FONT></A> 整理 麻辣
2003.7.10</FONT></SPAN></FONT><FONT class=myfont color=#99cc99
size=2><SPAN class=myfont><FONT
color=#99cc66><BR></FONT></SPAN></FONT><SPAN class=myfont><FONT
class=myfont><SPAN class=myfont><FONT face="Arial, Helvetica, sans-serif"
color=#99cc99>© 2000
http://www.sun126.com</FONT></SPAN></FONT></SPAN></DIV></TD></TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -