diff options
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/DBI/ProfileSubs.pm')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/DBI/ProfileSubs.pm | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/DBI/ProfileSubs.pm b/Master/tlpkg/tlperl.straw/lib/DBI/ProfileSubs.pm deleted file mode 100755 index 02ca64d1d61..00000000000 --- a/Master/tlpkg/tlperl.straw/lib/DBI/ProfileSubs.pm +++ /dev/null @@ -1,50 +0,0 @@ -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; |