Comskipを使用し、LinuxでMPEG2 TSをCMカットする方法

公開日：2015/12/18 最終更新日：2016/12/19

　Comskipを使用し、LinuxでMPEG2 TSファイルをCMカットする方法を説明します。FFmpegとの組み合わせでCMカットまで行う自作スクリプトについても紹介します。

1 Comskip
2 インストール
- 2.1 Wineのインストール
- 2.2 Comskipのインストール
3 Comskipの使い方
- 3.1 ComskipによるCM開始終了位置の検出
- 3.2 CMカットスクリプト

Comskip

　ComskipはMPEG2 TSファイルからCMを検出するツールです。CMの開始終了位置が分かるだけで、これ単体ではCMカットはできません。本記事ではCM検出結果を元にFFmpegを使ってCMカットを行う方法を説明します（最後に自作スクリプトの紹介もします）。

　オリジナルのComskipはWindows用ですが、いくつかの方法でLinuxにも移植されています。そこで、本記事でも当初はLinux版を使用しようとしたのですが、うまくCM検出できなかったり、古いFFmpegを使用する必要があったり、動作的に安定しなかったためWindows版を使用することにしました。

　具体的にはWindows版のComskipをWine（Windows用アプリケーションをUnix互換OSで動かすためのソフトウェア）を使って動かします。それでも良ければ、本記事の内容を試してみて下さい。また、頑張ってLinux版を使うのも良いと思います。私は面倒くさくなってやめましたが…

　最後に注意点があります。Comskipはあくまで簡易的なCM検出ツールなので、保存用の動画には使えません。例えば、アニメの次回予告（30秒程度）の前後のCM検出は大抵失敗します。そのため、見て消しの番組などに適用するのが良いかと思われます。また、CMの無いNHKの番組で使っても意味がないですし、BSやCSの番組もうまく検出できないことが多いと思います。

インストール

Wineのインストール

　Comskipは32bitのコマンドなので、Wineも32bit版をインストールする必要があります。UbuntuとDebianはパッケージをインストールするだけで済みます。しかし、CentOS 7はバイナリのパッケージが存在しません。CentOS 7に関しては「CentOS 7で32bit版Wineをビルドする方法」を参照してインストールして下さい（実は本記事を書くためにWineのビルド記事を書きました…）。

Ubuntuの場合)
 $ sudo apt-get install wine

Debianの場合)
 $ su -
 # dpkg --add-architecture i386
 # apt-get update
 # apt-get install wine:i386

Comskipのインストール

　Windows用comskip置き場からZipファイルをダウンロードします。wgetで取得する最新のファイル名は置き場のサイトで確認して下さい。

$ wget http://www.kaashoek.com/files/comskip81_089.zip
$ unzip -d comskip comskip81_089.zip

 解凍先のcomskipディレクトリを/usr/localなどに移動して下さい。
 Ubuntuは"sudo"で、それ以外はrootユーザーで行います。

# mv comskip/ /usr/local/

　ComskipはCM検出用の設定ファイル（comskip.ini）が必要です。インターネットで検索すれば色々と見つかるので、それをcomskipディレクトリに置くと良いです。

　なお、Comskipで作成するVDRファイルを利用してCMカットを行うため、comskip.iniの中で以下は必須の設定です。

output_vdr=1

Comskipの使い方

ComskipによるCM開始終了位置の検出

　Windows版のComskipを使用するには以下の様に実行します。

$ wine /usr/local/comskip/comskip.exe input.ts

  CM検出結果はVDRファイルに出力されます（TSファイルと同じディレクトリに出力）。

$ cat input.vdr

0:00:00.00 start
0:00:05.37 end
0:01:28.25 start
0:02:28.31 end
0:13:00.34 start
0:14:05.91 end
0:24:55.19 start
0:25:40.03 end
0:27:05.32 start
0:30:07.10 end

　これは30分番組のCMの開始終了位置を検出した結果です。startが開始、endが終了位置です。つまり、番組本編はそれぞれのendからstartの範囲になります。この場合は以下の4つの範囲です。

