diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/look.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/look.pl | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/Master/tlpkg/tlperl/lib/look.pl b/Master/tlpkg/tlperl/lib/look.pl deleted file mode 100644 index 7be55b2d675..00000000000 --- a/Master/tlpkg/tlperl/lib/look.pl +++ /dev/null @@ -1,54 +0,0 @@ -warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - -;# Usage: &look(*FILEHANDLE,$key,$dict,$fold) -# -# This library is no longer being maintained, and is included for backward -# compatibility with Perl 4 programs which may require it. -# This legacy library is deprecated and will be removed in a future -# release of perl. -# -# In particular, this should not be used as an example of modern Perl -# programming techniques. - -;# Sets file position in FILEHANDLE to be first line greater than or equal -;# (stringwise) to $key. Pass flags for dictionary order and case folding. - -sub look { - local(*FH,$key,$dict,$fold) = @_; - local($max,$min,$mid,$_); - local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, - $blksize,$blocks) = stat(FH); - $blksize = 8192 unless $blksize; - $key =~ s/[^\w\s]//g if $dict; - $key = lc $key if $fold; - $max = int($size / $blksize); - while ($max - $min > 1) { - $mid = int(($max + $min) / 2); - seek(FH,$mid * $blksize,0); - $_ = <FH> if $mid; # probably a partial line - $_ = <FH>; - chop; - s/[^\w\s]//g if $dict; - $_ = lc $_ if $fold; - if ($_ lt $key) { - $min = $mid; - } - else { - $max = $mid; - } - } - $min *= $blksize; - seek(FH,$min,0); - <FH> if $min; - while (<FH>) { - chop; - s/[^\w\s]//g if $dict; - $_ = lc $_ if $fold; - last if $_ ge $key; - $min = tell(FH); - } - seek(FH,$min,0); - $min; -} - -1; |