Sophie: perl-Inline-Files-0.64-2.fc15 noarch

perl-Inline-Files-0.64-2.fc15.noarch.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

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 "> $_";
	}
}