can somebody php into perl?

[raffael3d]

I need urgently this short php script translated into Perl. I only know php and have no idea of perl, would be great if somebody could do it for me, thanks!!

<?
//---------start script
$username="xxxxxx";
$password="yyyyyyy";
$database="zzzzzzz";
mysql_connect(localhost,$username,$password);
mysql_select_db($database) or die( "Unable to select database");

$sql = "SELECT count(*) FROM jobs WHERE approve=0";

$count = mysql_result($result, 0);

print $count; 

//---------end scipt--------
?>

[samsm]

This is the article for you!

Access your MySQL Database with Perl
http://www.webmasterbase.com/article/54

Start with that, what remains will be easy as pie.

[raffael3d]

thanks!
I tried this:

# connect
my $dbh = DBI->connect("dbi:mysql:XXXXX:localhost:YYYYY", "user", "pass");

# prepare the query
my $sth = $dbh->prepare("SELECT count(*) FROM jobs WHERE approve=0");

# execute the query
$sth->execute();


$count = $sth($result, 0);

print $count;




but it doesn't work. any tips?

[Mark T.]

I don't see a shebang line in the code you posted, is it there in the original code?

[Luke Dawson]

Also, try adding an 'or die' clause at the end of the statements, as you can then catch any errors that might be happening:

use DBI;
my $dbh = DBI->connect("dbi:mysql:XXXXX:localhost:YYYYY", "user", "pass") or die $DBI::errstr;

# prepare the query
my $sth = $dbh->prepare("SELECT count(*) FROM jobs WHERE approve=0") or die $DBI::errstr;

# execute the query
$sth->execute() or die $DBI::errstr;

etc...

[raffael3d]

the original script is here . I tried to modify it so taht it outputs the amount of entries in the database. Sorry I only know PHP, not too much Perl.


use DBI;
use CGI;

print CGI::header();

print "<h1>Subscribers</h1>";

# connect
my $dbh = DBI->connect("dbi:mysql:shoes:localhost:3306", "user", "pass");

# prepare the query
my $sth = $dbh->prepare("select username, emailaddr from subscribers");

# execute the query
$sth->execute();

while(my ($username, $email) = $sth->fetchrow_array()) {
print "$username: $email<br>\n";
}


from http://www.webmasterbase.com/article/545/5

[Mark T.]

You need to add a shebang line to your code in order for it to be parsed through a Perl interpreter.
It looks like this:

#! /usr/local/bin/perl

You have to modify it to the location of the Perl folder on your system.