karma-syndicate

Linux sh-pro80.hostgator.com.br 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
Apache
162.241.62.121

FileCache.pm

package FileCache;

our $VERSION = '1.08';

=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.
use vars qw(%saw $cacheout_maxopen);
$cacheout_maxopen = 16;

use base '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;

System Information
*ReClick For Close
File : BlackDragon /index.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-07-03 03:55:36
..	dir	-	root/root	0755	2026-03-17 11:03:46
App	dir	-	root/root	0755	2024-07-03 03:55:36
Archive	dir	-	root/root	0755	2023-10-25 12:41:01
Attribute	dir	-	root/root	0755	2024-07-03 03:55:27
B	dir	-	root/root	0755	2024-07-03 03:55:27
CPAN	dir	-	root/root	0755	2024-07-03 03:55:36
Capture	dir	-	root/root	0755	2022-10-05 09:13:49
Class	dir	-	root/root	0755	2024-07-03 03:55:27
Compress	dir	-	root/root	0755	2023-10-25 12:41:01
Config	dir	-	root/root	0755	2024-07-03 03:55:27
DBM_Filter	dir	-	root/root	0755	2024-07-03 03:55:27
Devel	dir	-	root/root	0755	2024-07-03 03:55:27
Encode	dir	-	root/root	0755	2024-07-03 03:55:27
ExtUtils	dir	-	root/root	0755	2024-07-03 03:55:36
File	dir	-	root/root	0755	2024-07-03 03:55:27
Filter	dir	-	root/root	0755	2024-07-03 03:55:27
Getopt	dir	-	root/root	0755	2024-07-03 03:55:27
HTTP	dir	-	root/root	0755	2023-10-25 12:41:01
I18N	dir	-	root/root	0755	2024-07-03 03:55:27
IO	dir	-	root/root	0755	2024-07-03 03:55:36
IPC	dir	-	root/root	0755	2024-07-03 03:55:27
JSON	dir	-	root/root	0755	2023-10-25 12:41:01
LWP	dir	-	root/root	0755	2022-10-05 08:56:57
Locale	dir	-	root/root	0755	2023-10-25 12:41:01
Log	dir	-	root/root	0755	2023-10-25 12:41:01
Math	dir	-	root/root	0755	2024-07-03 03:55:27
Memoize	dir	-	root/root	0755	2024-07-03 03:55:27
Module	dir	-	root/root	0755	2024-07-03 03:55:36
Net	dir	-	root/root	0755	2024-07-03 03:55:27
Object	dir	-	root/root	0755	2024-07-03 03:55:36
Package	dir	-	root/root	0755	2024-07-03 03:55:36
Perl	dir	-	root/root	0755	2023-10-25 12:41:01
PerlIO	dir	-	root/root	0755	2023-10-25 12:41:01
Pod	dir	-	root/root	0755	2024-07-03 03:55:36
Search	dir	-	root/root	0755	2024-07-03 03:55:27
Term	dir	-	root/root	0755	2024-07-03 03:55:27
Test	dir	-	root/root	0755	2023-10-25 12:41:01
Text	dir	-	root/root	0755	2024-07-03 03:55:27
Thread	dir	-	root/root	0755	2024-07-03 03:55:27
Tie	dir	-	root/root	0755	2024-07-03 03:55:27
Time	dir	-	root/root	0755	2024-07-03 03:55:27
URI	dir	-	root/root	0755	2022-10-05 08:56:09
Unicode	dir	-	root/root	0755	2024-07-03 03:55:28
User	dir	-	root/root	0755	2024-07-03 03:55:28
Version	dir	-	root/root	0755	2023-10-25 12:41:01
encoding	dir	-	root/root	0755	2024-07-03 03:55:28
overload	dir	-	root/root	0755	2024-07-03 03:55:28
pod	dir	-	root/root	0755	2024-07-03 03:55:28
unicore	dir	-	root/root	0755	2024-07-03 03:55:29
vendor_perl	dir	-	root/root	0755	2026-01-21 03:55:19
warnings	dir	-	root/root	0755	2024-07-03 03:55:29
AnyDBM_File.pm	text/plain	2.56 KB	root/root	0644	2023-10-25 12:41:01
AutoLoader.pm	text/plain	14.66 KB	root/root	0644	2023-10-25 12:41:01
AutoSplit.pm	text/plain	19.18 KB	root/root	0644	2023-10-25 12:41:01
Benchmark.pm	text/plain	27.87 KB	root/root	0644	2023-10-25 12:41:01
CORE.pod	text/plain	2.7 KB	root/root	0644	2023-10-25 12:41:01
CPAN.pm	text/plain	132.91 KB	root/root	0644	2023-10-25 12:36:11
DB.pm	text/plain	18.43 KB	root/root	0644	2023-10-25 12:41:01
DBM_Filter.pm	text/plain	14.06 KB	root/root	0644	2023-10-25 12:41:01
DirHandle.pm	text/plain	1.52 KB	root/root	0644	2023-10-25 12:41:01
Dumpvalue.pm	text/plain	16.5 KB	root/root	0644	2023-10-25 12:41:01
English.pm	text/plain	4.34 KB	root/root	0644	2023-10-25 12:41:01
FileCache.pm	text/plain	5.44 KB	root/root	0644	2023-10-25 12:41:01
FileHandle.pm	text/plain	6.62 KB	root/root	0644	2023-10-25 12:41:01
FindBin.pm	text/plain	4.45 KB	root/root	0644	2023-10-25 12:41:01
LWP.pm	text/plain	21.15 KB	root/root	0644	2013-03-11 09:33:18
Memoize.pm	text/plain	34.4 KB	root/root	0644	2023-10-25 12:41:01
NEXT.pm	text/plain	18.05 KB	root/root	0644	2023-10-25 12:41:01
PerlIO.pm	text/plain	10.19 KB	root/root	0644	2023-10-25 12:41:01
Safe.pm	text/plain	24.03 KB	root/root	0644	2023-10-25 12:41:01
SelectSaver.pm	text/plain	1.05 KB	root/root	0644	2023-10-25 12:41:01
SelfLoader.pm	text/plain	16.97 KB	root/root	0644	2023-10-25 12:41:01
Symbol.pm	text/plain	4.68 KB	root/root	0644	2023-10-25 12:41:01
Test.pm	text/plain	28.13 KB	root/root	0644	2023-10-25 12:41:01
Thread.pm	text/plain	8.09 KB	root/root	0644	2023-10-25 12:41:01
UNIVERSAL.pm	text/plain	6.97 KB	root/root	0644	2023-10-25 12:41:01
URI.pm	text/plain	33.01 KB	root/root	0644	2012-03-25 08:47:59
XSLoader.pm	text/plain	9.99 KB	root/root	0644	2023-10-25 12:41:01
_charnames.pm	text/plain	29.8 KB	root/root	0644	2023-10-25 12:41:01
autouse.pm	text/plain	4.14 KB	root/root	0644	2023-10-25 12:41:01
base.pm	text/plain	6.37 KB	root/root	0644	2023-10-25 12:41:01
bigint.pm	text/plain	17.44 KB	root/root	0644	2023-10-25 12:41:01
bignum.pm	text/plain	18.23 KB	root/root	0644	2023-10-25 12:41:01
bigrat.pm	text/plain	14.11 KB	root/root	0644	2023-10-25 12:41:01
blib.pm	text/plain	2.04 KB	root/root	0644	2023-10-25 12:41:01
bytes.pm	text/plain	2.96 KB	root/root	0644	2023-10-25 12:41:01
bytes_heavy.pl	text/plain	758 B	root/root	0644	2023-10-25 12:41:01
charnames.pm	text/plain	19.22 KB	root/root	0644	2023-10-25 12:41:01
deprecate.pm	text/plain	3.01 KB	root/root	0644	2023-10-25 12:41:01
diagnostics.pm	text/plain	17.96 KB	root/root	0644	2023-10-25 12:41:01
dumpvar.pl	text/plain	14.96 KB	root/root	0644	2023-10-25 12:41:01
feature.pm	text/plain	11.06 KB	root/root	0644	2023-10-25 12:41:01
fields.pm	text/plain	9.28 KB	root/root	0644	2023-10-25 12:41:01
filetest.pm	text/plain	3.91 KB	root/root	0644	2023-10-25 12:41:01
if.pm	text/plain	1.13 KB	root/root	0644	2023-10-25 12:41:01
integer.pm	text/plain	3.19 KB	root/root	0644	2023-10-25 12:41:01
less.pm	text/plain	3.13 KB	root/root	0644	2023-10-25 12:41:01
locale.pm	text/plain	2.72 KB	root/root	0644	2023-10-25 12:41:01
lwpcook.pod	text/plain	9.05 KB	root/root	0644	2012-02-11 03:02:09
lwptut.pod	text/plain	24.89 KB	root/root	0644	2012-02-11 03:02:09
open.pm	text/plain	7.83 KB	root/root	0644	2023-10-25 12:41:01
overload.pm	text/plain	52.66 KB	root/root	0644	2023-10-25 12:41:01
overloading.pm	text/plain	1.77 KB	root/root	0644	2023-10-25 12:41:01
perl5db.pl	text/plain	302.79 KB	root/root	0644	2023-10-25 12:41:01
perlfaq.pm	text/plain	94 B	root/root	0644	2023-10-25 12:41:01
sigtrap.pm	text/plain	7.46 KB	root/root	0644	2023-10-25 12:41:01
sort.pm	text/plain	5.95 KB	root/root	0644	2023-10-25 12:41:01
strict.pm	text/plain	3.84 KB	root/root	0644	2023-10-25 12:41:01
subs.pm	text/plain	845 B	root/root	0644	2023-10-25 12:41:01
utf8.pm	text/plain	7.6 KB	root/root	0644	2023-10-25 12:41:01
utf8_heavy.pl	text/plain	30.1 KB	root/root	0644	2023-10-25 12:41:01
vars.pm	text/plain	2.3 KB	root/root	0644	2023-10-25 12:41:01
vmsish.pm	text/plain	4.22 KB	root/root	0644	2023-10-25 12:41:01
warnings.pm	text/plain	18.34 KB	root/root	0644	2023-10-25 12:41:01