0:00:05.37 ～ 0:01:28.25
0:02:28.31 ～ 0:13:00.34
0:14:05.91 ～ 0:24:55.19
0:25:40.03 ～ 0:27:05.32

　実際に上記の結果を元にFFmpegで本編の切り出しと結合まで行ったのが以下になります。

本編の切り出し)
 $ ffmpeg -i input.ts -ss 0:00:05.37 -t  82.88 -c copy output_1.ts
 $ ffmpeg -i input.ts -ss 0:02:28.31 -t 632.03 -c copy output_2.ts
 $ ffmpeg -i input.ts -ss 0:14:05.91 -t 649.28 -c copy output_3.ts
 $ ffmpeg -i input.ts -ss 0:25:40.03 -t  85.29 -c copy output_4.ts

本編の結合)
 $ ffmpeg -i "concat:output_1.ts|output_2.ts|output_3.ts|output_4.ts" -c copy output.ts

　これを手作業で行うのは非常に面倒なので、Comskipの実行から本編結合までの一連の流れを自動で行うスクリプトを作成しました。

　なお、ChinachuでインストールされるFFmpegでは動画の結合はできません。FFmpegのビルド時に機能を無効化していることが原因と思われます（おそらくprotocols、filters？）。調べた所、chinachuスクリプトのFFmpegのconfigureにてdisableしている機能が結構ありました。Chinachu環境の場合、それらを有効にしてビルドし直すか、本ブログ内の記事「LinuxでFFmpegをほぼ全自動でビルドする（CentOS、Ubuntu等に対応）」を参考にFFmpegをインストールし直して下さい。

CMカットスクリプト

　以下がComskipを利用したCMカットスクリプトになります。

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open ":utf8";
use Encode;
use File::Basename qw/basename dirname/;
use Getopt::Long;
use Time::Local;
use File::Copy;

$SIG{'INT'}  = \&handler;
$SIG{'KILL'} = \&handler;
my %opts = ();
my $script_name = basename $0;

# ************************
# ***** ユーザー設定 *****
# ************************
# comskipの実行ファイル名
my $comskip_cmd = "/usr/bin/wine /usr/local/comskip/comskip.exe";

# ffmpegの実行ファイル名
my $ffmpeg_cmd = "/usr/local/ffmpeg_build/bin/ffmpeg";

# 先頭のマージン秒 (59秒以内)
my $margin_sec = 5;

# comskipのCM検出方法
my $detect_flag = 255;

# comskipの初期設定ファイル
my $ini_file = "/usr/local/comskip/comskip.ini";

# ************************
# ***** 設定ここまで *****
# ************************

#binmode(STDOUT, ":utf8");

# 関数: ヘルプ
sub usage {
    no utf8;

    print <<END;
Usage:
  comskipで検出したCM位置を元にMPEG2-TSファイルからCMをカットして出力する

書式
  $script_name -i|-input <file> -o|-output <file> [-h|-help] [-m|-margin <int>] [-d|-detectmethod <int>] [-force|f] [-ini <file>] [-int|-intermediate <int>] [-logo|-l <file>] [-t|-test]

  -h, -help                  本内容の表示
  -i, -input <file>          入力 MPEG2-TS ファイル名(必須)
  -o, -output <file>         CMカット後の出力 MPEG2-TS ファイル名(必須)
  -m, -margin <int>          入力ファイルの先頭のマージン秒(59秒以内)
  -d, -detectmethod <int>    comskipのCM検出方法(詳細はcomskipの同オプション参照)
  -f, -force                 CMカットに失敗しても、強制的に入力ファイルのコピーを出力
  -ini <file>                comskipのiniファイル
  -int, -intermediate <int>  中間ファイルの削除有無
                              1:全削除(default), 2:vdrとlogoファイルのみ保存, 3:全て残す
  -l, -logo <file>           comskipのロゴファイル
  -t, -test                  CM検出範囲の時間を表示して終了する
注意事項
  - マージン秒、comskipのCM検出方法、iniファイルのデフォルト設定は
    本スクリプト内の該当パラメータにてユーザーが設定する
END

    exit(0);
}

