« C78夏コミのご案内(まだほとんどなんにもできてない版) | ★★★★ ストライクウィッチーズ2 ＃5 「私のロマーニャ」 »

Linux用デジタル放送チャンネルスキャンスクリプト

Posted on 2010/08/09 (月) 13:25
Filed Under foltia | | TrackBack | Share on Tumblr

「アニメ自動録画システム foltia」に組み込もうとして、チャンネルスキャンスクリプトを作った。
けど、便利そうなんで、foltiaに組み込む前にスタンドアロンで動くものをメモ代わりにここに貼ろうかと。

実行結果はこんな感じ。

[中略]

[以下略]

手元の環境では3分かからずに地デジ/BS/CSのスキャンが完了した。
テストはrecpt1でしか試してないけど類似のコマンドならそれなりに行ける気がする。
他にepgdumpが必要。

お持ち帰りはこちら。
スタンドアロンチャンネルスキャンスクリプト channelscan.pl

PLAIN TEXT

PERL:

#!/usr/bin/perl
#
#
# Anime recording system foltia
# http://www.dcc-jpl.com/soft/foltia/
#
#
# チャンネルスキャン
# 初期インストール時に受信可能局をスキャンします
#
# DCC-JPL Japan/foltia project
#
my $recpt1path = "/home/foltia/perl/tool/recpt1"; #ほかのキャプチャデバイス作ってる人はココを変更
my $epgdumppath = "/home/foltia/perl/tool"; #epgdumpのあるディレクトリ
my $recfolderpath = "/tmp";#tsを出力するディレクトリ
my $xmloutpath = "/tmp";
my $channel = 13 ; #地デジチャンネルは13-62
my $oserr = "";
my $line = "";
print "Initialize\n";
print "Tool path are\n";
print "REC:$recpt1path\n";
print "EPGDUMP:$epgdumppath/epgdump\n";
print "TS OUT:$recfolderpath/\n";
print "XML OUT:$xmloutpath/\n";
#ツールがあるか確認
unless (-e "$recpt1path"){
print "Please install $recpt1path.\n";
exit 1;
}
unless (-e "$epgdumppath/epgdump"){
print "Please install $epgdumppath/epgdump.\n";
exit 1;
}
unless (-e "$recfolderpath"){
print "Please make directory $recfolderpath.\n";
exit 1;
}
unless (-e "$xmloutpath"){
print "Please make directory $xmloutpath.\n";
exit 1;
}
#地デジスキャンループ
for ($channel = 13; $channel <= 62 ; $channel++){
print "\nChannel: $channel\n";
$oserr = `$recpt1path $channel 4 $recfolderpath/__$channel.m2t`;
$oserr = `$epgdumppath/epgdump $channel $recfolderpath/__$channel.m2t $xmloutpath/__$channel-epg.xml`;
if (-s "$xmloutpath/__$channel-epg.xml" ){
print "\t\t This channel can view : $channel \n";
open(XML, "<$xmloutpath/__$channel-epg.xml");
while ( $line = <XML>) {
#Jcode::convert(\$line,'euc','utf8');
if($line =~ /display-name/){
$line =~ s/<.*?>//g;
#Jcode::convert(\$line,'utf8','euc');
print "\t\t $channel $line\n";
}#end if
}#end while
close(XML);
}else{
print "\t\t Not Available : $channel \n";
}#end if
}#end for
#BSデジタル
$channel = 211;
print "\nBS Digital Scan\n";
$oserr = `$recpt1path $channel 4 $recfolderpath/__$channel.m2t`;
$oserr = `$epgdumppath/epgdump /BS $recfolderpath/__$channel.m2t $xmloutpath/__$channel-epg.xml`;
if (-s "$xmloutpath/__$channel-epg.xml" ){
print "\t\t BS Digital can view : \n";
open(XML, "<$xmloutpath/__$channel-epg.xml");
while ( $line = <XML>) {
#Jcode::convert(\$line,'euc','utf8');
if($line =~ /display-name/){
$line =~ s/<.*?>//g;
#Jcode::convert(\$line,'utf8','euc');
print "\t\t $line\n";
}#end if
}#end while
close(XML);
}else{
print "\t\t Not Available : BS Digital \n";
}#end if
#CSデジタル
$channel = "CS8";
print "\nCS Digital Scan\n";
$oserr = `$recpt1path $channel 4 $recfolderpath/__$channel.m2t`;
$oserr = `$epgdumppath/epgdump /CS $recfolderpath/__$channel.m2t $xmloutpath/__$channel-epg.xml`;
if (-s "$xmloutpath/__$channel-epg.xml" ){
print "\t\t CS Digital can view : \n";
open(XML, "<$xmloutpath/__$channel-epg.xml");
while ( $line = <XML>) {
#Jcode::convert(\$line,'euc','utf8');
if($line =~ /display-name/){
$line =~ s/<.*?>//g;
#Jcode::convert(\$line,'utf8','euc');
print "\t\t $line\n";
}#end if
}#end while
close(XML);
}else{
print "\t\t Not Available : CS Digital \n";
}#end if