perlopentut - 云端在线

程序：

您的姓名

perlpentut - 在 Perl 中打开文件和管道的简单方法

商品描述

每当您在 Perl 中对文件进行 I/O 操作时，您都是通过 Perl 中称为
文件句柄. 文件句柄是外部文件的内部名称。 它的工作是
“打开”函数使内部名称和外部名称之间建立关联，
打破这种关联是“关闭”功能的工作。

为方便起见，Perl 设置了一些特殊的文件句柄，这些句柄在
你跑。 其中包括“STDIN”、“STDOUT”、“STDERR”和“ARGV”。 由于这些是预
打开后，您可以立即使用它们，而无需费心打开它们
你自己：

print STDERR "这是一条调试信息。\n";

print STDOUT "请输入：";
$响应= // 死“怎么没有输入？”;
print STDOUT "谢谢！\n";

尽管 （ ) { ... }

从这些示例中可以看出，“STDOUT”和“STDERR”是输出句柄，“STDIN”和
“ARGV”是输入句柄。 它们都是大写字母，因为它们被保留给
Perl，很像@ARGV 数组和 %ENV 哈希。 他们的外部协会是
由您的外壳设置。

您需要自己打开所有其他文件句柄。 虽然有很多
变体，最常见的调用 Perl 的方式 打开（） 函数带有三个参数和
一个返回值：

" OK = 打开（处理， 模式， 路径名）”

地点：

OK 如果打开成功，将是一些定义的值，但如果失败则为“undef”；

处理
应该是一个未定义的标量变量，如果它被“打开”函数填充
成功；

MODE
是打开文件的访问模式和编码格式；

路径名
是要打开的文件的外部名称。

“打开”函数的大部分复杂性在于许多可能的值
MODE 参数可以承担。

在我们向您展示如何打开文件之前的最后一件事：打开文件（通常）
在 Perl 中自动锁定它们。 有关如何锁定，请参阅 perlfaq5。

开幕时间 文本 档

开幕时间 文本 档 阅读
如果要从文本文件中读取，请先以只读模式打开它，如下所示：

我的 $filename = "/some/path/to/a/textfile/goes/here";
我的 $encoding = ":encoding(UTF-8)";
我的 $handle = undef; # 这将在成功时填写

open($handle, "< $encoding", $filename)
|| die "$0: 无法打开 $filename 进行读取：$!";

与 shell 一样，在 Perl 中，“<”用于以只读模式打开文件。 如果它
成功，Perl 为你分配一个全新的文件句柄并填入你之前的
带有对该句柄的引用的未定义 $handle 参数。

现在，您可以在该句柄上使用“readline”、“read”、“getc”和“sysread”等函数。
可能最常见的输入函数是一个看起来像运算符的函数：

$line = readline($handle);
$line = <$handle>; ＃ 一样

因为“readline”函数在文件末尾或出错时返回“undef”，你将
有时会看到它是这样使用的：

$line = <$handle>;
如果（定义 $line）{
# 用 $line 做一些事情
}
其他{
# $line 无效，所以跳过它
}

您也可以通过这种方式在未定义的值上快速“死亡”：

$line = <$handle> // 死“找不到输入”；

但是，如果命中 EOF 是预期的正常事件，您不想简单地退出
因为你的输入用完了。 相反，您可能只想退出输入循环。
然后，您可以测试以查看实际错误是否导致循环终止，然后采取行动
因此：

而 (<$句柄>) {
# 对 $_ 中的数据做一些事情
}
如果（$！）{
die "从 $filename 读取时出现意外错误：$!";
}

A 备注 on 编码: 每次都必须指定文本编码似乎有点麻烦
打扰。 为“打开”设置默认编码，以便您不必为每个
时间，您可以使用“打开”编译指示：

使用 open qw<:encoding(UTF-8)>;

完成后，您可以安全地省略开放模式的编码部分：

打开（$句柄，“<”，$文件名）
|| die "$0: 无法打开 $filename 进行读取：$!";

但是不要在没有先设置默认编码的情况下使用裸的“<”。 除此以外，
Perl 无法知道您拥有的文本文件的多种可能风格中的哪一种，并且
Perl 不知道如何将文件中的数据正确映射为实际字符
它可以与。 其他常见的编码格式包括“ASCII”、“ISO-8859-1”、
“ISO-8859-15”、“Windows-1252”、“MacRoman”，甚至“UTF-16LE”。 查看更多
关于编码。

