溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

怎么用Perl一次性讀入文件全部內(nèi)容

發(fā)布時間：2022-02-23 11:00:28 來源：億速云 閱讀：518 作者：小新 欄目：開發(fā)技術(shù)

這篇文章給大家分享的是有關(guān)怎么用Perl一次性讀入文件全部內(nèi)容的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

用Perl一次性讀入文件全部內(nèi)容

使用perl一行一行讀入文件的方法大家都很清楚，可以使用

 $line=<FILE>;   #讀入一行

或者

@lines=<FILE>;   #把每行讀入到一個數(shù)組中。

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

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

分隔符$/默認(rèn)是回車，在這里我們把它改成了未定義undef

可以進一步簡化代碼：

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

感謝各位的閱讀！關(guān)于“怎么用Perl一次性讀入文件全部內(nèi)容”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手