Velocity Reviews

Velocity Reviews (http://www.velocityreviews.com/forums/index.php)
-   Perl (http://www.velocityreviews.com/forums/f17-perl.html)
-   -   File Handle Reading Blues: Rereading a File Handle for Input (http://www.velocityreviews.com/forums/t25228-file-handle-reading-blues-rereading-a-file-handle-for-input.html)

Dietrich 07-19-2004 10:30 PM

File Handle Reading Blues: Rereading a File Handle for Input
 
Hi.
I can't reread a file handle after I have copied it on another file
handle for output. Here is the code snippet. Please let me know if
you need more.
Lines 26 & 27 are my attempts to get read the input file again. Line
18, where I copy the input file handle to the output file handle works
fine. I am using Perl 5.6.1 on HP-UX 11.00.

18 print INVARS_NW <INVARS_READ>;
19
20 chomp ($DB_MAIN_NAME=`echo \$profile`);
21 #system "echo \$profile";
22 print "DB_MAIN_NAME = '$DB_MAIN_NAME'";
23
24 print "\nGeorge W.";
25
26 while (<INVARS_READ>)
27 #while (print INVARS_NW <INVARS_READ>)
28 {

Thank you.

Joe Smith 07-22-2004 10:02 AM

Re: File Handle Reading Blues: Rereading a File Handle for Input
 
Dietrich wrote:

> 18 print INVARS_NW <INVARS_READ>;


That reads the entire contents of the input file, all the way to the
end of the file, and sends it to the output. Once you've read
all the way to EOF, you cannot read anymore. Either close and
re-open the input file, or learn how to use the seek() function.
-Joe

P.S. Next time, post to comp.lang.perl.misc and not here (comp.lang.perl).


All times are GMT. The time now is 10:14 PM.

Powered by vBulletin®. Copyright ©2000 - 2014, vBulletin Solutions, Inc.
SEO by vBSEO ©2010, Crawlability, Inc.