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.13
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 /
Search /
PhraseScorer /
[ HOME SHELL ]
Name
Size
Permission
Action
Exact.pm
788
B
-rw-r--r--
Sloppy.pm
1.08
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Sloppy.pm
package Plucene::Search::PhraseScorer::Sloppy; =head1 NAME Plucene::Search::PhraseScorer::Sloppy - sloppy phrase scorer =head1 SYNOPSIS # isa Plucene::Search::PhraseScorer =head1 DESCRIPTION This is a sloppy phrase scorer =head1 METHODS =cut use strict; use warnings; use List::Util qw(max); use base 'Plucene::Search::PhraseScorer'; __PACKAGE__->mk_accessors(q{slop}); sub _phrase_freq { my $self = shift; my $end = 0; $#{ $self->{pq} } = -1; my $pp = $self->first; while ($pp) { $pp->first_position; $end = max($end, $pp->position); push @{ $self->{pq} }, $pp; $pp = $pp->next_in_list; } my $freq = 0; my $done = 0; do { my $pp = shift @{ $self->{pq} }; my $start = $pp->position; my $next = $self->{pq}->[0]->position; for (my $pos = $start ; $pos <= $next ; $pos = $pp->position) { $start = $pos; if (!$pp->next_position) { $done = 1; last; } } my $length = $end - $start; $freq += 1 / ($length + 1) if $length <= $self->slop; $end = max($end, $pp->position); push @{ $self->{pq} }, $pp; } while (!$done); return $freq; } 1;
Close