jfroebe has asked for the wisdom of the Perl Monks concerning the following question:
Hi,
I'm trying to use Template::Extract to extract data out of a string.
#!/usr/bin/perl use strict; use warnings; use Template::Extract; my $template = <<EOD; [% FOR records %] [% ... %] OAMPG: [% oampg %] Extent ID [% extent_id %] on allocation page [% +alloc_pg %] [% END %] EOD my $doc = <<EOD; OAMPG: 600 Extent ID 608 on allocation page 512 OAMPG: 128 Extent ID 616 on allocation page 512 EOD my $template_extract = Template::Extract->new(); my $data = $template_extract->extract($template, $doc); use Data::Dumper; print Dumper($data); print $template;
The problem is that it isn't capturing the 'alloc_pg' at the end of each line. Obviously, it is something simple...
$VAR1 = { 'records' => [ { 'alloc_pg' => '', 'extent_id' => '608', 'oampg' => '600' }, { 'alloc_pg' => '', 'extent_id' => '616', 'oampg' => '128' } ] }; [% FOREACH records %] [% ... %] OAMPG: [% oampg %] Extent ID [% extent_id %] on allocation page [% +alloc_pg %] [% END %]
UPDATE: found a workaround of adding a field terminator but it isn't that pretty:
$template = <<EOD; [% FOR records %] [% ... %] OAMPG: [% oampg %] Extent ID [% extent_id %] on allocation page [% +alloc_pg %]; [% END %] EOD $doc =~ s/\n/;\n/mg;
Any ideas on getting it to work without adding a field terminator?
No one has seen what you have seen, and until that happens, we're all going to think that you're nuts. - Jack O'Neil, Stargate SG-1
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Extraction problem with Template::Extract
by broquaint (Abbot) on Apr 04, 2006 at 15:00 UTC | |
by jfroebe (Parson) on Apr 04, 2006 at 18:50 UTC |
Back to
Seekers of Perl Wisdom