diff options
author | Eric Wong <e@80x24.org> | 2023-07-03 00:43:05 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-07-03 02:06:52 +0000 |
commit | 02d3d1856fb9d9d41cf1711b9ad877b520a721e6 (patch) | |
tree | fac0a033e61b682c16f5204b0b3baea8af6e28b5 /script/dtas-2splitfx | |
parent | 56b5f6bfa937f1b8f274bf65aa9c71eaae7a7bfc (diff) | |
download | dtas-02d3d1856fb9d9d41cf1711b9ad877b520a721e6.tar.gz |
This generates a dtas-splitfx-compatible YAML snippet based on a sorted list of audio tracks: dtas-2splitfx 1.flac 2.flac ... >tracks.yml
Diffstat (limited to 'script/dtas-2splitfx')
-rwxr-xr-x | script/dtas-2splitfx | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/script/dtas-2splitfx b/script/dtas-2splitfx new file mode 100755 index 0000000..afa761d --- /dev/null +++ b/script/dtas-2splitfx @@ -0,0 +1,44 @@ +#!/usr/bin/perl -w +# Copyright (C) all contributors <dtas-all@nongnu.org> +# License: GPL-3.0+ <https://www.gnu.org/licenses/gpl-3.0.txt> +# parse soxi output and generates a dtas-splitfx-compatible YAML snippet +# usage: dtas-2splitfx 1.flac 2.flac ... >tracks.yml +use v5.12; +use POSIX qw(strftime); +open my $fh, '-|', 'soxi', @ARGV or die $!; +my $title = ''; +my $off = 0; +my $sec = 0; + +my $flush = sub { + my ($start) = @_; + my $frac = $start =~ s/\.([0-9]+)\z// ? $1 : 0; + $start = strftime('%H:%M:%S', gmtime($start)); + $start .= ".$frac" if $frac; + $start; +}; + +while (<$fh>) { + if (/^Duration\s*:\s*([0-9:\.]+)/) { + my $t = $1; + $sec = $t =~ s/\.([0-9]+)\z// ? "0.$1" : 0; + my @t = split(/:/, $t); # HH:MM:SS + my $mult = 1; + while (defined(my $part = pop @t)) { + $sec += $part * $mult; + $mult *= 60; + } + } elsif (s/^title=//i) { + chomp; + $title = $_; + $title =~ tr!"!'!; + } elsif (/^\s*\z/s && $sec) { + my $start = $flush->($off); + say qq(- t $start "), , $title, '"'; + $off += $sec; + $sec = 0; + $title = ''; + } +} +close $fh or die "soxi failed: \$?=$?"; +say qq(- stop ), $flush->($off); |