ACIL FM

Pilih semua

Nama	Ukuran	Aksi
Const	-	Open
DBD	-	Open
Gofer	-	Open
ProfileDumper	-	Open
SQL	-	Open
Util	-	Open
Changes.pm	123.46 MB	View DL Edit
DBD.pm	123.57 MB	View DL Edit
Profile.pm	31.89 MB	View DL Edit
ProfileData.pm	19.53 MB	View DL Edit
ProfileDumper.pm	10.14 MB	View DL Edit
ProfileSubs.pm	1.14 MB	View DL Edit
PurePerl.pm	37.9 MB	View DL Edit

Edit file: /usr/lib64/perl5/vendor_perl/DBI/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/<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;

Batal

Isi Zip:

Create