已知bank文件内容如下:
Begin
Please pay attention to this issue.
End
请问下面Perl程序的输出是什么?
open(IN,"<bank") or die "File does not exist!";
while (<IN>){
chomp;
if($i==0){next};
print "$_";
if($i==2){next};
}continue{
$i++;
}
close IN;
已知bank文件内容如下:
Begin
Please pay attention to this issue.
End
请问下面Perl程序的输出是什么?
open(IN,"<bank") or die "File does not exist!";
while (<IN>){
chomp;
if($i==0){next};
print "$_";
if($i==2){next};
}continue{
$i++;
Begin
Please pay attention to this issue.
End
undef