Re: Problems with arrays

[Prabu Ayyappan]

Hi,
   
  Hope this is what you are expecting.
   
  #!/usr/bin/perl -w
  ($old_header,$old_atoms,$old_bonds) = mol2_read('prabu');
print "@{$old_header} \n @{$old_atoms} \n @{$old_bonds}";
sub mol2_read {
    @mol2_header = ('prabu1','prabu12');
    @mol2_atoms = ('prabu2');
    @mol2_bonds = ('prabu3');
    return ([EMAIL PROTECTED],[EMAIL PROTECTED],[EMAIL PROTECTED]);
}
  
[EMAIL PROTECTED]
"[EMAIL PROTECTED]" <[EMAIL PROTECTED]> wrote:
  Hi everybody,

I got a problem with handling sub-routines and arrays.

Here is an example of the code:

#!/usr/bin/perl -w

(@old_header,@old_atoms,@old_bonds) = mol2_read($opts{m});

sub mol2_read {
return ([EMAIL PROTECTED],[EMAIL PROTECTED],[EMAIL PROTECTED]);
}

Ok, now the problem:
If I want to print the elements of the arrays @old_header, @old_atoms
and @old_bonds i see, that all arrays, that come from the sub
mol2_read are stored in only one array; in @old_header.

I want to know, how it would be possible to store every @mol-array in
the right @old-array?

Thanks for your help

Best regards

German


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/






       
---------------------------------
Ready for the edge of your seat? Check out tonight's top picks on Yahoo! TV.