| Current Path : /proc/self/root/proc/thread-self/root/usr/share/doc/perl-Inline-Files/demo/ |
| Current File : //proc/self/root/proc/thread-self/root/usr/share/doc/perl-Inline-Files/demo/demo_XML |
use Inline::Files::Virtual;
my @files = vf_load("XML.xml", "(?=<FILE>)");
foreach $file (@files) {
local *FILE;
print "<<$file>>\n";
vf_open FILE, $file or die "huh?";
while (<FILE>) {
print "> $_";
}
}