Text::Template iteration problem

Tuna has asked for the wisdom of the Perl Monks concerning the following question:

How would one accomplish the following using Text::Template?

I am trying to confirm syntax on a particular config file. The code below populates the template, using values from the last iteration through %vars.

Thanks again, Steve


#!/usr/bin/perl -w

use strict;
use Text::Template;

my %vars;
my $lines;

while ($lines = <DATA>) {
  
  next if ($lines =~ /^\#/);
 
 if ($lines =~ /(\d+)(\s+)map(\s+)(\w+)\:\/\/(.*?)(\4)\:\/\/(.*$)/){

  $vars{'proto'} = $4;   
  $vars{'uri1'}   = $5;
  $vars{'uri2'}   = $7;
  
  }
}

my $result = $template->fill_in(HASH => \%vars);           
if (defined $result) { print $result }
else { die "Couldn't fill in template: $Text::Template::ERROR" }

__DATA__
  
1 map http://www.digitalcity.com http://origin-www.digitalcity.com
2 map tunnel://www.digitalcity.com tunnel://origin-www.digitalcity.com
3 map http://10.0.2.1 http://origin-www.digitalcity.com
4 map tunnel://10.0.2.1 tunnel://origin-www.digitalcity.com
5 reverse_map http://origin-www.digitalcity.com http://www.digitalcity
+.com
6 reverse_map tunnel://origin-www.digitalcity.com tunnel://www.digital
+city.com

==========================================
TEMPLATE:
  
{$d} map {$proto}://{$uri1} {$proto}://{$uri2} 
{$d} map {$proto}://{$uri1} {$proto}://{$uri2}
{$d} map {$proto}://{$uri1} {$proto}://{$uri2}
{$d} map {$proto}://{$uri1} {$proto}://{$uri2}
{$d} reverse_map {$proto}://{$uri2}://{$proto}://{$uri1}
{$d} reverse_map {$proto}://{$uri2} {$proto}://{$uri1}
[download]

Comment on Text::Template iteration problem Download Code

Replies are listed 'Best First'.

Re: Text::Template iteration problem
by PerlStalker (Initiate) on Aug 11, 2001 at 02:29 UTC

Your post isn't very clear on what you are trying to accomplish. As you said, the code you posted will populate the template with the last .*map.* line. Although, you should probably add $vars{'d'} = $1; to fill out your template.

If you just want to spit the file out again, then you can try something like this in your loop:

  $vars{'lines'} = [];
  push @{ $vars{'lines'} }, {'proto' => $4,
                             'uri1'  => $5,
                             'uri2'  => $7,
                             'd'     => $1};
[download]

Then you iterate in your template like so:

{ foreach $line (@lines)
  {
    $OUT .= "$line->{'d'} map $line->{'proto'}://$line->{'uri1'} $line
+->{'proto'}://$line->{'uri2'}\n";
  }
}
[download]

[reply]
[d/l]
[select]


go ahead... be a heretic
	PerlMonks