DelCam.pl
上传用户:qdrechuli
上传日期:2022-08-01
资源大小:917k
文件大小:1k
源码类别:

视频捕捉/采集

开发平台:

Visual C++

  1. #!/usr/bin/perl -w
  2. use strict;
  3. use DBI;
  4. use LWP::UserAgent;
  5. use vars qw(%base);
  6. sub DelCam
  7. {
  8. (my $CID,my $CAge) = @_;
  9. print "CID = ",$CID," CAge = ",$CAge,"n";
  10. (my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime(time-$CAge*60*60*24);
  11. $year = $year+1900;
  12. $mon = $mon+1;
  13. my $smon;
  14. my $smday;
  15. if ($mon<10) { $smon = "0".$mon; }
  16. if ($mon>9) { $smon = $mon; }
  17. if ($mday<10) { $smday = "0".$mday; }
  18. if ($mday>9) { $smday = $mday; }
  19. my $tranche = $year.$smon.$smday;
  20. print $tranche,"n";
  21. my $db = DBI->connect("DBI:mysql:netcam","root","");
  22. my $sqlreq = "DELETE FROM record WHERE R_CAM=".$CID." AND R_Day<'".$tranche."'";
  23.    my $sql = $db->prepare($sqlreq);
  24.    $sql->execute();
  25.    $sql->finish();
  26.    $db->disconnect();
  27. }
  28.  
  29. sub main
  30.   {
  31. my $db = DBI->connect("DBI:mysql:netcam","root","");
  32. my $sqlreq = "SELECT C_ID,C_Age FROM cam ";
  33.    my $sql = $db->prepare($sqlreq);
  34.    $sql->execute();
  35.    while ((my $CID,my $CAge) = $sql->fetchrow())
  36.    {
  37.    DelCam($CID,$CAge);
  38.    }
  39.    $sql->finish();
  40.    $db->disconnect();
  41.   }
  42.  
  43. main();