rename_ogg

#!/usr/bin/env perl
use strict;
use warnings;

# Exit if no files provided
die "Usage: $0 FILES\n" unless @ARGV;

foreach my $filename (@ARGV) {
    # Skip if not an .ogg file
    next unless $filename =~ /\.ogg$/;

    # Store original filename
    my $original = $filename;

    # Perform the substitution
    # Convert "2024-10-30 07.06.53" to "20241030_070653"
    $filename =~ s/(\d{4})-(\d{2})-(\d{2})\s+(\d{2})\.(\d{2})\.(\d{2})/${1}${2}${3}_${4}${5}${6}/;

    # Only rename if the name actually changed
    if ($original ne $filename) {
        if (rename($original, $filename)) {
            print "Renamed: $original -> $filename\n";
        } else {
            warn "Failed to rename $original: $!\n";
        }
    }
}