note
choroba
If you use <c>next</c>, there is no need to use <c>else</c>: the code after <c>next</c> can only be reached if the condition was not true.
<p>
You do not want to use <c>eval BLOCK</c> to catch exceptions. You want to use <c>eval STRING</c> to evaluate a constructed code. You should include the assignment in the code, though:
<c>
#!/usr/bin/perl
use warnings;
use strict;
my $sql_var_hr;
$sql_var_hr->{col_name} = 'column_name';
my $sql = get_sql($sql_var_hr);
sub get_sql {
my ($vars) = @_;
my $sql;
while (my $iline = <DATA>) {
next if $iline =~ /^#/;
$sql .= $iline;
}
print "pre_eval: $sql\n";
eval '$sql = "' . $sql . '"' or warn $@;
print "post_eval: $sql\n";
return $sql;
}
__DATA__
select $vars->{col_name} from schema.table
select $$vars{col_name} from schema.table
</c>
Using "templates" might solve lots of problems this naïve approach might cause.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1003474
1003474