byp4a55 professor6T9

Linux sonniq.ru 5.15.0-161-generic #171-Ubuntu SMP Sat Oct 11 08:17:01 UTC 2025 x86_64
Apache/2.4.52 (Ubuntu)
127.0.0.1

File Name : FileCache.pm

package FileCache;

our $VERSION = '1.10';

=head1 NAME

FileCache - keep more files open than the system permits

=head1 SYNOPSIS

no strict 'refs';

use FileCache;
    # or
    use FileCache maxopen => 16;

cacheout $mode, $path;
    # or
    cacheout $path;
    print $path @data;

$fh = cacheout $mode, $path;
    # or
    $fh = cacheout $path;
    print $fh @data;

=head1 DESCRIPTION

The C<cacheout> function will make sure that there's a filehandle open
for reading or writing available as the pathname you give it. It
automatically closes and re-opens files if you exceed your system's
maximum number of file descriptors, or the suggested maximum I<maxopen>.

=over

=item cacheout EXPR

The 1-argument form of cacheout will open a file for writing (C<< '>' >>)
on it's first use, and appending (C<<< '>>' >>>) thereafter.

Returns EXPR on success for convenience. You may neglect the
return value and manipulate EXPR as the filehandle directly if you prefer.

=item cacheout MODE, EXPR

The 2-argument form of cacheout will use the supplied mode for the initial
and subsequent openings. Most valid modes for 3-argument C<open> are supported
namely; C<< '>' >>, C<< '+>' >>, C<< '<' >>, C<< '<+' >>, C<<< '>>' >>>,
C< '|-' > and C< '-|' >

To pass supplemental arguments to a program opened with C< '|-' > or C< '-|' >
append them to the command string as you would system EXPR.

Returns EXPR on success for convenience. You may neglect the
return value and manipulate EXPR as the filehandle directly if you prefer.

=back

=head1 CAVEATS

While it is permissible to C<close> a FileCache managed file,
do not do so if you are calling C<FileCache::cacheout> from a package other
than which it was imported, or with another module which overrides C<close>.
If you must, use C<FileCache::cacheout_close>.

Although FileCache can be used with piped opens ('-|' or '|-') doing so is
strongly discouraged.  If FileCache finds it necessary to close and then reopen
a pipe, the command at the far end of the pipe will be reexecuted - the results
of performing IO on FileCache'd pipes is unlikely to be what you expect.  The
ability to use FileCache on pipes may be removed in a future release.

FileCache does not store the current file offset if it finds it necessary to
close a file.  When the file is reopened, the offset will be as specified by the
original C<open> file mode.  This could be construed to be a bug.

The module functionality relies on symbolic references, so things will break
under 'use strict' unless 'no strict "refs"' is also specified.

=head1 BUGS

F<sys/param.h> lies with its C<NOFILE> define on some systems,
so you may have to set I<maxopen> yourself.

=cut

require 5.006;
use Carp;
use strict;
no strict 'refs';

# These are not C<my> for legacy reasons.
# Previous versions requested the user set $cacheout_maxopen by hand.
# Some authors fiddled with %saw to overcome the clobber on initial open.
our %saw;
our $cacheout_maxopen = 16;

use parent 'Exporter';
our @EXPORT = qw[cacheout cacheout_close];

my %isopen;
my $cacheout_seq = 0;

sub import {
    my ($pkg,%args) = @_;

# Use Exporter. %args are for us, not Exporter.
    # Make sure to up export_to_level, or we will import into ourselves,
    # rather than our calling package;

__PACKAGE__->export_to_level(1);
    Exporter::import( $pkg );

# Truth is okay here because setting maxopen to 0 would be bad
    return $cacheout_maxopen = $args{maxopen} if $args{maxopen};

# XXX This code is crazy.  Why is it a one element foreach loop?
    # Why is it using $param both as a filename and filehandle?
    foreach my $param ( '/usr/include/sys/param.h' ){
      if (open($param, '<', $param)) {
	local ($_, $.);
	while (<$param>) {
	  if( /^\s*#\s*define\s+NOFILE\s+(\d+)/ ){
	    $cacheout_maxopen = $1 - 4;
	    close($param);
	    last;
	  }
	}
	close $param;
      }
    }
    $cacheout_maxopen ||= 16;
}

# Open in their package.
sub cacheout_open {
  return open(*{caller(1) . '::' . $_[1]}, $_[0], $_[1]) && $_[1];
}

