I'm working on a module that will allow you to have multiple DATA-like
file handles in your Perl script. This is not yet complete but will look
something like:
----8<----
use Inline::Files;
while (<BAR>) {
# process BAR file
}
while (Foo) {
while (<Foo>) {
# process next Foo file
}
}
__Foo__
This is a text psuedo file
Line 1
Line 2
__BAR__
This is another file
__Foo__
This is another file with the same file handle name as the first.
__END__
Real end of Perl code. Real DATA file handle.
----8<----
BTW, This module has nothing to do with the usual Inline:: candidates,
per se. It doesn't bind any language to Perl. Although future versions
of Inline.pm may have support for it.
Name DLSI Description
Info
Inline::Files cdpr Support for multiple DATA-like file handles
INGY
Cheers, Brian
--
perl -le 'use Inline C=>q{SV*JAxH(char*x){return newSVpvf
("Just Another %s Hacker",x);}};print JAxH+Perl'
