11文件系统Word格式.docx
- 文档编号:21787895
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:18
- 大小:23.75KB
11文件系统Word格式.docx
《11文件系统Word格式.docx》由会员分享,可在线阅读,更多相关《11文件系统Word格式.docx(18页珍藏版)》请在冰豆网上搜索。
/usr/local/bin/perl
2:
3:
open(WOUT,"
w|"
4:
$time=<
WOUT>
;
5:
$time=~s/^*//;
6:
$time=~s/.*//;
7:
;
#skipheadingsline
8:
@users=;
9:
close(WOUT);
10:
foreach$user(@users){
11:
$user=~s/.*//;
12:
}
13:
print("
Currenttime:
$time"
14:
Usersloggedon:
\n"
15:
$prevuser="
"
16:
foreach$user(sort@users){
17:
if($userne$prevuser){
18:
\t$user"
19:
$prevuser=$user;
20:
21:
结果输出如下:
4:
25pm
dave
kilroy
root
zarquon
w命令列出当前时间、系统负载和登录的用户,以及每个用户的作业时间和当前运行的命令,如:
25pmup1day,6:
37,6users,loadaverage:
0.79,0.36,0.28
Userttylogin@idleJCPUPCPUwhat
davettyp02:
26pm273w
kilroyttyp19:
01am2:
271:
0411-csh
kilroyttyp29:
02am431:
4627rn
rootttyp34:
22pm2-csh
zarquonttyp41:
26pm44316ccmyprog.c
kilroyttyp59:
03am2:
1448/usr/games/hack
上例中从w命令的输出中取出所需的信息:
当前时间和登录的用户名。
第3行运行w命令,此处对open的调用指定w的输出用作程序的输入,用文件变量WOUT来访问该输入。
第4行读取第一行信息,即:
接下来的两行从这行中抽取出时间。
首先,第5行删除起始的空格,然后第6行删去除时间和结尾换行符之间的所有字符,存入变量$time。
第7行从WOUT读取第二行,这行中无有用信息,故不作处理。
第8行把剩下的行赋给数组@users,然后第9行关闭WOUT,终止运行w命令的进程。
@users中的每个元素都是一行用户信息,因为本程序只需要每行的第一个单词,即用户名,故10~12行去掉除换行符外的其它字符,这一循环结束后,@users中只剩下用户名的列表。
第13行输出存贮在$time中的时间,注意这时print不需要加上换行符,因为$time中有。
16~21行对@users中的用户名排序并输出。
因为同一个用户可以多次登录,所以用$preuser存贮输出的最后一个用户名,下次输出数组元素$user时,如果其与$preser相等,则不输出。
3)文件重定向
许多UNIXshell可以把标准输出文件(STDOUT)和标准错误文件(STDERR)都重定向到同一个文件,例如在BourneShell(sh)中,命令
$foo>
file12>
&
1
运行命令foo并把输出到标准输出文件和标准错误文件的内容存贮到文件file1中。
下面是用Perl实现这一功能的例子:
1:
2:
3:
open(STDOUT,"
file1"
)||die("
openSTDOUTfailed"
4:
open(STDERR,"
STDOUT"
openSTDERRfailed"
5:
printSTDOUT("
line1\n"
6:
printSTDERR("
line2\n"
7:
close(STDOUT);
8:
close(STDERR);
运行后,文件file1中的内容为:
line2
line1
可以看到,这两行并未按我们想象的顺序存贮,为什么呢?
我们来分析一下这段程序。
第3行重定向标准输出文件,方法是打开文件file1将它与文件变量STDOUT关联,这也关闭了标准输出文件。
第4行重定向标准错误文件,参数>
STDOUT告诉Perl解释器使用已打开并与STDOUT关联的文件,即文件变量STDERR指向与STDOUT相同的文件。
第5、6行分别向STDOUT和STDERR写入数据,因为这两个文件变量指向同一个文件,故两行字符串均写到文件file1中,但顺序却是错误的,怎么回事呢?
问题在于UNIX对输出的处理上。
当使用print(或其它函数)写入STDOUT等文件时,UNIX操作系统真正所做的是把数据拷贝到一片特殊的内存即缓冲区中,接下来的输出操作继续写入缓冲区直到写满,当缓冲区满了,就把全部数据实际输出。
象这样先写入缓冲区再把整个缓冲区的内容输出比每次都实际输出所花费的时间要少得多,因为一般来说,I/O比内存操作慢得多。
程序结束时,任何非空的缓冲区都被输出,然而,系统为STDOUT和STDERR分别维护一片缓冲区,并且先输出STDERR的内容,因此存贮在STDERR的缓冲区中的内容line2出现在存贮在STDOUT的缓冲区中的内容line1之前。
为了解决这个问题,可以告诉Perl解释器不对文件使用缓冲,方法为:
1、用select函数选择文件
2、把值1赋给系统变量$|
系统变量$|指定文件是否进行缓冲而不管其是否应该使用缓冲。
如果$|为非零值则不使用缓冲。
$|与系统变量$~和$^协同工作,当未调用select函数时,$|影响当前缺省文件。
下例保证了输出的次序:
$|=1;
select(STDERR);
程序运行后,文件file1中内容为:
第5行将$|赋成1,告诉Perl解释器当前缺省文件不进行缓冲,因为未调用select,当前的缺省文件为重定向到文件file1的STDOUT。
第6行将当前缺省文件设为STDERR,第7行又设置$|为1,关掉了重定向到file1的标准错误文件的缓冲。
由于STDOUT和STDERR的缓冲均被关掉,向其的输出立刻被写到文件中,因此line1出现在第一行。
4)指定读写权限
打开一个既可读又可写的文件方法是在文件名前加上"
+>
,如下:
open(READWRITE,"
此语句打开既可读又可写的文件file1,即可以重写其中的内容。
文件读写操作最好与库函数seek和tell一起使用,这样可以跳到文件任何一点。
注:
也可用前缀"
+<
指定可读写权限。
5)close函数
用于关闭打开的文件。
当用close关闭管道,即重定向的命令时,程序等待重定向的命令结束,如:
open(MYPIPE,"
close(MYPIPE);
当关闭此文件变量时,程序暂停运行,直到命令catfile*运行完毕。
6)print,printf和write函数
print是这三个函数中最简单的,它向指定的文件输出,如果未指定,则输出到当前缺省文件中,如:
print("
Hello,there!
printOUTFILE("
第一句输出到当前缺省文件中,若未调用select,则为STDOUT。
第二句输出到由文件变量OUTFILE指定的文件中。
printf函数先格式化字符串再输出到指定文件或当前缺省文件中,如:
printfOUTFILE(“Youoweme%8.2f"
$owing);
此语句取出变量$owing的值并替换掉串中的%8.2f,%8.2f是域格式的例子,把$owing的值看作浮点数。
write函数使用输出格式把信息输出到文件中,如:
select(OUTFILE);
$~="
MYFORMAT"
write;
关于printf和write,详见《第x章格式化输出》。
7)select函数
select函数将通过参数传递的文件变量指定为新的当前缺省文件,如:
select(MYFILE);
这样,MYFILE就成了当前缺省文件,当对print、write和printf的调用未指定文件时,就输出到MYFILE中。
8)eof函数
eof函数查看最后一次读文件操作是否为文件最后一个记录,如果是,则返回非零值,如果文件还有内容,返回零。
一般情况下,对eof的调用不加括号,因为eof和eof()是等效的,但与<
操作符一起使用时,eof和eof()就不同了。
现在我们来创建两个文件,分别叫做file1和file2。
file1的内容为:
Thisisalinefromthefirstfile.
Hereisthelastlineofthefirstfile.
file2的内容为:
Thisisalinefromthesecondandlastfile.
Hereisthelastlineofthelastfile.
下面就来看一下eof和eof()的区别,第一个程序为:
while($line=<
){
print($line);
if(eof){
--endofcurrentfile--\n"
运行结果如下:
$programfile1file2
Thisisalinefromthefirstfile.
Hereisthelastlineofthefirstfile.
--endofcurrentfile--
Thisisalinefromthesecondandlastfile.
Hereisthelastlineofthelastfile.
$
下面把eof改为eof(),第二个程序为:
if(eof()){
--endofoutput--\n"
--endofoutput--$
这时,只有所有文件都读过了,eof()才返回真,如果只是多个文件中前几个的末尾,返回值为假,因为还有要读取的输入。
9)间接文件变量
对于上述各函数open,close,print,printf,write,select和eof,都可以用简单变量来代替文件变量,这时,简单变量中所存贮的字符串就被看作文件变量名,下面就是这样一个例子,此例很简单,就不解释了。
需要指出的是,函数open,close,write,select和eof还允许用表达式来替代文件变量,表达式的值必须是字符串,被用作文件变量名。
&
open_file("
INFILE"
"
OUTFILE"
file2"
while($line=&
read_from_file("
)){
print_to_file("
$line);
9:
subopen_file{
local($filevar,$filemode,$filename)=@_;
open($filevar,$filemode.$filename)||
die("
Can'
topen$filename"
subread_from_file{
local($filevar)=@_;
<
$filevar>
subprint_to_file{
local($filevar,$line)=@_;
22:
23:
print$filevar($line);
24:
2、跳过和重读数据
函数名
seek
调用语法
seek(filevar,distance,relative_to);
解说
在文件中向前/后移动,有三个参数:
1、filevar,文件变量
2、distance,移动的字节数,正数向前移动,负数往回移动
3、reletive_to,值可为0、1或2。
为0时,从文件头开始移动,为1时,相对于当前位置(将要读的下一行)移动,为2时,相对于文件末尾移动。
运行成功返回真(非零值),失败则返回零,常与tell函数合用。
tell
tell(filevar);
返回从文件头到当前位置的距离。
注意:
1、seek和tell不能用于指向管道的文件变量。
2、seek和tell中文件变量参数可使用表达式。
3、系统读写函数
read
read(filevar,result,length,skipval);
read函数设计得与UNIX的fread函数等效,可以读取任意长度的字符(字节)存入一个简单变量。
其参数有四个:
1、filevar:
文件变量
2、result:
存贮结果的简单变量(或数组元素)
3、length:
读取的字节数
4、skipval:
可选项,指定读文件之前跳过的字节数。
返回值为实际读取的字节数,如果已到了文件末尾,则返回零,如果出错,则返回空串。
sysread
sysread(filevar,result,length,skipval);
更快的读取数据,与UNIX函数read等效,参数与read相同。
syswrite
syswrite(filevar,data,length,skipval);
更快的写入数据,与UNIX函数write等效,参数:
将要写入的文件
2、data:
存贮要写入数据的变量
要写入的字节数
4、skipval写操作之前跳过的字节数。
4、用getc读取字符
getc
$char=getc(infile);
从文件中读取单个字符。
5、用binmode读取二进制文件
binmode
binmode(filevar);
当你的系统(如类DOS系统)对文本文件和二进制文件有所区别时使用。
必须在打开文件后、读取文件前使用。
二、目录处理函数
mkdir
mkdir(dirname,permissions);
创建新目录,参数为:
1、dirname:
将要创建的目录名,可以为字符串或表达式
2、permissions:
8进制数,指定目录的访问权限,其值和意义见下表,权限的组合方法为将相应的值相加。
值
权限
4000
运行时设置用户ID
2000
运行时设置组ID
1000
粘贴位
0400
拥有者读权限
0200
拥有者写权限
0100
拥有者执行权限
0040
组读权限
0020
组写权限
0010
组执行权限
0004
所有人读权限
0002
所有人写权限
0001
所有人执行权限
chdir
chdir(dirname);
改变当前工作目录。
参数dirname可以为字符串,也可以为表达式。
opendir
opendir(dirvar,dirname);
打开目录,与下面几个函数合用,可查看某目录中文件列表。
参数为:
1、dirvar:
目录变量,与文件变量类似
2、dirname:
目录名,可为字符串或表达式
成功返回真值,失败返回假。
程序中可用同名的目录变量和文件变量,根据环境确定取成分。
closedir
closedir(mydir);
关闭打开的目录。
readdir
readdir(mydir);
赋给简单变量时,每次赋予一个文件或子目录名,对数组则赋予全部文件和子目录名。
telldir
location=telldir(mydir);
象在文件中前后移动一样,telldir和下面的seekdir用于在目录列表中前后移动。
seekdir
seekdir(mydir,location);
location必须为telldir返回的值。
rewinddir
rewinddir(mydir);
将读取目录的位置重置回开头,从而可以重读目录列表。
rmdir
rmdir(dirname);
删除空目录。
成功则返回真(非零值),失败返回假(零值)。
三、文件属性函数
1、文件重定位函数
rename
rename(oldname,newname);
改变文件名或移动到另一个目录中,参数可为字符串或表达式。
unlink
num=unlink(filelist);
删除文件。
参数为文件名列表,返回值为实际删除的文件数目。
此函数之所以叫unlink而不叫delete是因为它实际所做的是删除文件的链接。
2、链接和符号链接函数
link
link(newlink,file);
创建现有文件的链接--硬链接,file是被链接的文件,newlink是被创建的链接。
成功返回真,失败返回假。
当删除这两个链接中的一个时,还可以用另一个来访问该文件。
symlink
symlink(newlink,file);
创建现有文件的符号链接,即指向文件名,而不是指向文件本身。
参数和返回值同上。
当原文件被删除(如:
被unlinke函数删除),则被创建链接不可用,除非再创建一个与原被链接的文件同名的文件。
rea
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 11 文件系统