Re: [問題] 文字檔案處理

[LiloHuang (相見不如懷念)]

my $data = undef;

open(FH, "input.txt");
{
   local $/ = undef;
   $data = <FH>;
}
close(FH);

foreach(sort split/\s+/, $data) {
   print $_,$/;
}

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.172.250.81
→ Chris7462:請問 $/ 是 perl 裡面的預設變數嗎？
→ LiloHuang:YES, 特殊變數 相依於作業系統的斷行字元
推 Chris7462:原來如此，不斷行的話程式好寫多了。謝謝謝謝
推 abliou:原來還有這招!!
推 windboy0620:強