Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
Tie-File /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
00_version.t
356
B
-r--r--r--
2014-12-27 11:49
01_gen.t
3.83
KB
-r--r--r--
2014-12-27 11:48
02_fetchsize.t
828
B
-r--r--r--
2014-12-27 11:48
03_longfetch.t
906
B
-r--r--r--
2014-12-27 11:48
04_splice.t
7.52
KB
-r--r--r--
2014-12-27 11:48
05_size.t
2.38
KB
-r--r--r--
2014-12-27 11:48
06_fixrec.t
882
B
-r--r--r--
2014-12-27 11:48
07_rv_splice.t
5.31
KB
-r--r--r--
2014-12-27 11:48
08_ro.t
1.85
KB
-r--r--r--
2014-12-27 11:48
09_gen_rs.t
5.5
KB
-r--r--r--
2014-12-27 11:48
10_splice_rs.t
6.4
KB
-r--r--r--
2014-12-27 11:48
11_rv_splice_rs.t
4.85
KB
-r--r--r--
2014-12-27 11:48
12_longfetch_rs.t
650
B
-r--r--r--
2014-12-27 11:48
13_size_rs.t
1.51
KB
-r--r--r--
2014-12-27 11:48
14_lock.t
1007
B
-r--r--r--
2014-12-27 11:48
15_pushpop.t
3.08
KB
-r--r--r--
2014-12-27 11:48
16_handle.t
3.33
KB
-r--r--r--
2014-12-27 11:48
17_misc_meth.t
3.41
KB
-r--r--r--
2014-12-27 11:48
18_rs_fixrec.t
880
B
-r--r--r--
2014-12-27 11:48
19_cache.t
4.49
KB
-r--r--r--
2014-12-27 11:48
20_cache_full.t
5.35
KB
-r--r--r--
2014-12-27 11:48
21_win32.t
1.08
KB
-r--r--r--
2014-12-27 11:48
22_autochomp.t
3.94
KB
-r--r--r--
2014-12-27 11:48
23_rv_ac_splice.t
4.9
KB
-r--r--r--
2014-12-27 11:48
24_cache_loop.t
1.23
KB
-r--r--r--
2014-12-27 11:48
25_gen_nocache.t
3.02
KB
-r--r--r--
2014-12-27 11:48
26_twrite.t
16.82
KB
-r--r--r--
2014-12-27 11:48
27_iwrite.t
10.41
KB
-r--r--r--
2014-12-27 11:48
28_mtwrite.t
11.97
KB
-r--r--r--
2014-12-27 11:48
29_downcopy.t
16.81
KB
-r--r--r--
2014-12-27 11:48
29a_upcopy.t
4.78
KB
-r--r--r--
2014-12-27 11:48
30_defer.t
9.58
KB
-r--r--r--
2014-12-27 11:48
31_autodefer.t
4.58
KB
-r--r--r--
2014-12-27 11:48
32_defer_misc.t
4.99
KB
-r--r--r--
2014-12-27 11:48
33_defer_vs.t
2.76
KB
-r--r--r--
2014-12-27 11:48
40_abs_cache.t
5.33
KB
-r--r--r--
2014-12-27 11:48
41_heap.t
4.94
KB
-r--r--r--
2014-12-27 11:48
42_offset.t
1.51
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl use POSIX 'SEEK_SET'; my $file = "tf$$.txt"; $: = Tie::File::_default_recsep(); print "1..5\n"; my $N = 1; use Tie::File; print "ok $N\n"; $N++; my $o = tie @a, 'Tie::File', $file, autodefer => 0; print $o ? "ok $N\n" : "not ok $N\n"; $N++; $a[0] = 'rec0'; check_contents("rec0$:"); $a[1] = "rec1$:"; check_contents("rec0$:rec1$:"); $a[2] = "rec2$:$:"; # should we detect this? check_contents("rec0$:rec1$:rec2$:$:"); sub check_contents { my $x = shift; local *FH = $o->{fh}; seek FH, 0, SEEK_SET; my $a; { local $/; $a = <FH> } $a = "" unless defined $a; if ($a eq $x) { print "ok $N\n"; } else { my $msg = "not ok $N # expected <$x>, got <$a>"; ctrlfix($msg); print "$msg\n"; } $N++; } sub ctrlfix { for (@_) { s/\n/\\n/g; s/\r/\\r/g; } } END { undef $o; untie @a; 1 while unlink $file; }