Perl的用法大全

2020-02-23 19:47:32

字體：大中小

來源：轉載

供稿：網友

　　Perl中有很多用法值得學習，今天小編跟大家分享一篇Perl的用法大全，感興趣的朋友跟小編一起來了解一下吧!

　　用Open() 函數打開文件

　　打開文件的常用方法是:

　　復制代碼代碼如下:

　　open(FH, "

　　or die "Couldn't open $filename for reading: $!";

　　open() 函數通常帶有兩個參數，第一個為文件句柄，用于指向打開的文件，第二個參數是文件名及模式(文件的打開模式)的混合體，如果文件被成功打開，open()函數返回true，否則為false。我們用“or”來測試該條件。

　　上述代碼中的模式由小于字符(

　　大于字符表示寫。如果文件不存在，就會被創建。如果文件存在，文件被清除，以前的數據將會丟失。你可以寫入文件句柄，但不可以讀入。

　　復制代碼代碼如下:

　　# 如果文件不存在，就創建它

　　open(FH, "> $filename")

　　or die "Couldn't open $filename for writing: $!";

　　如果文件不存在，添加模式(用兩個大于符號表示)可以用來創建新文件，如果文件存在，該模式并不會清除原來的數據。

　　同“

　　復制代碼代碼如下:

　　open(FH, ">> $filename")

　　or die "Couldn't open $filename for appending: $!";

　　通過“+

　　如果你打算清除原來的文件內容，或者自己調用truncate() 函數，或者使用“+>”模式。

　　復制代碼代碼如下:

　　open(FH, "+> $filename")

　　or die "Couldn't open $filename for reading and writing: $!";

　　注意“+”的區別，兩者都可以可讀可寫。前者為非破壞性寫，后者為破壞性寫。

　　錯誤

　　錯誤是如何出現的?很多地方都會出現錯誤：如目錄不存在，文件不可寫入，你的程序丟失了文件句柄等等。

　　你應該檢查系統調用的結果 (如open() 和sysopen())，看看是否調用成功。

　　為了幫助用戶查錯，通常使用“or die()”，你應記住這些用法。首先，應寫出系統調用失敗(“open”)的信息。其次，應寫出文件名的信息，以便修正錯誤時更容易地定位。第三，要寫出打開文件的方式， (“for writing,”“for appending”)。第四，輸出操作系統的出錯信息(包含在$!中)。這樣，一旦出現文件不能打開的問題，使用你的程序的用戶會大體上知道為什么不能打開。有時，我們把第一個和第三個合并在一起：

　　or die "unable to append to $filename: $!";

　　如果在open() 和出錯信息中都寫了文件的全名，你會冒改變了open() 的風險，使得出錯信息不合時宜或不正確。

　　復制代碼代碼如下:

　　# 下面會出現虛假的出錯信息

　　open(FH, "

　　or die "Can't open /var/log/file.pod for writing : $!";

　　用 Sysopen()進行更多的控制

　　為了更好的控制文件的打開方式，可以使用 sysopen() 函數：

　　復制代碼代碼如下:

　　use Fcntl;

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

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

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

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

　　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)

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

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

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

　　讀入單個記錄

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

　　$line = ;

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

　　在循環語句中，我們可以這樣寫：

　　復制代碼代碼如下:

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

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

　　}

　　因為要大量進行這樣的工作，通常再進行一下簡化，

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

　　復制代碼代碼如下:

　　while () {

　　# $_ 每次為文件中的一個記錄

　　}

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

　　while ($record = ) {

　　# $record 每次為文件中的一個記錄

　　}

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

　　perl -v

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

　　chomp($record);

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

　　讀入多個記錄

　　如果你調用，返回文件中剩余的記錄。如果你處于文件尾，則返回空表：

　　復制代碼代碼如下:

　　@records = ;

　　if (@records) {

　　print "There were ", scalar(@records), " records read. ";

　　}

　　在下面的一步中，進行賦值和測試兩項工作：

　　復制代碼代碼如下:

　　if (@records = ) {

　　print "There were ", scalar(@records), " records read. ";

　　}

　　chomp() 也可適用對數組操作：

　　@records = ;

　　chomp(@records);

　　對于任何表達式，都可以進行chomp操作，故你可以在下面的一步中這樣寫：

　　chomp(@records = );

　　什么是記錄?

　　記錄的缺省定義為：“行”。

　　記錄的定義由$/ 變量控制的，該變量存放所輸入的記錄的分隔符，因為換行符字符(根據定義!)是用來分隔行的，故其缺省值為串“ ”。

　　例如，你可以用任何你想要替換的符號來代替“ ”。

　　$/ = ";";

　　$record = ; # 讀入下一個用分號分隔的記錄

　　$/可以取其它兩個有趣的值：空串("") 和undef。

　　讀入段落

　　$/ =""的寫法是用來指示Perl讀入段落的，段落是由兩個或兩個以上的換行符構成的文本塊。這不同于設置為" "，后者僅讀入由兩行組成的文本塊。在這種情況下，將出現這樣一個問題：如果有連續的空行存在，例如“text ”，你既可以把它解釋為一個段落 ("text")，也可以解釋為兩個段落 ("text", 后面跟兩個換行符，以及一個空段落，后面跟兩個空行。)

　　在讀入文本時，第二個解釋用途不大。如果你正在讀的段落出現上述情況，你不必過濾出“空”段落。

　　復制代碼代碼如下:

　　$/ = " ";

　　while () {

　　chomp;

　　next unless length; # 跳過空段

　　# ...

　　}

　　你可以把 $/設置為undef，它用于讀入后面跟著兩個或多個換行符組成的段落： undef $/;

　　while () {

　　chomp;

　　# ...