Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: __DATA__ read/write as configuration file

by broquaint (Abbot)
on Jul 17, 2003 at 23:47 UTC ( #275451=note: print w/ replies, xml ) Need Help??


in reply to __DATA__ read/write as configuration file

How do I do this? read __DATA__ then seek to 0 then write over it?
Yes, just open up the current script and write to it like you would any other file e.g
use Fatal qw/ open seek /; open(my $d => '+<', $0); seek $d => 0, 2; print $d @ARGV; __DATA__ foo bar
This will append @ARGV to the __DATA__ section of the currently executing script. Of course modify the seek as you see fit and if you're going to completely overwrite it then remember it's position with a quick tell.
HTH

_________
broquaint


Comment on Re: __DATA__ read/write as configuration file
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (18)
As of 2015-07-01 18:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (15 votes), past polls