Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
opt /
lampp /
lib /
perl5 /
site_perl /
5.34.1 /
YAML /
[ HOME SHELL ]
Name
Size
Permission
Action
Dumper
[ DIR ]
drwxr-xr-x
Loader
[ DIR ]
drwxr-xr-x
Any.pm
2.59
KB
-r--r--r--
Any.pod
2.82
KB
-r--r--r--
Dumper.pm
16.64
KB
-r--r--r--
Dumper.pod
776
B
-r--r--r--
Error.pm
5.56
KB
-r--r--r--
Error.pod
666
B
-r--r--r--
Loader.pm
23.07
KB
-r--r--r--
Loader.pod
767
B
-r--r--r--
Marshall.pm
867
B
-r--r--r--
Marshall.pod
656
B
-r--r--r--
Mo.pm
2.91
KB
-r--r--r--
Node.pm
4.32
KB
-r--r--r--
Node.pod
2.48
KB
-r--r--r--
Tag.pm
216
B
-r--r--r--
Tag.pod
538
B
-r--r--r--
Types.pm
6.19
KB
-r--r--r--
Types.pod
738
B
-r--r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Marshall.pm
use strict; use warnings; package YAML::Marshall; use YAML::Node (); sub import { my $class = shift; no strict 'refs'; my $package = caller; unless (grep { $_ eq $class} @{$package . '::ISA'}) { push @{$package . '::ISA'}, $class; } my $tag = shift; if ( $tag ) { no warnings 'once'; $YAML::TagClass->{$tag} = $package; ${$package . "::YamlTag"} = $tag; } } sub yaml_dump { my $self = shift; no strict 'refs'; my $tag = ${ref($self) . "::YamlTag"} || 'perl/' . ref($self); $self->yaml_node($self, $tag); } sub yaml_load { my ($class, $node) = @_; if (my $ynode = $class->yaml_ynode($node)) { $node = $ynode->{NODE}; } bless $node, $class; } sub yaml_node { shift; YAML::Node->new(@_); } sub yaml_ynode { shift; YAML::Node::ynode(@_); } 1;
Close