perl文件系统.pptVIP

Perl语言程序设计 文件系统 操作系统中的文件为数据提供了一个非常方便的存储方式。操作系统为数据提供了一个名字（即文件名）和一个组织结构，这样你就可以在以后找到你要的数据。这个组织结构称为文件系统。然后你的文件系统再将文件分成各个组，称为目录，有时也称为文件夹。这些目录能够存放文件或其他目录。 P e r l允许你访问这个组织结构，修改它的组织方法，并可查看关于文件的各种信息。 P e r l用于这些操作的函数全部源自u n i x操作系统，但是在P e r l运行的任何操作系统下，这些函数大都能够很好地运行。P e r l的文件系统的操作函数是可以移植的，也就是说，如果你使用 P e r l的函数对你的文件进行操作并查询你的文件，那么在 P e r l支持的任何操作系统下，运行你的代码都是没有问题的，只要目录结构相类似。 主要内容： 文件输入/输出函数? 1、基本I/O函数? ? 1)open函数? ? 2)用open重定向输入? ? 3)文件重定向? ? 4)指定读写权限? ? 5)close函数? ? 6)print, printf和write函数 ? ? 7)select函数? ? 8)eof函数? ? 9)间接文件变量? 2、跳过和重读数据? 3、系统读写函数? 4、用getc读取字符? 5、用binmode读取二进制文件 目录处理函数? 1、mkdir? 2、chdir? 3、opendir? 4、closedir? 5、readdir? 6、telldir? 7、seekdir? 8、rewinddir? 9、rmdir 文件属性函数? 1、文件重定位函数? 2、链接和符号链接函数? 3、文件许可权函数? 4、其他属性函数 使用DBM文件 一、文件输入/输出函数 ?? ??本节讲述从文件中读取信息和向文件写入信息的内置库函数。1、基本I/O函数????一些I/O函数在前面的已有讲过，如 open：允许程序访问文件 close：终止文件访问 print：文件写入字符串 write：向文件写入格式化信息 printf：格式化字符串并输出到文件 这里简单回顾一下，再讲一些前面未提到的函数。 1) open函数??? ?open函数将文件变量与某文件联系起来，提供访问文件的接口，例如：open(MYVAR, “/u/file”); 如果文件打开成功，则返回非零值，否则返回零。缺省地，open打开文件用以读取其内容； 若想打开文件以写入内容，则在文件名前加个大于号“”：open(MYVAR, /u/file); 若想向已有的文件末尾添加内容用两个大于号“”：open(MYVAR, /u/file); 若想打开文件作为数据导向的命令，则在命令前加上管道符(|)：open(MAIL, |mail dave); 2) 用open重定向输入???? 可以把打开的文件句柄用作向程序输入数据的命令，方法是在命令后加管道符(|)，如：??? ?open(CAT, cat file*|);????对open的调用运行命令cat file* ，此命令创建一个临时文件，这个文件的内容是所有以file打头的文件的内容连接而成，此文件看作输入文件，可用文件变量CAT访问，如：????$input = ; 下面的例子使用命令w的输出来列出当前登录的所有用户名。1 : #!/usr/local/bin/perl2 :3 : open (WOUT, w|);4 : $time = WOUT;5 : $time =~ s/^ *//;6 : $time =~ s/ .*//;7 : ; # skip headings line8 : @users = ;9 : close (WOUT);10: foreach $user (@users) {11: ? $user =~ s/ .*//;12: }13: print (Current time: $time);14: print (Users logged on:\n);15: $prevuser = ;16: foreach $user (sort @users) {17: ? if ($user ne $prevuser) {18: ? ? print (\t$user);19: ? ? $