Perl的經(jīng)典用法:讀入段落

$/ =""的寫(xiě)法是用來(lái)指示Perl讀入段落的，段落是由兩個(gè)或兩個(gè)以上的 換行符構(gòu)成的文本塊。這不同于設(shè)置為"\n\n"，后者僅讀入由兩行組成的文本塊。 在這種情況下，將出現(xiàn)這樣一個(gè)問(wèn)題：如果有連續(xù)的空行存在，例如“text\n\n\n\n”， 你既可以把它解釋為一個(gè)段落 ("text")，也可以解釋為兩個(gè)段落 ("text", 后面 跟兩個(gè)換行符，以及一個(gè)空段落，后面跟兩個(gè)空行。)
    在讀入文本時(shí)，第二個(gè)解釋用途不大。如果你正在讀的段落出現(xiàn)上述情況，你不 濾出“空”段落。
    $/ = "\n\n";
    while () {
    chomp;
    next unless length; # 跳過(guò)空段
    # ...
    }
    你可以把 $/設(shè)置為undef，它用于讀入后面跟著兩個(gè)或多個(gè)換行符組成的段落： undef $/;
    while () {
    chomp;
    # ...
    }
    讀入整個(gè)文件
    $/ 的其它有趣的值為undef。如果設(shè)置為該值，就將告訴Perl，讀命令將把文件 的剩余部分作為一個(gè)串返回：
    undef $/;
    $file = ;
    因?yàn)楦淖兞?$/的值，將會(huì)影響以后的每次讀操作，而不僅是下一個(gè)讀操作。通常， 你需要將該操作限制在局部。通過(guò)下面的例子，可以把文件句柄的內(nèi)容讀入到一個(gè)串中：
    {
    local $/ = undef;
    $file = ;
    }
    記住：Perl變量可讀入很長(zhǎng)的串。盡管你的文件大小不可以超出你的虛擬內(nèi)存容 量的限度，你仍可以讀入盡可能多的數(shù)據(jù)。