Can't get GCD to work in Bit::Vector module

[tperdue]

I'm trying to obtain the GCD from 2 codewords using the GCD function in the Bit::Vector module. I have assigned 2 vectors as follows:

$veca = Bit::Vector->new_Bin(64, $a);
$vecb = Bit::Vector->new_Bin(64, $b);

$a and $b are both 64 bit codewords I entered as binary.

When printed $veca is Bit::Vector=SCALAR(0x224ef0)
and $vecb is Bit::Vector=SCALAR(0x224fa4).

I try to get the GCD by using the following code: $vecgcd->GCD($veca,$vecb);

I get the error:
'Can't call method on and undefined value at C:\test.pl line 27'. Any ideas as to why this won't work.

Edited by Chady -- some formatting and code tags.

[antirice]

You should probably define $vecgcd. The following works:

use Bit::Vector;

my $veca = Bit::Vector->new_Bin(5,"00101"); # 5
my $vecb = Bit::Vector->new_Bin(5,"01010"); # 10
my $vecgcd = Bit::Vector->new(5); 

$vecgcd->GCD($veca,$vecb); # should be 5

print $vecgcd->to_Bin(); 
__END__
00101

Hope this helps.

[tperdue]

Worked perfectly. Thanks for the help.