作者LiloHuang (相见不如怀念)
看板Perl
标题Re: [问题] 文字档案处理
时间Tue Feb 12 05:23:28 2008
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
1F：→ Chris7462:请问 $/ 是 perl 里面的预设变数吗？ 02/12 12:40
2F：→ LiloHuang:YES, 特殊变数 相依於作业系统的断行字元 02/12 13:22
3F：推 Chris7462:原来如此，不断行的话程式好写多了。谢谢谢谢 02/12 14:00
4F：推 abliou:原来还有这招!! 02/12 20:52
5F：推 windboy0620:强 02/13 17:25