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 /
Tie-Hash-NamedCapture /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
tiehash.t
804
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!./perl -w use strict; use Test::More; my %hashes = ('+' => \%+, '-' => \%-); foreach (['plus1'], ['minus1', all => 1], ['plus2', all => 0], ['plus3', zlonk => 1], ['minus2', thwapp => 0, all => 1], ) { my $name = shift @$_; my $hash = $hashes{$name} = {}; isa_ok(tie(%$hash, 'Tie::Hash::NamedCapture', @$_), 'Tie::Hash::NamedCapture', "%$name"); } is("abcdef" =~ /(?<foo>[ab])*(?<bar>c)(?<foo>d)(?<bar>[ef]*)/, 1, "We matched"); foreach my $name (qw(+ plus1 plus2 plus3)) { my $hash = $hashes{$name}; is_deeply($hash, { foo => 'b', bar => 'c' }, "%$name is as expected"); } foreach my $name (qw(- minus1 minus2)) { my $hash = $hashes{$name}; is_deeply($hash, { foo => [qw(b d)], bar => [qw(c ef)] }, "%$name is as expected"); } done_testing();