我试图返回一个文件替换为\ n换行符的一行输出所有行,而无需使用CPAN的Perl:我怎么从文件中读取和打印文本
这里是我到目前为止
#! /usr/local/bin/perl
if ($#ARGV = "1") {
print "$ARGV[0]\n";
my $file = "$ARGV[0]";
my $document = do {
local $/;
open my $fh, "<", $file
or die "could not open $file: $!";
<$fh>;
};
print "Doc: $document\n";
}
换行符是*'\ n' ..除非你在其中一个疯狂的系统上。 – Ether 2010-07-01 00:00:05
你真的想要一个字面反斜杠后跟一个n吗?你为什么要这样? – Ether 2010-07-01 00:41:14
现在我们来说一切:开启警告!或者在#的末尾加上-w!或者在代码中使用“警告”。这将揭示一个重要问题。 – Schwern 2010-07-01 01:36:50