where am my()?

[Ben Dover - Mental Patient 0057]

where am my()?

@db=some db file;
sub test {
foreach $list ($file1,$file2,$file3){
foreach (@db){
my($var); <--if my defined here
if ($countTD > $linesPerColumn){
if ($countTR > $columnsPerPage){
$var=1234; <---and used here
}
print "<td valign=\"top\"><u><b>$var</b></u>\n"; <--why won't it show
up here?
}
if ($_ =~ m/category:/){
}
if ($_ =~ m/;;/){
}

}
}
}

isn't my defined at a broad enough location?

 

[Glenn Jackman]

my($var); <--if my defined here
if ($countTD > $linesPerColumn){
if ($countTR > $columnsPerPage){
$var=1234; <---and used here
}
print "<td valign=\"top\"><u><b>$var</b></u>\n"; <--why won't it show
up here?

$countTR is not greater than $columnsPerPage

 

[Tad McClellan]

where am my()?

@db=some db file;
sub test {
foreach $list ($file1,$file2,$file3){
foreach (@db){
my($var); <--if my defined here
if ($countTD > $linesPerColumn){
if ($countTR > $columnsPerPage){
$var=1234; <---and used here
}
print "<td valign=\"top\"><u><b>$var</b></u>\n"; <--why won't it show
up here?

Maybe because $countTR <= $columnsPerPage ?

Do you have warnings enabled?

isn't my defined at a broad enough location?

$var will be in scope for the print().

Maybe you are printing undef or the empty string though...