# 関数: msec単位の時刻取得(1900年1月1日基準)
sub time2msec {
    my($time1) = @_;
    my($msec_time);
    my($hour, $min, $sec, $msec);

    ($hour, $min, $sec, $msec) = split(/[:\.]/, $time1);

    $msec_time = timelocal($sec, $min, $hour, 1, 0, 0);
    $msec_time += ($msec/100);

    return $msec_time;
}

GetOptions(\%opts, qw(help|h input|i=s output|o=s margin|m=i detectmethod|d=i ini=s intermediate|int=i logo|l=s force|f test|t))
    or die "Error(GetOptions)";

# 入出力ファイル指定
unless (exists $opts{'input'} && exists $opts{'output'}) {
    &usage();
} elsif (exists $opts{'help'}) {
    &usage();
}

my $input_ts  = decode('utf8', $opts{'input'});
my $output_ts = decode('utf8', $opts{'output'});
my $base_name = basename $input_ts;
$base_name =~ s/\.[^\.]+$//;
my $base_dir  = dirname $input_ts;

if ($input_ts eq $output_ts) {
    die "input and output file is same.";
}

# マージン秒指定
if (exists $opts{'margin'} && $opts{'margin'} < 60) {
    $margin_sec = $opts{'margin'};
}
my $margin_time = sprintf("0:00:%02d.00", $margin_sec);

# comskipの初期設定ファイル指定
if (exists $opts{'ini'}) {
    $ini_file = $opts{'ini'};
}

# comskipのCM検出方法指定
if (exists $opts{'detectmethod'}) {
    $detect_flag = $opts{'detectmethod'};
}

# comskipの中間ファイルの削除有無
use constant {ALL_DELETE => 1, REMAIN_VDR => 2, REMAIN_ALL => 3,};
my $intermediate_flag = ALL_DELETE;
if (exists $opts{'intermediate'}) {
    $intermediate_flag = $opts{'intermediate'};
}

# comskipの実行
$comskip_cmd .= " -t -d $detect_flag -v 1 --ini=$ini_file";
if (exists $opts{'logo'}) {
    $comskip_cmd .= " --logo=";
    $comskip_cmd .= $opts{'logo'};
}
$comskip_cmd .= " \"$input_ts\"";
`$comskip_cmd`;

my $vdr_file = "$base_dir/${base_name}.vdr";
unless (-f $vdr_file) {
    &handler("can't make a vdr file.");
}

# TSファイルの記録時間取得
my $result = `$ffmpeg_cmd -i "$input_ts" 2>&1 | grep Duration`;
$result =~ /Duration: (\d+:\d+:\d+\.\d+)/;
my $end_time = $1;

# vdrの解析(配列の作成)
my @rec_time = ();

open(my $vdr_handle, "<", $vdr_file)
    or &handler("can't open $vdr_file: $!");

print "vdr output\n--------------------\n" if (exists $opts{'test'});

foreach my $line (<$vdr_handle>) {
    print "  $line" if (exists $opts{'test'});
    chomp($line);
    $line =~ s/\s+start.*$//;
    $line =~ s/\s+end.*$//;

    push(@rec_time, $line);
}

close($vdr_handle);

if ($#rec_time < 0) {
    &handler("can't detect CM.");
}

print "\$#rec_time = ", $#rec_time, "\n"; 

if (&time2msec($rec_time[0]) == &time2msec($margin_time)) {
    shift(@rec_time);
} elsif (&time2msec($rec_time[0]) > &time2msec($margin_time)) {
    unshift(@rec_time, $margin_time);
} else {
    shift(@rec_time);
    while (my $tmp = shift @rec_time) {
	if (&time2msec($tmp) > &time2msec($margin_time)) {
	    unless ($#rec_time % 2) {
		unshift(@rec_time, $tmp);
		unshift(@rec_time, $margin_time);
	    } else {
		unshift(@rec_time, $tmp);
	    }
	    last;
	}
    }
}

