初学求助：perl的文件输入与输出问题

jjwjack

ex.txt文件：
1        苹果
2        梨
3        香蕉
4        菠萝
5        荔枝
6        西瓜
7        桃
8        椰子
9        猕猴桃
10        火龙果
11        葡萄
12        橘子

代码：
#!perl -w
use strict;
print "Enter:\n";
my $input = <>;
open IN, "< $input";
while (<IN>)#这里改成while($input = <IN>)也能正常输出。
{
        print $input;#这样只能输出12个“ex.txt”
        #如果是print $_;   就输出12种水果。
}[/code]
求解，$input存储的不是文件的内容吗？这里怎么只是存储了输入的文件名？

rongchaogao

my $input = <>;
这是标准输入，存储的是你从键盘中敲入的字符。
open IN, "< $input";
这个是你要打开这个文件。
$input还是没有变，
while (<IN>)
默认一行行的读入，一行行的存储到$_中。

同样你换成
while($input=<IN>)
相当于把每一行存储到变量$input中，
这时候$input发生了变化。
你把$input改成其他的任何名字都能一样的。

jjwjack

非常感谢，感觉一下就明白了！自学还是有很多疑惑的:wink: 回复 2# rongchaogao