Re: [問題] 文字檔案處理
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
→
02/12 12:40, , 1F
02/12 12:40, 1F
→
02/12 13:22, , 2F
02/12 13:22, 2F
推
02/12 14:00, , 3F
02/12 14:00, 3F
推
02/12 20:52, , 4F
02/12 20:52, 4F
推
02/13 17:25, , 5F
02/13 17:25, 5F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