# Close in their package.
sub cacheout_close {
  # Short-circuit in case the filehandle disappeared
  my $pkg = caller($_[1]||0);
  defined fileno(*{$pkg . '::' . $_[0]}) &&
    CORE::close(*{$pkg . '::' . $_[0]});
  delete $isopen{$_[0]};
}

# But only this sub name is visible to them.
sub cacheout {
    my($mode, $file, $class, $ret, $ref, $narg);
    croak "Not enough arguments for cacheout"  unless $narg = scalar @_;
    croak "Too many arguments for cacheout"    if $narg > 2;

($mode, $file) = @_;
    ($file, $mode) = ($mode, $file) if $narg == 1;
    croak "Invalid mode for cacheout" if $mode &&
      ( $mode !~ /^\s*(?:>>|\+?>|\+?<|\|\-|)|\-\|\s*$/ );

# Mode changed?
    if( $isopen{$file} && ($mode||'>') ne $isopen{$file}->[1] ){
      &cacheout_close($file, 1);
    }

if( $isopen{$file}) {
      $ret = $file;
      $isopen{$file}->[0]++;
    }
    else{
      if( scalar keys(%isopen) > $cacheout_maxopen -1 ) {
	my @lru = sort{ $isopen{$a}->[0] <=> $isopen{$b}->[0] } keys(%isopen);
	$cacheout_seq = 0;
	$isopen{$_}->[0] = $cacheout_seq++ for
	  splice(@lru, int($cacheout_maxopen / 3)||$cacheout_maxopen);
	&cacheout_close($_, 1) for @lru;
      }

unless( $ref ){
	$mode ||= $saw{$file} ? '>>' : ($saw{$file}=1, '>');
      }
      #XXX should we just return the value from cacheout_open, no croak?
      $ret = cacheout_open($mode, $file) or croak("Can't create $file: $!");

$isopen{$file} = [++$cacheout_seq, $mode];
    }
    return $ret;
}
1;

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0755	2025-07-30 06:04:50
..	dir	-	0/0	0755	2022-04-21 04:00:52
App	dir	-	0/0	0755	2025-07-30 06:04:50
Archive	dir	-	0/0	0755	2025-07-30 06:04:50
Attribute	dir	-	0/0	0755	2025-07-30 06:04:50
B	dir	-	0/0	0755	2025-07-30 06:04:50
CPAN	dir	-	0/0	0755	2025-07-30 06:04:50
Carp	dir	-	0/0	0755	2025-07-30 06:04:50
Class	dir	-	0/0	0755	2025-07-30 06:04:50
Compress	dir	-	0/0	0755	2025-07-30 06:04:50
Config	dir	-	0/0	0755	2025-07-30 06:04:50
DBM_Filter	dir	-	0/0	0755	2025-07-30 06:04:50
Devel	dir	-	0/0	0755	2025-07-30 06:04:50
Digest	dir	-	0/0	0755	2025-07-30 06:04:50
Encode	dir	-	0/0	0755	2025-07-30 06:04:50
Exporter	dir	-	0/0	0755	2025-07-30 06:04:50
ExtUtils	dir	-	0/0	0755	2025-07-30 06:04:50
File	dir	-	0/0	0755	2025-07-30 06:04:50
Filter	dir	-	0/0	0755	2025-07-30 06:04:50
Getopt	dir	-	0/0	0755	2025-07-30 06:04:50
HTTP	dir	-	0/0	0755	2025-07-30 06:04:50
I18N	dir	-	0/0	0755	2025-07-30 06:04:50
IO	dir	-	0/0	0755	2025-07-30 06:04:50
IPC	dir	-	0/0	0755	2025-07-30 06:04:50
JSON	dir	-	0/0	0755	2025-07-30 06:04:50
Locale	dir	-	0/0	0755	2025-07-30 06:04:50
Math	dir	-	0/0	0755	2025-07-30 06:04:50
Memoize	dir	-	0/0	0755	2025-07-30 06:04:50
Module	dir	-	0/0	0755	2025-07-30 06:04:50
Net	dir	-	0/0	0755	2025-07-30 06:04:50
Params	dir	-	0/0	0755	2025-07-30 06:04:50
Parse	dir	-	0/0	0755	2022-04-21 04:00:52
Perl	dir	-	0/0	0755	2025-07-30 06:04:50
PerlIO	dir	-	0/0	0755	2022-04-21 04:00:52
Pod	dir	-	0/0	0755	2025-07-30 06:04:50
Search	dir	-	0/0	0755	2025-07-30 06:04:50
TAP	dir	-	0/0	0755	2025-07-30 06:04:50
Term	dir	-	0/0	0755	2025-07-30 06:04:50
Test	dir	-	0/0	0755	2025-07-30 06:04:50
Test2	dir	-	0/0	0755	2025-07-30 06:04:50
Text	dir	-	0/0	0755	2025-07-30 06:04:50
Thread	dir	-	0/0	0755	2025-07-30 06:04:50
Tie	dir	-	0/0	0755	2025-07-30 06:04:50
Time	dir	-	0/0	0755	2025-07-30 06:04:50
Unicode	dir	-	0/0	0755	2025-07-30 06:04:50
User	dir	-	0/0	0755	2025-07-30 06:04:50
autodie	dir	-	0/0	0755	2025-07-30 06:04:50
encoding	dir	-	0/0	0755	2025-07-30 06:04:50
overload	dir	-	0/0	0755	2025-07-30 06:04:50
pod	dir	-	0/0	0755	2025-07-30 06:04:50
unicore	dir	-	0/0	0755	2025-07-30 06:04:50
version	dir	-	0/0	0755	2025-07-30 06:04:50
warnings	dir	-	0/0	0755	2025-07-30 06:04:50
AnyDBM_File.pm	text/plain	2.56 KB	0/0	0644	2025-07-25 08:26:40
AutoLoader.pm	text/plain	15.43 KB	0/0	0644	2025-07-25 08:26:40
AutoSplit.pm	text/plain	19.18 KB	0/0	0644	2025-07-25 08:26:40
Benchmark.pm	text/plain	30.3 KB	0/0	0644	2025-07-25 08:26:40
CORE.pod	text/plain	3.11 KB	0/0	0644	2025-07-25 08:26:40
CPAN.pm	text/plain	143.09 KB	0/0	0644	2025-07-25 08:26:40
Carp.pm	text/plain	35.14 KB	0/0	0644	2025-07-25 08:26:40
DB.pm	text/plain	18.48 KB	0/0	0644	2025-07-25 08:26:40
DBM_Filter.pm	text/plain	14.05 KB	0/0	0644	2025-07-25 08:26:40
Digest.pm	text/plain	10.96 KB	0/0	0644	2025-07-25 08:26:40
DirHandle.pm	text/plain	2.04 KB	0/0	0644	2025-07-25 08:26:40
Dumpvalue.pm	text/plain	17.25 KB	0/0	0644	2025-07-25 08:26:40
English.pm	text/plain	4.65 KB	0/0	0644	2025-07-25 08:26:40
Env.pm	text/plain	5.44 KB	0/0	0644	2025-07-25 08:26:40
Exporter.pm	text/plain	18.33 KB	0/0	0644	2025-07-25 08:26:40
Fatal.pm	text/plain	57.7 KB	0/0	0644	2025-07-25 08:26:40
FileCache.pm	text/plain	5.42 KB	0/0	0644	2025-07-25 08:26:40
FileHandle.pm	text/plain	6.63 KB	0/0	0644	2025-07-25 08:26:40
FindBin.pm	text/plain	4.54 KB	0/0	0644	2025-07-25 08:26:40
Internals.pod	text/plain	2.51 KB	0/0	0644	2025-07-25 08:26:40
Memoize.pm	text/plain	35.34 KB	0/0	0644	2025-07-25 08:26:40
NEXT.pm	text/plain	18.54 KB	0/0	0644	2025-07-25 08:26:40
PerlIO.pm	text/plain	14.1 KB	0/0	0644	2025-07-25 08:26:40
Safe.pm	text/plain	24.76 KB	0/0	0644	2025-07-25 08:26:40
SelectSaver.pm	text/plain	1.05 KB	0/0	0644	2025-07-25 08:26:40
SelfLoader.pm	text/plain	17.27 KB	0/0	0644	2025-07-25 08:26:40
Symbol.pm	text/plain	4.79 KB	0/0	0644	2025-07-25 08:26:40
Test.pm	text/plain	29.34 KB	0/0	0644	2025-07-25 08:26:40
Test2.pm	text/plain	6.24 KB	0/0	0644	2025-07-25 08:26:40
Thread.pm	text/plain	8.09 KB	0/0	0644	2025-07-25 08:26:40
UNIVERSAL.pm	text/plain	6.44 KB	0/0	0644	2025-07-25 08:26:40
XSLoader.pm	text/plain	10.99 KB	0/0	0644	2025-07-25 08:26:40
_charnames.pm	text/plain	33.35 KB	0/0	0644	2025-07-25 08:26:40
autodie.pm	text/plain	12.14 KB	0/0	0644	2025-07-25 08:26:40
autouse.pm	text/plain	4.14 KB	0/0	0644	2025-07-25 08:26:40
base.pm	text/plain	10.7 KB	0/0	0644	2025-07-25 08:26:40
bigint.pm	text/plain	22.85 KB	0/0	0644	2025-07-25 08:26:40
bignum.pm	text/plain	20.64 KB	0/0	0644	2025-07-25 08:26:40
bigrat.pm	text/plain	15.78 KB	0/0	0644	2025-07-25 08:26:40
blib.pm	text/plain	2.01 KB	0/0	0644	2025-07-25 08:26:40
bytes.pm	text/plain	3.69 KB	0/0	0644	2025-07-25 08:26:40
bytes_heavy.pl	text/plain	758 B	0/0	0644	2025-07-25 08:26:40
charnames.pm	text/plain	20.44 KB	0/0	0644	2025-07-25 08:26:40
constant.pm	text/plain	14.38 KB	0/0	0644	2025-07-25 08:26:40
deprecate.pm	text/plain	4.92 KB	0/0	0644	2025-07-25 08:26:40
diagnostics.pm	text/plain	18.85 KB	0/0	0644	2025-07-25 08:26:40
dumpvar.pl	text/plain	15.19 KB	0/0	0644	2025-07-25 08:26:40
experimental.pm	text/plain	7.42 KB	0/0	0644	2025-07-25 08:26:40
feature.pm	text/plain	22.11 KB	0/0	0644	2025-07-25 08:26:40
fields.pm	text/plain	9.25 KB	0/0	0644	2025-07-25 08:26:40
filetest.pm	text/plain	3.91 KB	0/0	0644	2025-07-25 08:26:40
if.pm	text/plain	3.54 KB	0/0	0644	2025-07-25 08:26:40
integer.pm	text/plain	3.18 KB	0/0	0644	2025-07-25 08:26:40
less.pm	text/plain	3.13 KB	0/0	0644	2025-07-25 08:26:40
locale.pm	text/plain	4.77 KB	0/0	0644	2025-07-25 08:26:40
meta_notation.pm	text/plain	2.07 KB	0/0	0644	2025-07-25 08:26:40
ok.pm	text/plain	967 B	0/0	0644	2025-07-25 08:26:40
open.pm	text/plain	8.31 KB	0/0	0644	2025-07-25 08:26:40
overload.pm	text/plain	52.1 KB	0/0	0644	2025-07-25 08:26:40
overloading.pm	text/plain	1.77 KB	0/0	0644	2025-07-25 08:26:40
parent.pm	text/plain	2.64 KB	0/0	0644	2025-07-25 08:26:40
perl5db.pl	text/plain	309.86 KB	0/0	0644	2025-07-25 08:26:40
perlfaq.pm	text/plain	77 B	0/0	0644	2025-07-25 08:26:40
sigtrap.pm	text/plain	8.53 KB	0/0	0644	2025-07-25 08:26:40
sort.pm	text/plain	3.82 KB	0/0	0644	2025-07-25 08:26:40
strict.pm	text/plain	4.67 KB	0/0	0644	2025-07-25 08:26:40
subs.pm	text/plain	945 B	0/0	0644	2025-07-25 08:26:40
utf8.pm	text/plain	10.5 KB	0/0	0644	2025-07-25 08:26:40
vars.pm	text/plain	2.4 KB	0/0	0644	2025-07-25 08:26:40
version.pm	text/plain	1.93 KB	0/0	0644	2025-07-25 08:26:40
version.pod	text/plain	9.6 KB	0/0	0644	2025-07-25 08:26:40
vmsish.pm	text/plain	4.21 KB	0/0	0644	2025-07-25 08:26:40
warnings.pm	text/plain	51.97 KB	0/0	0644	2025-07-25 08:26:40

Team Anon Force

https://t.me/Professor6T9x