Initial commit Changes to be committed: new file: .gitignore - Standard for vim files new file: youtube-feed-to-rss.pl - Perl script initial working draftmaster
commit
015ecdc293
2 changed files with 85 additions and 0 deletions
@ -0,0 +1 @@ |
||||
.*.sw* |
@ -0,0 +1,84 @@ |
||||
#!/usr/bin/perl |
||||
# |
||||
# |
||||
# Copyright (c)2020 seasharp@libre.audio |
||||
# |
||||
# Redistribution and use in source and binary forms, with or without |
||||
# modification, are permitted provided that the following conditions are met: |
||||
# |
||||
# 1. Redistributions of source code must retain the above copyright notice, |
||||
# this list of conditions and the following disclaimer. |
||||
# |
||||
# 2. Redistributions in binary form must reproduce the above copyright notice, |
||||
# this list of conditions and the following disclaimer in the documentation |
||||
# and/or other materials provided with the distribution. |
||||
# |
||||
# Subject to the terms and conditions of this license, each copyright holder |
||||
# and contributor hereby grants to those receiving rights under this license a |
||||
# perpetual, worldwide, non-exclusive, no-charge, royalty-free, irrevocable |
||||
# (except for failure to satisfy the conditions of this license) patent license |
||||
# to make, have made, use, offer to sell, sell, import, and otherwise transfer |
||||
# this software, where such license applies only to those patent claims, |
||||
# already acquired or hereafter acquired, licensable by such copyright holder |
||||
# or contributor that are necessarily infringed by: |
||||
# |
||||
# (a) their Contribution(s) (the licensed copyrights of copyright holders and |
||||
# non-copyrightable additions of contributors, in source or binary form) alone; |
||||
# or |
||||
# |
||||
# (b) combination of their Contribution(s) with the work of authorship to which |
||||
# such Contribution(s) was added by such copyright holder or contributor, if, |
||||
# at the time the Contribution is added, such addition causes such combination |
||||
# to be necessarily infringed. The patent license shall not apply to any other |
||||
# combinations which include the Contribution. |
||||
# |
||||
# Except as expressly stated above, no rights or licenses from any copyright |
||||
# holder or contributor is granted under this license, whether expressly, by |
||||
# implication, estoppel or otherwise. |
||||
# |
||||
# DISCLAIMER |
||||
# |
||||
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" |
||||
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
||||
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
||||
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE |
||||
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
||||
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
||||
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS |
||||
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN |
||||
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) |
||||
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE |
||||
# POSSIBILITY OF SUCH DAMAGE. |
||||
|
||||
use strict; |
||||
use warnings; |
||||
|
||||
my $YouTubeRSSFormat = "/feeds/videos.xml?"; |
||||
my $ChannelFormat = "${YouTubeRSSFormat}channel_id="; |
||||
my $UserFormat = "${YouTubeRSSFormat}user="; |
||||
my $PlaylistFormat = "${YouTubeRSSFormat}playlist_id="; |
||||
|
||||
print "Please enter the YouTube Channel URL: ","\n"; |
||||
|
||||
while (<>) { |
||||
my $YouTubeURL = $_ if $_ =~ m[http[s]?:\/\/.*\.youtube\.com\/(channel|user|[a-zA-Z=?]*[?&]list=PL).*$]; |
||||
my $OutputURL; |
||||
if ($YouTubeURL =~ /.*\/channel\/.*$/) { |
||||
print "This is a Channel\n"; |
||||
$OutputURL = $YouTubeURL =~ s/\/channel\//$ChannelFormat/r |
||||
} elsif ($YouTubeURL =~ /.*\/user\/.*$/) { |
||||
print "This is a User\n"; |
||||
$OutputURL = $YouTubeURL =~ s/\/user\//$UserFormat/r |
||||
} elsif ($YouTubeURL =~ /.*\/[a-zA-Z?=]*[?&]list=PL.*$/) { |
||||
print "This is a Playlist\n"; |
||||
$OutputURL = $YouTubeURL =~ s/\/[a-zA-Z=?]*[?&]list=/$PlaylistFormat/r |
||||
} else { print "No idea what this is.\n"; } |
||||
print $OutputURL; |
||||
} |
||||
#if ($YouTubeURL =~ m[http[s]?:\/\/.*\.youtube\.com\/(channel|user|playlist&list=pl).*$]) |
||||
## Channel uuid match expression |
||||
|
||||
# $YouTubeURL =~ s/channel/something/; |
||||
# print "Match: ",$YouTubeURL,"\n"; |
||||
#} else { print "No match\n";} |
||||
|
Loading…
Reference in new issue