trizen
90 linhas
2.5 KiB
Perl
90 linhas
2.5 KiB
Perl
package WWW::PipeViewer::RegularExpressions;
|
|
|
|
use utf8;
|
|
use 5.014;
|
|
use warnings;
|
|
|
|
require Exporter;
|
|
our @ISA = qw(Exporter);
|
|
|
|
=head1 NAME
|
|
|
|
WWW::PipeViewer::RegularExpressions - Various utils.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use WWW::PipeViewer::RegularExpressions;
|
|
use WWW::PipeViewer::RegularExpressions ($get_video_id_re);
|
|
|
|
=cut
|
|
|
|
my $opt_begin_chars = q{:;=}; # stdin option valid begin chars
|
|
|
|
# Options
|
|
our $range_num_re = qr{^([0-9]{1,3}+)(?>-|\.\.)([0-9]{1,3}+)?\z};
|
|
our $digit_or_equal_re = qr/(?(?=[1-9])|=)/;
|
|
our $non_digit_or_opt_re = qr{^(?!$range_num_re)(?>[0-9]{1,3}[^0-9]|[0-9]{4}|[^0-9$opt_begin_chars])};
|
|
|
|
# Generic name
|
|
my $generic_name_re = qr/[a-zA-Z0-9_.\-]{11,64}/;
|
|
our $valid_channel_id_re = qr{^(?:.*/channel/)?(?<channel_id>(?:\w+(?:[-.]++\w++)*|$generic_name_re))(?:/.*)?\z};
|
|
|
|
our $get_channel_videos_id_re = qr{^.*/channel/(?<channel_id>(?:\w+(?:[-.]++\w++)*|$generic_name_re))};
|
|
our $get_channel_playlists_id_re = qr{$get_channel_videos_id_re/playlists};
|
|
|
|
our $get_username_videos_re = qr{^.*/user/(?<username>[-.\w]+)};
|
|
our $get_username_playlists_re = qr{$get_username_videos_re/playlists};
|
|
|
|
# Video ID
|
|
my $video_id_re = qr/[0-9A-Za-z_\-]{11}/;
|
|
our $valid_video_id_re = qr{^$video_id_re\z};
|
|
our $get_video_id_re = qr{(?:%3F|\b)(?>v|embed|youtu(?:\\)?[.]be)(?>(?:\\)?[=/]|%3D)(?<video_id>$video_id_re)};
|
|
|
|
# Playlist ID
|
|
our $valid_playlist_id_re = qr{^$generic_name_re\z};
|
|
our $get_playlist_id_re = qr{(?:(?:(?>playlist\?list|view_play_list\?p|list)=)|\w#p/c/)(?<playlist_id>$generic_name_re)\b};
|
|
|
|
our $valid_opt_re = qr{^[$opt_begin_chars]([A-Za-z]++(?:-[A-Za-z]++)?(?>${digit_or_equal_re}.*)?)$};
|
|
|
|
our @EXPORT = qw(
|
|
$range_num_re
|
|
$digit_or_equal_re
|
|
$non_digit_or_opt_re
|
|
$valid_channel_id_re
|
|
$valid_video_id_re
|
|
$get_video_id_re
|
|
$valid_playlist_id_re
|
|
$get_playlist_id_re
|
|
$valid_opt_re
|
|
$get_channel_videos_id_re
|
|
$get_channel_playlists_id_re
|
|
$get_username_videos_re
|
|
$get_username_playlists_re
|
|
);
|
|
|
|
=head1 AUTHOR
|
|
|
|
Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >>
|
|
|
|
|
|
=head1 SUPPORT
|
|
|
|
You can find documentation for this module with the perldoc command.
|
|
|
|
perldoc WWW::PipeViewer::RegularExpressions
|
|
|
|
|
|
=head1 LICENSE AND COPYRIGHT
|
|
|
|
Copyright 2012-2013 Trizen.
|
|
|
|
This program is free software; you can redistribute it and/or modify it
|
|
under the terms of either: the GNU General Public License as published
|
|
by the Free Software Foundation; or the Artistic License.
|
|
|
|
See L<http://dev.perl.org/licenses/> for more information.
|
|
|
|
=cut
|
|
|
|
1; # End of WWW::PipeViewer::RegularExpressions
|