想要把文件的内容输出到屏幕上，但不知错在哪里。
use strict;
use warnings;
open in_file,"<f:\perl\name.txt" or die("Could not open name.txt!");
my $line;
while(1) {
$line=<in_file>;
chomp($line);
if (not defined($line)) {last; }
print "$line\n";
}
close(in_file);
header?
你这人书写习惯不好
use strict;
use warnings;
open(in_file, "<f:\perl\name.txt") or die("Could not open name.txt!");
while(<in_file>)
{
print;
}
close(in_file);
哦，a good idea!
use strict;
use warnings;
open (in_file, '<f:/perl/name.txt') || die('Could not open name.txt!');
print <in_file>;
close (in_file);
谢谢楼上的！不错不错，简洁明了，比书上的code好多了
还可以继续简化的。比如哪个"("就可以省略。
open in_file, '<f:/perl/name.txt' or die 'Could not open name.txt!';
注意我用了优先级别最底的“or”。
另外，在perl中使用 "\"，需要小心，因为这个有转意思的意思。在双引号中如果要一定使用'\'，就用“\\”来表示吧。
對於新學者， 略去( )對學習不好..
而且修改也不容易..........
另外 or 與 || 的級別應該是一樣的......
http://easun.org/upload/early/CEB4C3FCC3FB2_1104923178.bmp
BUG
恩。 。
这个是 哪个 head重复输出。用了Hack版本LBCGI.pm。