#!/usr/bin/perl -w

# Umkodieren von irgendwas nach VDRs *.ts (MPEG-TS) in HD

$in  = shift || die "Bitte Quell-Datei angeben, z.B. video.mp4!\n";
$out = shift || die "Bitte Ziel-Datei angeben, z.B. 00001.ts!\n";

# Für HD bietet sich das an:
system("ffmpeg -re -i $in -qp 0 -vcodec libx264 -bufsize:v 10M -minrate:v 10M -maxrate:v 10M -ac 2 -x264opts bitrate=10000:vbv-maxrate=10000:vbv-bufsize=400:ratetol=400:bitrate=10000:vbv-init=800 -acodec mp2 -strict -2 -b:a 256k -mpegts_transport_stream_id 0x0001 -mpegts_service_id 0x0bba -mpegts_start_pid 0x0bba -muxrate 11M -s 1280x720 -flags cgop+ilme -sc_threshold 1000000000 -f mpegts $out");