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 /
ext /
PerlIO-scalar /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
scalar.t
12.88
KB
-r--r--r--
2015-01-10 12:06
scalar_ungetc.t
606
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!perl -w use strict; use IO::Handle; # ungetc() use Test::More tests => 20; require_ok q{PerlIO::scalar}; my $s = 'foo'; Internals::SvREADONLY($s, 1); eval{ $s = 'bar'; }; like $@, qr/Modification of a read-only value/, '$s is readonly'; ok open(my $io, '<', \$s), 'open'; getc $io; my $a = ord 'A'; note "buffer[$s]"; is $io->ungetc($a), $a, 'ungetc'; note "buffer[$s]"; is getc($io), chr($a), 'getc'; is $s, 'foo', '$s remains "foo"'; is getc($io), 'o', 'getc/2'; is getc($io), 'o', 'getc/3'; is getc($io), undef, 'getc/4'; for my $c($a .. ($a+10)){ is $io->ungetc($c), $c, "ungetc($c)"; }