I think you need to reopen the file.

(Mobile)


On May 18, 2011, at 8:00 PM, Clifford Sobchuk <[email protected]> 
wrote:

>  
> Hi Folks, I am trying to use rgrep to pull out data from the same file that 
> occur in different areas of the file using rgrep. My first use of rgrep works 
> as expected, it is upon subsequent calls that I get nothing returned.
> ================================================================
> Ex:
> pdl> open IN, "< LAV800_BTS232_APR08_BETA-LAUBSC-20110428134127.txt"
>  
> pdl>  ($rx0,$rx1) = rgrep {/^\t(\d+)\t(\d+)$/} *IN
>  
> pdl> p nelem $rx0
> 7760
>  
> pdl> p nelem $rx1
> 7760
>  
> pdl> $rx0=()
>  
> pdl> p nelem $rx0
> 1
>  
> pdl> p nelem $rx1
> 7760
>  
> pdl>  ($rx0,$rx1) = rgrep {/^\t(\d+)\t(\d+)$/} *IN
>  
> pdl> p nelem $rx0
> 1
>  
> pdl> p nelem $rx1
> 1
> ================================================================
>  
> I am actually grepping different regexp but doing the same one seemed like 
> the most obvious way to show that it isn't working the second time it is 
> called.
>  
> Any ideas? Thanks,
>  
> CLIFF SOBCHUK 
> Ericsson
> Core RF Engineering
> Calgary, AB, Canada
> Phone 613-667-1974  ECN 8109 x71974
> Mobile 403-819-9233
> [email protected]
> yahoo: sobchuk
> http://www.ericsson.com/
>  
> “The author works for Telefonaktiebolaget L M Ericsson (“Ericsson”), who is 
> solely responsible for this email and its contents. All inquiries regarding 
> this email should be addressed to Ericsson. The web site for Ericsson is 
> www.ericsson.com.”
> 
> This Communication is Confidential. We only send and receive email on the 
> basis of the terms set out at www.ericsson.com/email_disclaimer
>  
>  
> _______________________________________________
> Perldl mailing list
> [email protected]
> http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl

Reply via email to