Hi
Please can you advise ?
#!/usr/bin/perl
use Mysql;
$dbh = Mysql->connect("localhost","mailscanner","root","c0nc3pt") or
die ("Error " . Mysql->errno . " - " . Mysql->errstr);
$sql = "SELECT to_address FROM maillog LIMIT 10;";
$sth = $dbh->query($sql) or die ("Error " . Mysql->errno . " - " .
Mysql->errstr);
while (@row = $sth->fetchrow){
print "$row /n";
}
which gives this
[r...@mail10 ~]# perl addressrep2.pl
/n /n /n /n /n /n /n /n /n /n[r...@mail10 ~]#
when it should give the same output as
Database changed
mysql> SELECT to_address FROM maillog LIMIT 10
-> ;
+----------------------------+
| to_address |
+----------------------------+
| iv...@systems.xxx |
| tkek...@stpeters.xxx |
| dfou...@howden.xxx |
| melan...@mdlulisharp.xxx |
| er...@mdlulisharp.xxx |
| desi...@oas.xxx |
| dbalakis...@multivid.xxx |
| bhar...@webb.xxx |
| jcven...@multivid.xxx |
| ad...@troika-iw.xxx |
+----------------------------+
10 rows in set (0.00 sec)
mysql>
what am I doing wrong ?
Thanks
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
