in reply to Re: File::stat's size method returns negative values
in thread File::stat's size method returns negative values
I thought about that as well, but like I said, the size field in the table contains numbers larger than the ones I displayed. To be sure though, I altered the column to use BIGINT and the problem still occured (after I re-ran my program).
Here is the insertion code:
djw
Here is the insertion code:
Update: I did check to see if any of the files were negative before the perl->mysql code and they were at the time stat was performed (stat($_)).sub writeDB { # stuff ... $sth2 = $dbh->prepare( " insert into files ( client_id, path_id, file, size, ctime, mtime, atime ) values ( ?, ?, ?, ?, ?, ?, ? ) "); foreach my $path (keys %data) { my $pathInsert = qq`insert into path ( client_id, Path ) values ( ?, ? )`; $sth3 = $dbh->prepare($pathInsert); $sth3->execute($client_id, $path); $sth3->finish(); my $path_id = $sth3->{'mysql_insertid'}; foreach my $file (keys %{$data{$path}}) { my $size = $data{$path}{$file}{size}; my $ctime = $data{$path}{$file}{ctime}; my $atime = $data{$path}{$file}{atime}; my $mtime = $data{$path}{$file}{mtime}; $sth2->execute( $client_id, $path_id, $file, $size, $ctime, $atime, $mtime ); } } $sth2->finish(); $dbh->disconnect(); }
djw
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: File::stat's size method returns negative values
by leriksen (Curate) on May 07, 2003 at 00:55 UTC |
In Section
Seekers of Perl Wisdom