Perl如何读写文件
在Perl中可以用open或者sysopen函数来打开文件进行操作,这两个函数都需要通过一个文件句柄(即文件指针)来对文件进行读写定位等操作。下面以open函数为例:读:open(文件句柄,"<文件名")/open(文件句柄,"文件名"),前提文件必须已经存在,否则会返回0,出错信息在$!中。写:open(文件句柄,">文件名"),文件如果不存在,那么创建之,如果存在,内容被清空,长度截为0,$!中有出错信息。追加:open(文件句柄,">>文件名"),基本同写,但有一点,文件中的内容不会被清空,新的内容会追加到原文后面。读写:open(文件句柄,"+<文件名"),通过“+<”模式,你可以既可以读文件,又可以写文件。你可以通过tell()函数在文件内部移动,通过seek()函数进行定位。如果文件不存在,就会被创建。如果文件已经存在,原来的数据不会被清除。open(文件句柄,"+>文件名"),通过“+》”模式,可以同时读写文件,但与上面不同的是,它是破怀性写,会清除原来的内容。例子:open(FD,"info.txt")||die("Cannotopenthefile!$!n");@line=<FD>;close(FD);上面的例子是打开info.txt这个文件并把文件内容读入@line中,关闭文件。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
- 在Perl中有什么原因喜欢glob超过readdir(反之亦然)?
- 【揭秘】某知名云服务商的非结构化数据处理架构
- 报错 function refid '%d' does not reference a
- perl – Test :: Mojo证明会导致重复记录
- string – 如何将一个单词数组转换为一个包含单词字符的数组
- delphi – Emacs有一个很好的Object Pascal模式吗?
- Delphi2009 & C++Builder2009 Videos and Resources
- 【bzoj3881】【Coci2015】Divljak
- 返回值为引用的一点测试
- Perl调用网页的cgi程序