AnonSec Team
Server IP : 127.0.0.1  /  Your IP : 127.0.0.1
Web Server : Apache/2.4.10 (Win32) OpenSSL/1.0.1i PHP/5.6.3
System : Windows NT WIN-R7LTCC7BPLI 6.3 build 9200 (Windows Server 2012 R2 Datacenter Edition) i586
User : GerbangSIPAD ( 0)
PHP Version : 5.6.3
Disable Function : NONE
MySQL : ON  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF
Directory (0777) :  C:/xampp5/sendmail/../contrib/

[  Home  ][  C0mmand  ][  Upload File  ]

Current File : C:/xampp5/sendmail/../contrib/testperldbi.pl
#!/opt/lampp/bin/perl
use DBI;

my $dsn = 'DBI:mysql:cdcol:localhost';
my $db_user_name = 'root';
my $db_password = '';
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);

my $sth = $dbh->prepare(qq{
	SELECT id,titel,interpret,jahr FROM cds ORDER BY interpret;
});
$sth->execute();

while (my ($id, $title, $interpret, $jahr ) = 
    $sth->fetchrow_array()) 
{
     print "$title, $interpret\n";
}
$sth->finish();


AnonSec - 2021