PERL :$\控制output輸出加於行尾的文字; $/控制input輸入結束判斷符號

{


local $/ = undef;
#平常輸入Enter就將input資料結束,若設定成undef則可以進行多行輸入
open FH,"testfile.txt";
while(<FH>){
  print $_."[END]";#將資料讀成一行,穿吃給第一個iteration的$_
}
close FH;
}

#輸出結果:

hello world 

I am stayhigh 

Want Be an Hacker in Perl 

line break

here end

[END]