golden hour

/usr/share/perl5/vendor_perl

⬆️ Go Up

Upload

File/Folder	Size	Actions
App	-	Del OK
Archive	-	Del OK
B	-	Del OK
Bundle	-	Del OK
Business	-	Del OK
CGI	-	Del OK
CGI.pm	255.24 KB	Del OK
CPAN	-	Del OK
CPANPLUS	-	Del OK
CPANPLUS.pm	7.05 KB	Del OK
Carp	-	Del OK
Carp.pm	19.93 KB	Del OK
DBIx	-	Del OK
Data	-	Del OK
Date	-	Del OK
Devel	-	Del OK
Digest	-	Del OK
Digest.pm	10.35 KB	Del OK
Encode	-	Del OK
Env.pm	5.39 KB	Del OK
Error	-	Del OK
Error.pm	24.27 KB	Del OK
Expect.pm	53.44 KB	Del OK
Expect.pod	42.71 KB	Del OK
Exporter	-	Del OK
Exporter.pm	18.31 KB	Del OK
ExtUtils	-	Del OK
Fatal.pm	45.16 KB	Del OK
File	-	Del OK
Getopt	-	Del OK
Git	-	Del OK
Git.pm	42.55 KB	Del OK
HTML	-	Del OK
HTTP	-	Del OK
IO	-	Del OK
IPC	-	Del OK
JSON	-	Del OK
LWP	-	Del OK
Locale	-	Del OK
Log	-	Del OK
Module	-	Del OK
Mozilla	-	Del OK
Net	-	Del OK
POD2	-	Del OK
Params	-	Del OK
Parse	-	Del OK
Perl	-	Del OK
Perl4	-	Del OK
Pod	-	Del OK
RPC	-	Del OK
Switch.pm	27.79 KB	Del OK
TAP	-	Del OK
Term	-	Del OK
Test	-	Del OK
Text	-	Del OK
Thread	-	Del OK
Time	-	Del OK
Try	-	Del OK
Types	-	Del OK
Version	-	Del OK
WWW	-	Del OK
abbrev.pl	819 B	Del OK
assert.pl	1.27 KB	Del OK
autodie	-	Del OK
autodie.pm	11.83 KB	Del OK
bigfloat.pl	7.14 KB	Del OK
bigint.pl	8.71 KB	Del OK
bigrat.pl	4.35 KB	Del OK
cacheout.pl	1.1 KB	Del OK
chat2.pl	9.73 KB	Del OK
common	-	Del OK
complete.pl	3.12 KB	Del OK
constant.pm	13.04 KB	Del OK
ctime.pl	1.93 KB	Del OK
dotsh.pl	2.12 KB	Del OK
exceptions.pl	1.7 KB	Del OK
fastcwd.pl	1019 B	Del OK
find.pl	1.16 KB	Del OK
finddepth.pl	1.1 KB	Del OK
flush.pl	642 B	Del OK
ftp.pl	23.53 KB	Del OK
getcwd.pl	1.37 KB	Del OK
getopt.pl	1.27 KB	Del OK
getopts.pl	1.35 KB	Del OK
hostname.pl	727 B	Del OK
importenv.pl	283 B	Del OK
inc	-	Del OK
lib	-	Del OK
local	-	Del OK
look.pl	1.23 KB	Del OK
newgetopt.pl	2.15 KB	Del OK
open2.pl	185 B	Del OK
open3.pl	185 B	Del OK
parent.pm	2.83 KB	Del OK
perldoc.pod	8.25 KB	Del OK
pwd.pl	1.44 KB	Del OK
shellwords.pl	280 B	Del OK
stat.pl	525 B	Del OK
syslog.pl	4.69 KB	Del OK
tainted.pl	164 B	Del OK
termcap.pl	4.02 KB	Del OK
timelocal.pl	690 B	Del OK
validate.pl	3.64 KB	Del OK

Edit: hostname.pl

# From: asherman@fmrco.com (Aaron Sherman) # # This library is no longer being maintained, and is included for backward # compatibility with Perl 4 programs which may require it. # # In particular, this should not be used as an example of modern Perl # programming techniques. # # Suggested alternative: Sys::Hostname # sub hostname { local(*P,@tmp,$hostname,$_); if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P)) { chop($hostname = $tmp[$#tmp]); } elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P)) { chop($hostname = $tmp[$#tmp]); } else { die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n"; } @tmp = (); close P; # Just in case we failed in an odd spot.... $hostname; } 1;
Save