悠悠博客 (讨论区存档) — 技术永无止尽，未来事在人为

请教一个操作文件的问题

脚本如下：
open(G,"yao.txt");
while(<G>){
   print "$_/n";
}
my @a=<G>;
print "@a";
close G ;

请问为什么通过while循环后，这个@a数组就没有东西了呢？帮忙解答下，谢谢！