Perl文件讀取

Question

我正在學習perl/CGI，並試圖弄清楚如何讀取perl文件。我讓我的程序將每行讀入新變量。

現在我想讓我的程序將第一行讀入變量$ first_line，並將其餘的文件存儲到另一個變量$ rest中。我該怎麼做呢？

感謝

Answer 1

my $first_line = <$file_handle>; 

# read rest of the file only if first line was read 
my $rest = defined($first_line) && do { 
    # input record separator set to undef (slurp mode) 
    local $/; 
    <$file_handle>; 
};