unintialized value $_ in concatenation <.> or string

[weston2012]

while (my @usr = $stu->fetchrow_array)
{
foreach ( @usr ) {print STROUT $_ . "\t"}
}

I am getting a weird error msg complaining about the print statement having 'unintialized value $_ in concatenation <.> or string'

$stu->fetchrow_array returns query results, and the code tries to print the items in each row with tabs seperating them.

I am quite new to Perl, and I inherit the code from someone before me, but it really baffles me how this line would give me an error.

 

[PaulTEG]

check if it's an uninitialised value, and if it isn't, print it ...

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[Annihilannic]

Something like this perhaps:

foreach ( @usr ) {print STROUT $_ . "\t" if defined $_;}

Annihilannic
[small]tgmlify - code syntax highlighting for your tek-tips posts[/small]