comment on

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;
[download]

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 %]
[download]

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;
[download]

Any ideas on getting it to work without adding a field terminator?

Jason L. Froebe

Team Sybase member

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

In reply to Extraction problem with Template::Extract by jfroebe

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Welcome to the Monastery
	PerlMonks