—

              
package App::InstagramURLUtils;
use 5.010001;
use strict;
use warnings;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2025-03-27'; # DATE
our $DIST = 'App-InstagramURLUtils'; # DIST
our $VERSION = '0.001'; # VERSION
our %SPEC;
our %common_args = (
    urls => {
        'x.name.is_plural' => 1,
        'x.name.singular' => 'url',
        schema => ['array*', of=>'str*', min_len=>1],
        req => 1,
        pos => 0,
        greedy => 1,
        cmdline_src => 'stdin_or_args',
    },
);
$SPEC{parse_instagram_url} = {
    v => 1.1,
    summary => 'Parse Instagram URL(s)',
    args => {
        %common_args,
    },
    result_naked => 1,
};
sub parse_instagram_url {
    require URI::Parse::Instagram;
    my %args = @_;
    [map {URI::Parse::Instagram::parse_instagram_url($_)}
         @{ $args{urls} }];
}
$SPEC{instagram_url2username} = {
    v => 1.1,
    summary => 'Extract username from Instagram URL(s)',
    args => {
        %common_args,
    },
    result_naked => 1,
    examples => [
        {
            summary => 'Accept URLs from pipe',
            src => 'cat urls.txt | [[prog]]',
            src_plang => 'bash',
            test => 0,
            'x.doc.show_result' => 0,
        }
    ],
};
sub instagram_url2username {
    require URI::Parse::Instagram;
    my %args = @_;
    [map { my $res = URI::Parse::Instagram::parse_instagram_url($_); $res ? $res->{user} : undef }
         @{ $args{urls} }];
}
1;
# ABSTRACT: Utilities related to Instagram URLs
__END__
HideShow 122 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
App::InstagramURLUtils - Utilities related to Instagram URLs
=head1 VERSION
This document describes version 0.001 of App::InstagramURLUtils (from Perl distribution App-InstagramURLUtils), released on 2025-03-27.
=head1 DESCRIPTION
This distribution contains the following utilities:
=over
=item * L<instagram-url2username>
=item * L<parse-instagram-url>
=back
=head1 FUNCTIONS
=head2 instagram_url2username
Usage:
 instagram_url2username(%args) -> any
Extract username from Instagram URL(s).
This function is not exported.
Arguments ('*' denotes required arguments):
=over 4
=item * B<urls>* => I<array[str]>
(No description)
=back
Return value:  (any)
=head2 parse_instagram_url
Usage:
 parse_instagram_url(%args) -> any
Parse Instagram URL(s).
This function is not exported.
Arguments ('*' denotes required arguments):
=over 4
=item * B<urls>* => I<array[str]>
(No description)
=back
Return value:  (any)
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/App-InstagramURLUtils>.
=head1 SOURCE
Source repository is at L<https://github.com/perlancar/perl-App-InstagramURLUtils>.
=head1 AUTHOR
perlancar <perlancar@cpan.org>
=head1 CONTRIBUTING
To contribute, you can send patches by email/via RT, or send pull requests on
GitHub.
Most of the time, you don't need to build the distribution yourself. You can
simply modify the code, then test via:
 % prove -l
If you want to build the distribution (e.g. to try to install it locally on your
system), you can install L<Dist::Zilla>,
L<Dist::Zilla::PluginBundle::Author::PERLANCAR>,
L<Pod::Weaver::PluginBundle::Author::PERLANCAR>, and sometimes one or two other
Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps required beyond
that are considered a bug and can be reported to me.
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2025 by perlancar <perlancar@cpan.org>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=App-InstagramURLUtils>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
=cut