用Perl一次性讀入文件全部內容

使用perl一行一行讀入文件的方法大家都很清楚，可以使用$line=<FILE>;讀入一行或者@lines=<FILE>;把每行讀入到一個數組中。

可以通過重定義分隔符$/來完成一次性讀入：

open FILE,"1.txt" or die $!;
{
        local $/=undef;//用local是爲了在其他時候用到分隔符時，不會出錯
        $content= <FILE>;
        close FILE;
}

分隔符$/默認是回車，在這裏我們把它改成了未定義undef

可以進一步簡化代碼：

$content = do { local $/=undef; <FILE>; };