Question

perl循环读取多行文本内容

想用perl的while循环读取一个多行的文本,将每行的数据作为变量累加给@book,请赐教

Answer 1

while ($read_line=<FILE>){
    chomp $read_line;
    push @book,$read_line;
}

Answer 2

while(<>){
chomp $_;

push @book,$_;

}