blob: a66a75baada1a87669d1f0ab78305ade599c4972 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/usr/bin/env perl
use strict;
use warnings;
use Scalar::Util qw(looks_like_number);
use Term::ANSIColor;
sub get_size
{
my $size;
my $answer;
$size = 0;
$answer = 0;
print
"1) 0\n" .
"2) 240\n" .
"3) 360\n" .
"4) 480\n" .
"5) 720\n" .
"6) 1080\n" .
"\n" .
"> ";
$answer = <STDIN>;
if (!looks_like_number($answer) || $answer == 0 || $answer == 1 || $answer > 6) {
$size = 0;
}
elsif ($answer == 2) {
$size = 240;
}
elsif ($answer == 3) {
$size = 360;
}
elsif ($answer == 4) {
$size = 480;
}
elsif ($answer == 5) {
$size = 720;
}
elsif ($answer == 6) {
$size = 1080;
}
return $size;
}
sub main
{
my $size;
if ($#ARGV + 1 == 0) {
print STDERR "URL needed\n";
exit 1;
}
$size = get_size();
if ($size != 0) {
print 'mpv --ytdl-format=[height<=' . $size . '] ' . $ARGV[0] . "\n";
exec(
'mpv',
'--ytdl-format=[height<=' . $size . ']',
$ARGV[0]
);
}
else {
print 'mpv ' . $ARGV[0] . "\n";
exec(
'mpv',
$ARGV[0]
);
}
print "$size\n";
exit 0;
}
main();
__END__
|
