perl程序执行流程，望指教！［已解决］

QUOTE:

AAAcgegaegaagegeKKK
ttttttttttttttt
UUUUUUUUUUUU
BBBBBBBBBBBBBB
HHHHZZZddddddd

QUOTE:

#!/usr/bin/perl
use strict;
open(FH,"<aaa.txt") or die "$!";
my ($one,$two);
while (<FH>){                #while[1]
  $one=$. if /AA/;
  $two=$. if /BB/;
}
while (<FH>){                #while[2]
  print if(1..4);
}
close FH;

QUOTE:

原帖由 kinpoo 于 2008-1-22 15:01 发表
while[1]之后FH的内部指针已经到了EOF while[2]是不会执行的 要重新回到文件开头需移动FH的内部指针

QUOTE:

原帖由 kinpoo 于 2008-1-22 15:05 发表
C里面的fseek应该比较熟悉吧
http://perldoc.perl.org/functions/seek.html

QUOTE:

原帖由 CU_wanglijun 于 2008-1-22 15:14 发表
通俗的说，
就是你第一个while循环结束的时候指针已经指到文件的结尾了，也就是读不出东西了
所以第二个循环什么也显示不出来

另外你第一个循环里要做的事情$one=$. if /AA/;  #  $. 是不是想写成$_

QUOTE:

第一个while循环结束的时候指针已经指到文件的结尾了

QUOTE:

#!/usr/bin/perl
use strict;
open(FH,"<aaa.txt") or die "$!";
my ($one,$two);
while (<FH>){                #while[1]
  $one=$. if /AA/;
  $two=$. if /BB/;
}
seek (FH,0,0);
while (<FH>){                #while[2]
  print if(1..4);
}
close FH;

QUOTE:

while (<FH>){                #while[2]
  print if(1..4);
}