Hi!
here is a piece of my code:
sub n_list {
my($a)[EMAIL PROTECTED];
...sql query...
my $sth=$dbh->prepare($sql);
$sth->execute();
my node_l;
while(my @ary=$sth->fetchrow_array()) {
push @node_l,[EMAIL PROTECTED];
}
return [EMAIL PROTECTED];
sub rnode_list {
my ($a)[EMAIL PROTECTED];
my $node_l=n_list($a);
print "$node_l[1]"; <<=== line x
I have an error message "@node_l" requires explicit
package name at line x !
Someone can explain me why? and what can I do to solve
it?
Thank you very much in advance!!
R.
Höstrusk och grå moln - köp en resa till solen på Yahoo! Resor på adressen
http://se.docs.yahoo.com/travel/index.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
