File Coverage

blib/lib/Filename/Media/Info.pm

Criterion	Covered	Total	%
statement	14	32	43.7
branch	0	10	0.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	20	49	40.8

package Filename::Media::Info;

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);
use Time::Local qw(timelocal_posix);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2025-08-23'; # DATE
our $DIST = 'Filename-Media-Info'; # DIST
our $VERSION = '0.002'; # VERSION

our @EXPORT_OK = qw(parse_media_filename);

our %SPEC;

$SPEC{parse_media_filename} = {
    v => 1.1,
    summary => 'Extract various information from media filenames',
    description => <<'MARKDOWN',


MARKDOWN
    args => {
        filename => {
            schema => 'filename*',
            req => 1,
            pos => 0,
        },
    },
    result_naked => 1,
    result => {
        schema => ['hash*'],
    },
    examples => [
        {
            args => {filename => 'IMG-20140828-WA0002.jpg'},
            test => 0,
        },
        {
            args => {filename => 'IMG_20141103_122548680_HDR.jpg'},
            test => 0,
        },
    ],
};
sub parse_media_filename {
    my %args = @_;

    my $filename = $args{filename};
    my $res = {filename => $filename};

    if ($filename =~ /^Screenshot/) {
        $res->{type} = 'image';
        $res->{is_screenshot} = 1;
    } elsif ($filename =~ /^(IMG)[_-]/) {
        $res->{type} = 'image';
    } elsif ($filename =~ /^(VID)[_-]/) {
        $res->{type} = 'video';
    }

    if ($filename =~ /^(?:IMG|VID)_(\d{4})(\d{2})(\d{2})_(\d{2})(\d{2})(\d{2})(\d{3})?/) {
        $res->{ymd} = "$1$2$3";
        $res->{hms} = "$4$5$6";
        $res->{millisecond} = $7;
        $res->{epoch} = timelocal_posix($6, $5, $4, $3, $2-1, $1-1900);
    } elsif ($filename =~ /^(?:IMG|VID)-(\d{4})(\d{2})(\d{2})-WA/) {
        $res->{ymd} = "$1$2$3";
        $res->{hms} = "000000";
        $res->{epoch} = timelocal_posix(0, 0, 0, $3, $2-1, $1-1900);
        $res->{is_whatsapp} = 1;
    }

    $res;
}

1;
# ABSTRACT: Extract various information from media filenames

__END__