aDriv4 website!

Linux web1060.sh.fuk1 4.18.0-425.19.2.lve.el7h.x86_64 #1 SMP Thu Apr 6 13:40:55 UTC 2023 x86_64
Apache
127.0.0.1

Constants.pm

package Devel::NYTProf::Constants;

use strict;

use Devel::NYTProf::Core;

use base 'Exporter';

our @EXPORT_OK = qw(const_bits2names);

my $const_bits2names_groups;

do {
    my $symbol_table = do { no strict; \%{"Devel::NYTProf::Constants::"} };
    my %consts = map { $_ => $symbol_table->{$_}() } grep { /^NYTP_/ } keys %$symbol_table;

push @EXPORT_OK, keys %consts;

for my $sym (keys %consts) {
        $sym =~ /^(NYTP_[A-Z]+[a-z])_/ or next;
        $const_bits2names_groups->{$1}{ $consts{$sym} } = $sym;
    }
};

sub const_bits2names { # const_bits2names("NYTP_FIDf",$flags)
    my ($group, $bits) = @_;
    my $names = $const_bits2names_groups->{$group} or return;
    my @names;
    for my $bit (0..31) {
        my $bitval = 1 << $bit;
        push @names, $names->{$bitval}
            if $bits & $bitval;
    }
    return @names if wantarray;
    return join " | ", @names;
}

# warn scalar const_bits2names("NYTP_FIDf", NYTP_FIDf_SAVE_SRC|NYTP_FIDf_IS_PMC);

#warn "Constants: ".join(" ", sort @EXPORT_OK);

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2023-08-25 11:53:15
..	dir	-	root/root	0755	2023-08-25 11:53:17
js	dir	-	root/root	0755	2023-08-25 11:53:15
Apache.pm	text/plain	7.45 KB	root/root	0644	2015-05-10 01:34:04
Constants.pm	text/plain	1.01 KB	root/root	0644	2012-12-27 10:50:17
Core.pm	text/plain	5.81 KB	root/root	0644	2016-03-25 07:12:35
Data.pm	text/plain	24.54 KB	root/root	0644	2015-05-10 01:35:22
FileHandle.pm	text/plain	524 B	root/root	0644	2012-12-27 10:50:17
FileInfo.pm	text/plain	19.41 KB	root/root	0644	2013-09-03 08:51:59
ReadStream.pm	text/plain	6.02 KB	root/root	0644	2013-04-06 04:38:23
Reader.pm	text/plain	21.65 KB	root/root	0644	2015-05-10 01:34:04
Run.pm	text/plain	2.65 KB	root/root	0644	2015-05-10 01:34:04
SubCallInfo.pm	text/plain	544 B	root/root	0644	2012-12-27 10:50:17
SubInfo.pm	text/plain	12.8 KB	root/root	0644	2013-04-06 04:38:23
Test.pm	text/plain	326 B	root/root	0644	2012-12-27 10:50:17
Util.pm	text/plain	7.58 KB	root/root	0644	2015-05-10 01:34:04

For more Private tool come to me!

https://t.me/aDriv4vz