Multiply the time values in a CUE file by a factor.

cuefactor.pl

#!/usr/bin/env -S perl -CSDA

# Multiply the time values in a CUE file by a factor.

use strict;
use warnings;
use utf8;
use autodie;

use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);

my $factor;

GetOptions(
  "factor|f=f" => \$factor,
) or die "Usage: $0 -f FACTOR < INPUT > OUTPUT\n";

if (!defined($factor)) {
  die "Usage: $0 -f FACTOR < INPUT > OUTPUT\n";
}

sub apply_factor {
  my ($m, $s, $f) = @_;
  my $n = (($m * 60 + $s) * 75 + $f) * $factor;
  $f = $n % 75;
  $n = int($n / 75);
  $s = $n % 60;
  $n = int($n / 60);
  $m = $n;
  return sprintf("%02d:%02d:%02d", $m, $s, $f);
}

for (<>) {
  s{
    (?<indent>\s*) INDEX
    \s+ (?<idx>\d\d)
    \s+ (?<m>\d\d):(?<s>\d\d):(?<f>\d\d)
  }{
    $+{indent} . "INDEX " . $+{idx} . " " . apply_factor($+{m}, $+{s}, $+{f})
  }egmsx;

  print $_;
}