38 lines
802 B
Perl
Executable File
38 lines
802 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $i = -1;
|
|
my @args;
|
|
|
|
if (!$ARGV[0] or '-h' eq $ARGV[0]) {
|
|
print STDERR <<EOF;
|
|
Usage: $0 -h | chapters-file [ogg-file]
|
|
EOF
|
|
}
|
|
|
|
open (my $f, '<', $ARGV[0]) or die "Can't open file [$ARGV[0]]: $@";
|
|
while (<$f>) {
|
|
chomp;
|
|
my ($ts, $line) = split (/\s/, $_, 2);
|
|
$ts = "0$ts" if $ts =~ /^\d:/;
|
|
$ts = "$ts.000" if $ts =~ /:\d\d$/;
|
|
$ts = "${ts}00" if $ts =~ /:\d\d\.\d$/;
|
|
$ts = "${ts}0" if $ts =~ /:\d\d\.\d\d$/;
|
|
my $fl = '- ';
|
|
if ($ts =~ /^\d\d:\d\d:\d\d\.\d\d\d$/) {
|
|
$i++;
|
|
$fl = '';
|
|
push @args, sprintf ("CHAPTER%03d=%s", $i, $ts);
|
|
}
|
|
push @args, sprintf ("CHAPTER%03dNAME=%s%s", $i, $fl, $line) if '' eq $fl;
|
|
}
|
|
close ($f);
|
|
|
|
if ($ARGV[1]) {
|
|
exec 'vorbiscomment', '-w', $ARGV[1], map {('-t', $_)} @args;
|
|
}
|
|
else {
|
|
print "$_\n" for @args;
|
|
}
|