while 循环到最后一行的判定

open IN,"1"or die "$!";
while(){
chomp;
if(eof){
print "$_\n";
}
if($_ =~ /^#/){
next;
}
else{
next;
#print "$a\n";
}