Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Closing and re-opening the DATA Filehandle

by AgentM (Curate)
on Apr 05, 2001 at 03:18 UTC ( #69936=note: print w/ replies, xml ) Need Help??


in reply to Closing and re-opening the DATA Filehandle

This is truly a perplexing problem. Here's a possible solution involving pipes: (tested code)

#!/usr/bin/perl use strict; use IO::Handle; pipe(READ,WRITE) or die; READ->autoflush(1); #just to be safe WRITE->autoflush(1); my $data=<DATA>; print $data; print WRITE $data; *DATA=*READ; my $data2=<DATA>; print $data2; __DATA__ TESTDATA
It kind of shocked me that *DATA was not read-only. After reading from the pipe, just write the same thing back and you'll have an infinite supply of DATA. This can be easily adapted for lines of DATA but be beware of autoflushing. I came across some pitfalls involving non-flushing data in the handles when I was doing something similar.
AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.


Comment on Re: Closing and re-opening the DATA Filehandle
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://69936]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (11)
As of 2014-09-01 07:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (299 votes), past polls