DBM_Filter::int32 - filter for DBM_Filter

perl documentation Contained in the perl distribution.

Index

Code Index:

NAME

Top

DBM_Filter::int32 - filter for DBM_Filter

SYNOPSIS

Top

    use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
    use DBM_Filter ;

    $db = tie %hash, ...
    $db->Filter_Push('int32');

DESCRIPTION

Top

This DBM filter is used when interoperating with a C/C++ application that uses a C int as either the key and/or value in the DBM file.

SEE ALSO

Top

DBM_Filter, perldbmfilter

AUTHOR

Top

Paul Marquess pmqs@cpan.org

perl documentation Contained in the perl distribution. 
package DBM_Filter::int32 ;

use strict;
use warnings;

our $VERSION = '0.02';

# todo get Filter to figure endian.

sub Store
{
    $_ = 0 if ! defined $_ || $_ eq "" ;
    $_ = pack("i", $_);
}

sub Fetch
{
    no warnings 'uninitialized';
    $_ = unpack("i", $_);
}

1;

__END__