larryk
perl -le "s,,reverse killer,e,y,rifle,lycra,,print" | [reply] [d/l] [select] |
larryk, you can read a __DATA__ that is in another file.
Imagine you have a perl module called Store_Config.pm,
which has some information in it's __DATA__ tags that
you need to read. If you know the namespace that the __DATA__
handle is in, you can do this to read it:
use strict;
use Store_Config;
use Symbol qw(qualify_to_ref);
#Pull the reference to the __DATA__ handle
my $fh = qualify_to_ref(DATA => 'Store_Config');
#$fh can now be acted on like a file handle
read($fh, my $config, -s $fh);
print "Store_Config.pm's __DATA__ content is: [$config]\n";
| [reply] [d/l] |
I have the data in the same file from which I try to read them - but the problem was, I also defined a package ParfileRecord in the same file. So when I read from ParfileRecord::DATA, everything is fine.
Thank you for getting me on the right track.
pike
| [reply] |
Just use <PACKAGENAME::DATA>.
Works for me.
conv
Update: Just noticed that pike already applied this. Just ignore me, I'll go take a nap.
| [reply] [d/l] |