为何用foreach 就不行呢？有什么道理？

open(rhd,"test.txt");

foreach (<rhd>) {

        my $num=$.;

        print "Current->$num\n";

}

close(rhd);



显示:

Current->3

Current->3

Current->3

foreach 的 () 里是列表上下文，

while 的 () 里是标量上下文。



readline 操作符 <> 在标量上下文和列表上下文中的行为不同，

前者仅返回下一行，后者返回所有行。