Re^2: How to use __DATA__ efficiently, help!

Replies are listed 'Best First'.
Re^3: How to use __DATA__ efficiently, help! by ELISHEVA (Prior) on Feb 09, 2011 at 20:28 UTC
For one or two variables and code that you know doesn't have any `$myvar` strings that aren't supposed to be interpreted as a variable, your (OP's?) approach is likely fine. This is fairly simple and short code: `my $date='2010-02-09'; my $line = $aData[0]; $line =~ s/\$date/$date/g; print STDERR "------------DATA #1 ----------------\n$line"; $date='1910-02-09'; $line = $aData[0]; $line =~ s/\$date/$date/g; print STDERR "------------DATA #2 ----------------\n$line";` [download] However, it won't scale well. It will quickly become difficult to manage. Furthermore, the more variables the more likely you are going to have some random unintended substitutions. At that point you would be very wise to use a module like HTML::Template. Think of it as your solution with all the problems and corner cases debugged for you in advance.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: How to use __DATA__ efficiently, help!
by ELISHEVA (Prior) on Feb 09, 2011 at 20:28 UTC

For one or two variables and code that you know doesn't have any $myvar strings that aren't supposed to be interpreted as a variable, your (OP's?) approach is likely fine. This is fairly simple and short code:

my $date='**2010-02-09**';
my $line = $aData[0];
$line =~ s/\$date/$date/g;

print STDERR "------------DATA #1 ----------------\n$line";

$date='**1910-02-09**';
$line = $aData[0];
$line =~ s/\$date/$date/g;

print STDERR "------------DATA #2 ----------------\n$line";
[download]

However, it won't scale well. It will quickly become difficult to manage. Furthermore, the more variables the more likely you are going to have some random unintended substitutions. At that point you would be very wise to use a module like HTML::Template. Think of it as your solution with all the problems and corner cases debugged for you in advance.

[reply]
[d/l]
[select]