Linux unitednationsplay.com 3.10.0-1160.45.1.el7.x86_64 #1 SMP Wed Oct 13 17:20:51 UTC 2021 x86_64
nginx/1.20.1
Server IP : 188.130.139.92 & Your IP : 3.16.130.38
Domains :
Cant Read [ /etc/named.conf ]
User : web
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-DBD-MySQL-4.023 /
eg /
Delete
Unzip
Name
Size
Permission
Date
Action
bug14979.pl
789
B
-rw-r--r--
2012-08-28 01:30
bug21028.pl
2.19
KB
-rw-r--r--
2012-08-28 01:30
bug30033.pl
868
B
-rw-r--r--
2012-08-28 01:30
bug30033pg.pl
456
B
-rw-r--r--
2012-08-28 01:30
decimal_test.pl
839
B
-rw-r--r--
2012-08-28 01:30
issue21946.pl
848
B
-rw-r--r--
2012-08-28 01:30
prepare_memory_usage.pl
450
B
-rw-r--r--
2012-08-28 01:30
proc_example1.pl
1.03
KB
-rw-r--r--
2012-08-28 01:30
proc_example2.pl
1.38
KB
-rw-r--r--
2012-08-28 01:30
proc_example2a.pl
1.29
KB
-rw-r--r--
2012-08-28 01:30
proc_example2b.pl
1.27
KB
-rw-r--r--
2012-08-28 01:30
proc_example3.pl
901
B
-rw-r--r--
2012-08-28 01:30
proc_example4.pl
1.36
KB
-rw-r--r--
2012-08-28 01:30
Save
Rename
#!/usr/bin/perl use strict; use DBI; use Data::Dumper; my $db='test'; my $host='localhost'; my $user='root'; my $password=''; my $dbh = DBI->connect("DBI:mysql:$db:$host", "$user", "$password", { PrintError => 0}) || die $DBI::errstr; $dbh->do("drop procedure if exists testproc") or print $DBI::errstr; $dbh->do("create procedure testproc() deterministic begin declare a,b,c,d,e,f int; set a=1; set b=2; set c=3; set d=4; set e=5; set f=6; select a, b, c, d; select d, c, b, a; select b, a, c, d; select c, b, d, a; select a, d; select f; select a, b, c, d, e, f; end") or print $DBI::errstr; my $sth= $dbh->prepare('call testproc()') || die $DBI::err.": ".$DBI::errstr; $sth->execute || die DBI::err.": ".$DBI::errstr; do { my $row= $sth->fetchrow_arrayref(); print Dumper $row; } while ($sth->more_results())