diff options
| -rwxr-xr-x | vcrop | 54 |
1 files changed, 54 insertions, 0 deletions
@@ -0,0 +1,54 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use File::Basename qw<fileparse>; +use File::Temp qw<tempdir>; + +sub usage { + die "Usage: $0 <file|url> crop1 [, crop2 ...]\n"; +} + +sub crop { + my ($file, $crop) = @_; + my ($from, $x, $y, $plus, $to) = $crop =~ /^(\d+(:\d{1,2}){0,2})(-(\+)?(\d+(:\d{1,2}){0,2}))?$/; + unless ($from) { + print "Error: invalid crop '$crop' (ignoring)\n"; + return; + } + + my ($file_noext, $file_dir, $file_ext) = fileparse($file, qr/\.[^.]*/); + my $to_suffix = defined $to ? "_$to" : ""; + my $cropfile = "${file_noext}_${from}${to_suffix}$file_ext"; + if (defined $to && defined $plus) { + `ffmpeg -loglevel error -i "$file" -ss "$from" -t "${to}s" -c:v copy -c:a copy "$cropfile"` + } elsif (defined $to) { + `ffmpeg -loglevel error -i "$file" -ss "$from" -to "$to" -c:v copy -c:a copy "$cropfile"` + } else { + `ffmpeg -loglevel error -i "$file" -ss "$from" -t 15s -c:v copy -c:a copy "$cropfile"` + } + print "Cropped to '$cropfile'\n"; +} + +@ARGV > 1 or usage; +my $src = shift; +my @crops = @ARGV; + +# Compute $file (either from arg or downloading it beforehand) +my $file; +if ($src =~ /^http/) { + print "Downloading '$src'...\n"; + my $tmpdir = tempdir(CLEANUP => 1); + $file = `yt-dlp -P "$tmpdir" -q "$src" --exec 'echo "%(filepath)s"'` or die $!; + chomp $file; + print "Saved to '$file'\n"; +} else { + $file = $src; +} +die "ERROR: File '$file' does not exist.\n" unless -f $file; + +# Make crops +foreach my $crop (@crops) { + crop($file, $crop); +} |