写入文件

此代码打开一个用于写入的文件。如果无法打开文件，则返回错误。最后也关闭文件。

#!/usr/bin/perl
use strict;
use warnings;
use open qw( :encoding(UTF-8) :std ); # Make UTF-8 default encoding

# Open "output.txt" for writing (">") and from now on, refer to it as the variable $fh.
open(my $fh, ">", "output.txt")
# In case the action failed, print error message and quit.
or die "Can't open > output.txt: $!";

现在我们有一个准备写入的打开文件，我们通过 $fh 访问（这个变量称为文件句柄 ）。接下来，我们可以使用 print 运算符将输出定向到该文件：

# Print "Hello" to $fh ("output.txt").
print $fh "Hello";
# Don't forget to close the file once we're done!
close $fh or warn "Close failed: $!";

open 运算符具有标量变量（在本例中为 $fh）作为其第一个参数。由于它是在 open 运算符中定义的，因此它被视为文件句柄。第二个参数 >（大于）定义文件被打开以进行写入。最后一个参数是要将数据写入的文件的路径。

要将数据写入文件，print 运算符与文件句柄一起使用。请注意，在 print 运算符中，文件句柄和语句本身之间没有逗号，只有空格。