我正在阅读'开始Perl：Simon Cozen的在线书'。在下面的代码中，打印注释打印了我的data.txt文件的所有行。但我的while循环不打印任何东西。请帮我解决这个问题。
world答案 0 :(得分：5)
由于您已经阅读了该文件，现在您已经“结束”了，您需要关闭该文件并再次打开它以重新开始。
或者，在打开的文件上使用seek FILE, 0, SEEK_SET;重置为开始而不关闭并重新打开。 （使用use Fcntl qw( SEEK_SET );导入SEEK_SET。）