karma-syndicate

Seu filho pede o tablet assim que acorda? Você não está sozinha...

1. Pensando na rotina do seu filho, como você descreveria o uso de telas na casa de vocês?

2. Já aconteceu de você ceder às telas só para ter alguns minutos de paz?

3. Quando você tenta tirar a tela, qual é a reação mais comum do seu filho?

4. Você sabia que o excesso de telas pode afetar a capacidade do seu filho de lidar com o tédio?

4 Benefícios em 7 Dias com Menos Tela:

5. Qual dessas situações mais te desafia hoje?

6. Você sabia que famílias que conseguiram reduzir as telas seguem 3 passos simples?

7. Se existisse um material pronto, com atividades que realmente funcionam, você tentaria?

8. Como você se sente quando vê seu filho vidrado na tela, sem interagir com mais nada?

9. Qual seria o maior presente que você poderia dar para sua família?

10. Se você pudesse transformar essa situação ainda hoje, você começaria?

📊 ESTUDO COMPROVA:

🎉 SEU PLANO PERSONALIZADO ESTÁ PRONTO!

💝 APRESENTANDO: KIT FILHOS SEM TELA

🔥 DEPOIMENTOS REAIS DE QUEM JÁ TRANSFORMOU:

💰 VALOR REAL vs INVESTIMENTO:

🛡️ GARANTIA BLINDADA DE 15 DIAS:

🤔 AINDA EM DÚVIDA?