view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN

    -Flags => DB_INIT_CDB | DB_INIT_MPOOL,
    -ErrFile => \*STDOUT,
    -Verbose => 1
  ) or die "could not open db_env: $!";

  my $db = BerkeleyDB::Hash->new(
    -Filename => $db_file,
    -Env => $env
  ) or die "could not open db: $!";

  my $cursor = $db->db_cursor;

  my ( $key, $val ) = ('','');
  while ( $cursor->c_get($key,$val,DB_NEXT) == 0 ) {
    if( $val !~ s/^(?:C32|C64|INT) //) {
      next;
    }
    $val = int( $val );
    $key =~ s/([a-z])([A-Z])/$1_$2/g;
    $key =~ s/[\.\/\-]/_/g;
    $key = lc( $key );

    if( $key =~ /^(sys|log)/) {
      next;

lib/Collectd/Plugins/Amavis.pm  view on Meta::CPAN

    -Flags => DB_INIT_CDB | DB_INIT_MPOOL,
    -ErrFile => \*STDOUT,
    -Verbose => 1
  ) or die "could not open db_env: $!";

  my $db = BerkeleyDB::Hash->new(
    -Filename => $db_file,
    -Env => $env
  ) or die "could not open db: $!";

  my $cursor = $db->db_cursor;

  my ( $key, $val ) = ('','');
  while ( $cursor->c_get($key,$val,DB_NEXT) == 0 ) {
    if( $val !~ s/^(?:C32|C64|INT) //) {
      next;
    }
    $val = int( $val );
    $key =~ s/([a-z])([A-Z])/$1_$2/g;
    $key =~ s/[\.\/\-]/_/g;
    $key = lc( $key );

    if( $key =~ /^(sys|log)/) {
      next;