Perl打开读取文件
发布时间:2020-12-16 00:31:38 所属栏目:大数据 来源:网络整理
导读:在Perl中可以用 open或者sysopen 函数来打开文件进行操作,这两个函数都需要通过一个文件句柄(即文件指针)来对文件进行读写定位等操作。 下面以 open 函数为例: 1:读: open (文件句柄," 文件名")/ open (文件句柄,"文件名"),前提文件必须已经存在,
在Perl中可以用open或者sysopen函数来打开文件进行操作,这两个函数都需要通过一个文件句柄(即文件指针)来对文件进行读写定位等操作。
下面以open函数为例: 1:读:open(文件句柄,"<文件名")/open(文件句柄,"文件名"),前提文件必须已经存在,否则会返回0,出错信息在$!中。 2:写:open(文件句柄,">文件名"),文件如果不存在,那么创建之,如果存在,内容被清空,长度截为0,$!中有出错信息。 3:追加:open(文件句柄,">>文件名"),基本同写,但有一点,文件中的内容不会被清空,新的内容会追加到原文后面。 4:读写:open(文件句柄,"+<文件名"),通过“+<”模式,你可以既可以读文件,又可以写文件。你可以通过tell()?函数在文件内部移动,通过seek()函数进行定位。如果文件不存在,就会被创建。如果文件已经存在,原来的数据不会被清除。 ? 例子: open(FD,"info.txt")||die("Can not open the file!$!n"); @line=<FD>; close(FD); 上面的例子是打开info.txt这个文件并把文件内容读入@line中,关闭文件。
例子:(打开一个在电脑G盘111文件下的一个文件)
open(IN,"G:/111/mylove.txt");
while($line=<IN>){ ????????print $line; }
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |