On 20 Jun., 15:58, [EMAIL PROTECTED] (Andrew Curry) wrote:
> You could do it a couple of ways the way I would go about it is
>
> My(@arr1,@arr2,@arr3);
> mol2_read($opts{m},[EMAIL PROTECTED],[EMAIL PROTECTED],[EMAIL PROTECTED]);
>
> sub mol2_read {
> My($opt_m,$arr1,$arr2,$arr3)[EMAIL PROTECTED];
>
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 = ('pr
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 = ('pr
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 = ('pr
You could do it a couple of ways the way I would go about it is
My(@arr1,@arr2,@arr3);
mol2_read($opts{m},[EMAIL PROTECTED],[EMAIL PROTECTED],[EMAIL PROTECTED]);
sub mol2_read {
My($opt_m,$arr1,$arr2,$arr3)[EMAIL PROTECTED];
#
# code to do what you want with the above
#
return;
}
-O
