Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Extraction problem with Template::Extract

by jfroebe (Parson)
on Apr 03, 2006 at 18:21 UTC ( #540994=perlquestion: print w/replies, xml ) Need Help??

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?

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

Replies are listed 'Best First'.
Re: Extraction problem with Template::Extract
by broquaint (Abbot) on Apr 04, 2006 at 15:00 UTC
    You'll need to version 0.40 for this to work:
    use Template::Extract; my $template = <<'EOD'; [% FOR records %] [% ... %] OAMPG: [% oampg %] Extent ID [% extent_id %] on allocation page [% +alloc_pg =~ /(\d+)/%] [% END %] EOD my $doc = <<EOD; OAMPG: 600 Extent ID 608 on allocation page 512 OAMPG: 128 Extent ID 616 on allocation page 512 EOD use Data::Dump::Streamer; Dump(Template::Extract->new->extract($template, $doc));
    I'm not sure what the exact problem is with Template::Extract but I suspect it is because it needs a trailing token for the match to halt.
    HTH

    _________
    broquaint

      That makes sense... I'm glad it isn't my brain sans caffeine that is the issue ;-)

      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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://540994]
Approved by Corion
Front-paged by gaal
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2022-09-28 06:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer my indexes to start at:




    Results (124 votes). Check out past polls.

    Notices?