用 Sysopen()進(jìn)行更多的控制
--------------------------------------------------------------------------------
為了更好的控制文件的打開方式，可以使用 sysopen() 函數(shù)：

use Fcntl;

sysopen(FH, $filename, O_RDWR|O_CREAT, 0666)

or die "Can't open $filename for reading/writing/creating : $!";


函數(shù) sysopen() 帶有四個(gè)參數(shù)，第一個(gè)是同open()函數(shù)類似的文件句柄參數(shù)，第二個(gè)參數(shù)是不帶模式信息的文件名，第三個(gè)參數(shù)是模式參數(shù)，由Fcntl 模塊提供的邏輯OR運(yùn)算組合起來的常數(shù)構(gòu)成，第四個(gè)參數(shù)(可選)，為八進(jìn)制屬性值(0666表示數(shù)據(jù)文件， 0777表示程序)。如果文件可以被打開，sysopen() 返回true，如果打開失敗，則返回false。

不同于open()函數(shù)，sysopen()不提供模式說明的簡寫方式，而是把一些常數(shù)組合起來，而且，每個(gè)模式常數(shù)有唯一的含義，只有通過邏輯OR運(yùn)算才能將它們組合起來，你可以設(shè)置多個(gè)行為的組合。

O_RDONLYRead-only

O_WRONLY Write-only

O_RDWR Reading and writing

O_APPEND Writes go to the end of the file

O_TRUNC Truncate the file if it existed

O_CREAT Create the file if it didn't exist

O_EXCLError if the file already existed (used with O_CREAT)


當(dāng)你需要小心行事的時(shí)候，就使用sysopen() 函數(shù)，例如，如果你打算添加內(nèi)容到文件中，如果文件不存在，不創(chuàng)建新文件，你可以這樣寫：

sysopen(LOG, "/var/log/myprog.log", O_APPEND, 0666)

or die "Can't open /var/log/myprog.log for appending: $!";

讀入單個(gè)記錄
有一個(gè)容易的方法讀入filehandles：用 操作符。在標(biāo)量內(nèi)容下，它返回文件中的下一個(gè)記錄，或者返回未定義出錯(cuò)信息。我們可以使用它來把一行讀入到一個(gè)變量中：

$line = ;

die "Unexpected end-of-file" unless defined $line;

在循環(huán)語句中，我們可以這樣寫：

while (defined ($record = )) { # long-winded

# $record is set to each record in the file, one at a time

}


因?yàn)橐罅窟M(jìn)行這樣的工作，通常再進(jìn)行一下簡化，

把記錄放到$_ 中，而不是$record中：

while () {

# $_ 每次為文件中的一個(gè)記錄

}

在Perl 5.004_04中，我們可以這樣做：

while ($record = ) {

# $record 每次為文件中的一個(gè)記錄

}


defined() 將自動(dòng)加上，在Perl 5.004_04以前的版本中，該命令給出一個(gè)警示。要了解所用的Perl版本，可在命令行下打入：

perl -v

一旦我們讀出了一個(gè)記錄，通常打算去掉記錄分隔符，(缺省值為換行符字符)：

chomp($record);

Perl 4.0版本僅有chop()操作，去掉串的最后一個(gè)字符, 不管該字符是什么。chomp() 沒有這么大的破壞性，如果有行分隔符存在，它僅去掉行分隔符。如果你打算去掉行分隔符，就用chomp() 來代替chop()。