if ($#rec_time < 0) {
    push(@rec_time, $margin_time);
}

if (abs(&time2msec($end_time) - &time2msec($rec_time[-1])) < 3) {
    # 最後の検出時間が終端から3秒以内ならば要素を削除
    pop(@rec_time);
} else {
    # それ以外は記録時間を終端に追加
    push(@rec_time, $end_time);
}

unless ($#rec_time % 2) {
    # 配列要素数が奇数ならば終了
    $intermediate_flag = REMAIN_VDR;
    &handler("invalid vdr");
}

if (exists $opts{'test'}) {
    print "\nprogram interval\n--------------------\n";
    for (my $i=0; $i<$#rec_time/2; $i++) {
	print "  $i: ", $rec_time[$i*2], " to ", $rec_time[$i*2+1], "\n";
    }
    &handler();
}

# 動画本編の切り出し
my @concat_file = ();
my $pre_time = time;
for (my $i=0; $i<$#rec_time/2; $i++) {
    my $duration = sprintf("%.2f", &time2msec($rec_time[$i*2+1]) - &time2msec($rec_time[$i*2]));
    my $tmp_file = "$base_dir/${pre_time}_10${i}.ts";
    my $cut_cmd = sprintf("%s -y -i \"%s\" -ss %s -t %s -c copy -sn %s",
			  $ffmpeg_cmd, $input_ts, $rec_time[$i*2], $duration, $tmp_file);
    push(@concat_file, $tmp_file);
    print $cut_cmd, "\n";
    system($cut_cmd);
    if ($? != 0) {
	&handler("ffmpeg error: $!");
    }
}

my $concat_par = "concat:". join('|', @concat_file);
print "$concat_par\n";

# 全TSファイルの結合(ffmpeg concat)
my $concat_cmd = "${ffmpeg_cmd} -y -i \"${concat_par}\" -c copy \"${output_ts}\"";
print "$concat_cmd\n";
system($concat_cmd);
if ($? != 0) {
    print "ffmpeg error: $!";
}

&handler();

sub handler
{
    my($msg) = @_;
    my($exit_num) = 0;

    if ($intermediate_flag == ALL_DELETE || $intermediate_flag == REMAIN_VDR) {
	unlink("$base_dir/${base_name}.txt");
	unlink("$base_dir/${base_name}.log");
	unlink("$base_dir/${base_name}.ts.avs");
	unlink("$base_dir/${base_name}.ts.chapters.xml");
	if ($intermediate_flag == ALL_DELETE) {
	    unlink($vdr_file);
	    unlink("$base_dir/${base_name}.logo.txt");
	}
    }

    if ($intermediate_flag != REMAIN_ALL) {
	foreach (@concat_file) {
	    unlink($_);
	}
    }

    if (length($msg)) {
	print $msg, "\n";
	if (!exists $opts{'test'} && exists $opts{'force'}) {
	    copy($input_ts, $output_ts);
	} else {
	    $exit_num = 1;
	}
    }

    exit($exit_num);
}

　ダブルクリックするとスクリプト全体を選択した状態になるのでCtrl+Cでコピーして下さい。/usr/local/bin/ディレクトリなどに”cmcut.pl”として保存して下さい（UTF8の改行コードはLF）。

# vi /usr/local/bin/cmcut.pl
# chmod +x /usr/local/bin/cmcut.pl

　スクリプト内の18行目以降でデフォルト設定を記述する必要があります。環境に合わせて適宜変更して下さい。

Comment

龍山より:

2019年9月30日 17:50

このプログラムをepgrec-unaのどの部分にどのように入れたらいいのかどなたか教えていただけないでしょうか。よろしくお願いいたします。

返信

Message コメントをキャンセル

: LinuxでMPEG2 TSから字幕情報を抽出してFFmpegで動画に埋め込む方法

　LinuxでMPEG2 TSから字幕情報を抽出してFFmpe…

PREV: CentOS 7で32bit版Wineをビルドする方法
NEXT: スター・ウォーズエピソード7 フォースの覚醒を観に行きました