ÿØÿà JFIF ÿá Exif MM * ÿÛ C
Server IP : 199.250.214.225 / Your IP : 3.145.98.251 Web Server : Apache System : Linux vps64074.inmotionhosting.com 3.10.0-1160.105.1.vz7.214.3 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : nicngo5 ( 1001) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/lib64/perl5/vendor_perl/DBI/ |
Upload File : |
package DBI::ProfileSubs; our $VERSION = sprintf("0.%06d", q$Revision: 9395 $ =~ /(\d+)/o); =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/<N>/g; # 42 -> <N> s/\b0x[0-9A-Fa-f]+\b/<N>/g; # 0xFE -> <N> s/'.*?'/'<S>'/g; # single quoted strings (doesn't handle escapes) s/".*?"/"<S>"/g; # double quoted strings (doesn't handle escapes) # convert names like log20001231 into log<N> s/([a-z_]+)(\d{3,})\b/${1}<N>/ig; # abbreviate massive "in (...)" statements and similar s!((\s*<[NS]>\s*,\s*){100,})!sprintf("$2,<repeated %d times>",length($1)/2)!eg; return $_; } 1;