开幕时间 文本 档 写作
当您想写入文件时，您首先必须决定如何处理任何现有的
该文件的内容。 您在这里有两个基本选择：保留或破坏。

如果你想保留任何现有的内容，那么你想在 append 中打开文件
模式。 与在 shell 中一样，在 Perl 中，您可以使用“>>”以追加模式打开现有文件。
如果文件不存在，“>>”会创建该文件。

我的 $handle = undef;
我的 $filename = "/some/path/to/a/textfile/goes/here";
我的 $encoding = ":encoding(UTF-8)";

open($handle, ">> $encoding", $filename)
|| die "$0: 无法打开 $filename 进行追加：$!";

现在您可以使用“print”、“printf”、“say”、“write”或
“系统写入”。

如上所述，如果文件不存在，那么追加模式打开将创建
给你。 但是如果文件已经存在，它的内容是安全的，因为
您将在旧文本的末尾添加新文本。

另一方面，有时您想破坏可能已经存在的任何东西。 到
在开始写入之前清空文件，您可以在只写模式下打开它：

我的 $handle = undef;
我的 $filename = "/some/path/to/a/textfile/goes/here";
我的 $encoding = ":encoding(UTF-8)";

open($handle, "> $encoding", $filename)
|| die "$0: 无法在写打开模式下打开 $filename: $!";

这里 Perl 的工作方式就像 shell 一样，因为 ">" 破坏了现有文件。

与追加模式一样，当您以只写模式打开文件时，您现在可以写入
该文件句柄使用“print”、“printf”、“say”、“write”或“syswrite”中的任何一个。

读写模式呢？ 你应该假装它不存在，因为打开
读写模式下的文本文件不太可能执行您想要的操作。 参见 perlfaq5
细节。

开幕时间 二进制 档

如果要打开的文件包含二进制数据而不是文本字符，则“MODE”
“开放”的论点有点不同。 而不是指定编码，你告诉
Perl 你的数据是原始字节。

我的 $filename = "/some/path/to/a/binary/file/goes/here";
我的 $encoding = ":raw :bytes"
我的 $handle = undef; # 这将在成功时填写

然后像以前一样打开，根据需要选择“<”、“>>”或“>”：

open($handle, "< $encoding", $filename)
|| die "$0: 无法打开 $filename 进行读取：$!";

open($handle, ">> $encoding", $filename)
|| die "$0: 无法打开 $filename 进行追加：$!";

open($handle, "> $encoding", $filename)
|| die "$0: 无法在写打开模式下打开 $filename: $!";

或者，您可以通过以下方式在现有句柄上更改为二进制模式：

binmode($handle) || 死“不能binmode处理”；

这对于 Perl 已经为您打开的句柄特别方便。

二进制模式（标准输入） || 死“不能binmode STDIN”；
二进制模式（标准输出） || 死“不能binmode STDOUT”；

您还可以传递“binmode”一个显式编码以动态更改它。 这不是
完全是“二进制”模式，但我们仍然使用“binmode”来做到这一点：

binmode(STDIN, ":encoding(MacRoman)") || 死“不能binmode STDIN”；
binmode(STDOUT, ":encoding(UTF-8)") || 死“不能binmode STDOUT”；

一旦您以正确的模式正确打开二进制文件，您就可以使用所有相同的
Perl I/O 功能与您在文本文件上使用的一样。 但是，您可能希望使用固定大小的
“读取”而不是可变大小的“读取行”作为您的输入。

以下是如何复制二进制文件的示例：

我的 $BUFSIZ = 64 * (2 ** 10);
我的 $name_in = "/some/input/file";
我的 $name_out = "/some/output/flie";

我的（$in_fh，$out_fh，$buffer）；

打开（$in_fh，“<”，$name_in）
|| die "$0: 无法打开 $name_in 进行阅读：$!";
打开($out_fh, ">", $name_out)
|| die "$0: 无法打开 $name_out 进行写入：$!";

对于我的 $fh ($in_fh, $out_fh) {
binmode($fh) || 死“binmode 失败”;
}

而（读（$in_fh，$buffer，$BUFSIZ））{
除非（打印 $out_fh $buffer）{
die "无法写入 $name_out: $!";
}
}

关闭($in_fh) || die "无法关闭 $name_in: $!";
关闭($out_fh) || die "无法关闭 $name_out: $!";

开幕时间 管道

即将公布。

低级 文件 针脚开路 通过 系统打开

即将公布。 或删除。

使用 onworks.net 服务在线使用 perlpentut