root/trunk/install/perl/updatem2pfiletable.pl

#!/usr/bin/perl
#
# Anime recording system foltia
# http://www.dcc-jpl.com/soft/foltia/
#
# usage :updatem2pfiletable.pl
#
# m2pfileのリストをテーブルに入れる
# 全deleteして更新する
# おもにメンテナンス用
# または一日一回ぐらいcronで実行させてもいいかも
#
# DCC-JPL Japan/foltia project
#

use DBI;
use DBD::Pg;

$path = $0;
$path =~ s/updatem2pfiletable.pl$//i;
if ($pwd  ne "./"){
push( @INC, "$path");
}

require "foltialib.pl";
        my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
                $DBDriv,$DBName,$DBHost,$DBPort);
         $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;

#　ひとまず消す
$query =  "DELETE  FROM  foltia_m2pfiles  ";
         $sth = $dbh->prepare($query);
        $sth->execute();

while ($file = glob("$recfolderpath/*.m2p")) {
$file =~ s/$recfolderpath\///;
$query =  "insert into  foltia_m2pfiles values ('$file')";
         $sth = $dbh->prepare($query);
        $sth->execute();
# print "$file\n";
}#while

# foltia_mp4files

#　ひとまず消す
$query =  "DELETE  FROM  foltia_mp4files  ";
         $sth = $dbh->prepare($query);
        $sth->execute();

@mp4filelist = `find $recfolderpath | grep MP4`;
# find /home/foltia/php/tv | grep MP4

#/home/foltia/php/tv/1057.localized/mp4/M4V-1057-14-20061016-2345.MP4
#/home/foltia/php/tv/1057.localized/mp4/M4V-1057-15-20061023-2345.MP4


foreach (@mp4filelist) {
chomp();
s/$recfolderpath\///;
# 1057.localized/mp4/M4V-1057-14-20061016-2345.MP4
# 1057.localized/mp4/M4V-1057-15-20061023-2345.MP4
@fileline = split (/\//);
$filetid = $fileline[0];
$filetid =~ s/[^0-9]//g;

$query =  "insert into  foltia_mp4files values ('$filetid','$fileline[2]')";
         $sth = $dbh->prepare($query);
        $sth->execute();


#print "$filetid;$fileline[2];$query\n"
# http://www.atmarkit.co.jp/fnetwork/rensai/sql03/sql1.html

}