Linux server.nvwebsoft.co.in 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64
Apache
: 162.240.12.249 | : 3.145.54.210
202 Domain
8.1.31
nbspublicschool
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
perl-DBD-MySQL-4.023 /
eg /
[ HOME SHELL ]
Name
Size
Permission
Action
bug14979.pl
789
B
-rw-r--r--
bug21028.pl
2.19
KB
-rw-r--r--
bug30033.pl
868
B
-rw-r--r--
bug30033pg.pl
456
B
-rw-r--r--
decimal_test.pl
839
B
-rw-r--r--
issue21946.pl
848
B
-rw-r--r--
prepare_memory_usage.pl
450
B
-rw-r--r--
proc_example1.pl
1.03
KB
-rw-r--r--
proc_example2.pl
1.38
KB
-rw-r--r--
proc_example2a.pl
1.29
KB
-rw-r--r--
proc_example2b.pl
1.27
KB
-rw-r--r--
proc_example3.pl
901
B
-rw-r--r--
proc_example4.pl
1.36
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : proc_example1.pl
#!/usr/bin/perl use strict; use DBI; my $db='test'; my $host='localhost'; my $user='root'; my $password=''; my $i= 0; 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 int; set a=1; set b=2; set c=3; set d=4; select a, b, c, d; select d, c, b, a; select b, a, c, d; select c, b, d, a; end") or print $DBI::errstr; my $sth= $dbh->prepare('call testproc()') || die $DBI::err.": ".$DBI::errstr; $sth->execute || die DBI::err.": ".$DBI::errstr; do { print "\nResult set ".++$i."\n---------------------------------------\n\n"; for my $colno (0..$sth->{NUM_OF_FIELDS}) { print $sth->{NAME}->[$colno]."\t"; } print "\n"; while (my @row= $sth->fetchrow_array()) { for my $field (0..$#row) { print $row[$field]."\t"; } print "\n"; } } until (!$sth->more_results)
Close
