You're using strict and need to declare the variables listed.
Also, I would suggest changing your password as soon as possible!
>>> "mel awaisi" <[EMAIL PROTECTED]> 3/11/2003 3:28:17 PM >>>
hi,
I am trying to use stat in a perl script with MySQL.i am getting the
following error. do I need to add some kind of a use command at the top?
[EMAIL PROTECTED] cgi-bin]# perl dbtest.pl
Global symbol "$file" requires explicit package name at dbtest.pl line 13.
Global symbol "$size" requires explicit package name at dbtest.pl line 14.
Global symbol "$mtime" requires explicit package name at dbtest.pl line 14.
Global symbol "$file" requires explicit package name at dbtest.pl line 14.
Global symbol "$size" requires explicit package name at dbtest.pl line 16.
Global symbol "$mtime" requires explicit package name at dbtest.pl line 16.
Execution of dbtest.pl aborted due to compilation errors.
[EMAIL PROTECTED] cgi-bin]#
The test script is included at the end.
Regards,
Mel
--------------------------
#!/usr/bin/perl -w
use strict;
use DBI;
my $dbname = "cctvimages"; # define db here --cctvimages
my $host = "localhost";
my $dbuser = 'root'; # define user here --root
my $dbpw = 'melhebron1'; # specify password here --password
my $mscs = "dbi:mysql:dbname=$dbname;host=$host;";
my $dbh = DBI->connect($mscs, $dbuser, $dbpw) or die "Connect fails to
$dbname\nError = ", $DBI::errstr;
$file = "/home/me/images/2003_03_11_14_32_42.jpg";
($size, $mtime) = (stat ($file))[8,9];
my $rows_affected = $dbh->do("INSERT INTO imageinfo
values('null','2003_03_11_14_32_42.jpg', '$size', '$mtime'");
$dbh->commit;
my $sql = "SELECT * FROM imageinfo";
my $sth = $dbh->prepare($sql);
$sth->execute or die"Execute fails: $DBI::errstr\n";
my @results = $sth->fetchrow_array;
foreach(@results) {
print"$_\n";
}
$sth->finish;
$dbh->disconnect;
_________________________________________________________________
Use MSN Messenger to send music and pics to your friends
http://messenger.msn.co.uk
