Popular topics
想要把文件的内容输出到屏幕上,但不知错在哪里。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);...
8 Replies
Last Reply