ytv: Initial version.
This commit is contained in:
parent
0ab02d60ec
commit
725961a24f
6
Makefile
6
Makefile
|
@ -1,9 +1,9 @@
|
|||
CMD = blink bsearch em encdir field forever G gitnext goodpasswd \
|
||||
histogram neno off pdfman puniq ramusage rand rclean rn rrm \
|
||||
histogram mtrr neno off pdfman puniq ramusage rand rclean rn rrm \
|
||||
sound-reload stdout T timestamp tracefile upsidedown \
|
||||
w4it-for-port-open wifi-reload wssh
|
||||
w4it-for-port-open wifi-reload wssh ytv
|
||||
|
||||
all: blink/blink.1 bsearch/bsearch.1 encdir/encdir.1 G/G.1 gitnext/gitnext.1 goodpasswd/goodpasswd.1 histogram/histogram.1 neno/neno.1 off/off.1 pdfman/pdfman.1 puniq/puniq.1 rand/rand.1 rn/rn.1 rrm/rrm.1 sound-reload/sound-reload.1 stdout/stdout.1 timestamp/timestamp.1 tracefile/tracefile.1 T/T.1 upsidedown/upsidedown.1 wifi-reload/wifi-reload.1 wssh/wssh.1
|
||||
all: blink/blink.1 bsearch/bsearch.1 encdir/encdir.1 G/G.1 gitnext/gitnext.1 goodpasswd/goodpasswd.1 histogram/histogram.1 neno/neno.1 off/off.1 pdfman/pdfman.1 puniq/puniq.1 rand/rand.1 rn/rn.1 rrm/rrm.1 sound-reload/sound-reload.1 stdout/stdout.1 timestamp/timestamp.1 tracefile/tracefile.1 T/T.1 upsidedown/upsidedown.1 wifi-reload/wifi-reload.1 wssh/wssh.1 ytv/ytv.1
|
||||
|
||||
%.1: %
|
||||
pod2man $< > $@
|
||||
|
|
105
ytv/ytv
Executable file
105
ytv/ytv
Executable file
|
@ -0,0 +1,105 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
ytv - Start downloading youtube video and play it immediately
|
||||
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
B<ytv> I<youtube-url>
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
B<ytv> starts B<youtube-dl> in the background. When the partial
|
||||
downloaded file exists, it is played by B<vlc>.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Copyright (C) 2017 Ole Tange,
|
||||
http://ole.tange.dk and Free Software Foundation, Inc.
|
||||
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
Copyright (C) 2012 Free Software Foundation, Inc.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 3 of the License, or
|
||||
at your option any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
|
||||
=head1 DEPENDENCIES
|
||||
|
||||
B<ytv> uses B<youtube-dl> and B<vlc>.
|
||||
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
B<ytv>, B<vlc>
|
||||
|
||||
|
||||
=cut
|
||||
|
||||
`mkdir -p ~/tmp/Videos`;
|
||||
chdir($ENV{'HOME'}."/tmp/Videos");
|
||||
for my $url (@ARGV) {
|
||||
if(not fork()) {
|
||||
# Download in the background
|
||||
system(qw(youtube-dl -f best),$url);
|
||||
exit;
|
||||
}
|
||||
# https://www.youtube.com/watch?v=ID
|
||||
if($url =~ m{https://www.youtube.com/watch\?v=([^&]+)}) {
|
||||
# Get the ID from the url
|
||||
push @id,$1;
|
||||
$id{$1}++;
|
||||
} else {
|
||||
print STDERR "$url not matched\n";
|
||||
}
|
||||
}
|
||||
|
||||
sub match_arr_regexp {
|
||||
# Match any of @regexp
|
||||
my ($regexp_arr,$content_arr) = @_;
|
||||
# my $m;
|
||||
# return map { $m = $_; grep { /$m/ } @$content_arr } @$regexp_arr;
|
||||
my $regexp = join'|',map { "($_)" } @$regexp_arr;
|
||||
return grep { /$regexp/ } @$content_arr;
|
||||
}
|
||||
|
||||
my (@ls,@files);
|
||||
|
||||
do {
|
||||
# Sleep until there are matching files
|
||||
sleep(1);
|
||||
@ls = <*>;
|
||||
@files = match_arr_regexp(\@id,\@ls);
|
||||
} until @files;
|
||||
|
||||
while(@files) {
|
||||
# Run VLC on the matching files
|
||||
system("vlc",@files);
|
||||
# Remove regexps from @id
|
||||
for my $id (@id) {
|
||||
if(grep { /$id/ } @ls) {
|
||||
$id{$id} = 0;
|
||||
}
|
||||
}
|
||||
@id = grep { $id{$_} } @id;
|
||||
# See if there are new matches
|
||||
@ls = <*>;
|
||||
@files = match_arr_regexp(\@id,\@ls);
|
||||
}
|
Loading…
Reference in a new issue