- or download this
#!/usr/bin/perl
use strict;
...
Chroma Mode: UV_CFL_PRED
CFL: 5
Chroma Angle: 0
- or download this
if ($line =~ /\s*APP>\sIntraAngleDelta\s:\s(\d+)\s(\d+)/i) {
print "Luma Angle : $1\n"
...
if ($line =~ /\s*APP>\sIntraAngleDelta\s:\s(\d+)\s(\d+)/i) {
print "Chroma Angle : $2\n"
}
- or download this
if ($line =~ /\s*APP>\sIntraAngleDelta\s:\s(\d+)\s(\d+)/i) {
$values{'Luma Angle'} = $1;
$values{'Chroma Angle'} = $2;
}