寫入檔案

Created: November-22, 2018

此程式碼開啟一個用於寫入的檔案。如果無法開啟檔案，則返回錯誤。最後也關閉檔案。

#!/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 運算子中，檔案控制代碼和語句本身之間沒有逗號，只有空格。