summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl.straw/lib/DBI/ProfileSubs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/DBI/ProfileSubs.pm')
-rwxr-xr-xMaster/tlpkg/tlperl.straw/lib/DBI/ProfileSubs.pm50
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;