Hello All!
I just included PL/Perl language in my database.
Created function:
CREATE FUNCTION and_with_mask(int2, int2) RETURNS int2 AS
'
return $_[0] &
$_[1]
' LANGUAGE 'plperl';
select and_with_mask(4,1);
and_with_mask
---------------
0
select and_with_mask(8,1);
and_with_mask
---------------
0
select and_with_mask(16,1);
and_with_mask
---------------
1
select and_with_mask(32,1);
and_with_mask
---------------
1
And just in Perl:
#!/usr/bin/perl
$val = 32 &
1;
print("val = $val\n");
val = 0
Where am I mistaken or something is in PL/Perl?
--
with respection Andrey Feofilactovich.
e-mail: feo@ttn.ru, feo@feo.org.ru
ICQ: 28073807