当前位置:首页 » Perl » Perl open()函数

Perl open()函数

perl open()函数例子,open()函数学习,open()函数实例代码,open()函数在线教程等

语法

open FILEHANDLE, EXPR, LIST

open FILEHANDLE, EXPR

open FILEHANDLE


定义和用法

打开一个文件,使用指定的文件句柄。文件句柄可能是一个表达式,将所得的值被用作手柄。 如果没有指定文件名的变量具有相同名称的文件句柄(这应该是一个标量变量指的是文件名的字符串值)。的特殊文件名“ - ”指的是STDIN和“>- “指的是STDOUT。

返回值

  • 0 - 失败

  • 1 - 成功

例子

以下是语法在只读模式打开file.txt的。这里小于< signe 指示,文件必须以只读模式运行结束

open(DATA, "<file.txt");

这里DATA将被用来读取该文件的文件句柄。下面是这个例子,这将打开一个文件,并将其内容打印在屏幕上。

#!/usr/bin/perl
#by www.gitbook.net


open(DATA, "<file.txt");

while(<DATA>)
{
   print "$_";
}

以下是语法打开file.txt的写模式。这里小于> signe 的表示,文件必须以写入方式下运行结束

open(DATA, ">file.txt");

这个例子实际上截断(清空)的文件,然后打开它编写,这可能不是预期的效果。如果你想打开一个文件进行读取和写入,你可以把一个加号前>或<字符。

例如,要打开一个文件,但不截断它更新:

open(DATA, "+<file.txt");

首先截断该文件:

open DATA, "+>file.txt" or die "Couldn't open file file.txt, $!";

您可以打开一个文件中追加模式。在这种模式下的写入点,将被设置为在文件末尾

open(DATA,">>file.txt") || die "Couldn't open file file.txt, $!";

双“打开文件进行追加,将文件指针末端,使可以立即启动附加信息。但是,你可以不读它,除非你在它前面放置一个加号:

open(DATA,"+>>file.txt") || die "Couldn't open file file.txt, $!";

下面是表中提供了可能的值的不同的模式

Entities	Definition < or r		Read Only Access
> or w		Creates, Writes, and Truncates
>> or a		Writes, Appends, and Creates
+< or r+	Reads and Writes
+> or w+	Reads, Writes, Creates, and Truncates
+>> or a+	Reads, Writes, Appends, and Creates