You're using 'use strict' and not declaring $file and others.
On Tue, 2003-03-11 at 12:28, mel awaisi wrote:
> 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
>
