Как да си свалим видео от youtube с помощта на perl script

Днес си харесах една песничка и исках да си я сваля на телефона.

Обикновено използвам download video helper, но той сваля клипа с минимално качество, а освен това се оказа, че иска да си регистриран за да можеш да извадиш само звука от даден клип.

На първа страница на Google ми излезе едно много готино perl скриптче което искам да споделя с вас.

Съхранявате кода като youtube_get_video.pl на вашата линукс система и го изпълнявате с един аргумент - линк към клипа в youtube.

Пример:

• ./youtube_get_video.pl "http://www.youtube.com/watch?v=TwH2VU7Vqss"

Това ще ви свали видеото в най-добрият формат който е available - в моя случай е 1080p и размера е около ~135Мб.

Ако искате да извадите само аудиото ще ви трябва ffmpeg/avconv:

• ffmpeg -i poli_genova_na_inat_bulgaria_.webm -vn -ab 128 poli_genova_na_inat_bulgaria_ .mp3
• ffmpeg -i poli_genova_na_inat_bulgaria_.webm -vn -ab 128 poli_genova_na_inat_bulgaria_ .ogg
• ffmpeg -i poli_genova_na_inat_bulgaria_.webm -vn -ab 320 poli_genova_na_inat_bulgaria_ .mp3

Ето го кода:
#!/usr/bin/perl use strict; use warnings; # ## Calomel.org ,:, Download Youtube videos and music using wget ## Script Name : youtube_get_video.pl ## Version : 0.30 ## Valid from : December 2012 ## URL Page : https://calomel.org/youtube_wget.html ## OS Support : Linux, Mac OSX, OpenBSD, FreeBSD or any system with perl # `:` ## Two arguments ## $1 Youtube URL from the browser ## $2 prefix to the file name of the video (optional) # ## collect the URL from the command line argument my $url = $ARGV[0] or die "\nError: You need to specify a YouTube URL\n\n"; ## declare the user defined file name prefix my $prefix = defined($ARGV[1]) ? $ARGV[1] : ""; ## download the html code from the youtube page my $html = `wget -Ncq -e "convert-links=off" --keep-session-cookies --save-cookies /dev/null --no-check-certificate "$url" -O-` or die "\nThere was a problem downloading the HTML file.\n\n"; ## collect the title of the page to use as the file name my ($title) = $html =~ m/<title>(.+)<\/title>/si; $title =~ s/[^\w\d]+/_/g; $title =~ s/_youtube//ig; $title =~ s/^_//ig; $title = lc ($title); ## collect the URL of the video my ($download) = $html =~ /"url_encoded_fmt_stream_map"([\s\S]+?)\,/ig; ## clean up the url by translating unicode and removing unwanted strings $download =~ s/\:\ \"//; $download =~ s/%3A/:/g; $download =~ s/%2F/\//g; $download =~ s/%3F/\?/g; $download =~ s/%3D/\=/g; $download =~ s/%252C/%2C/g; $download =~ s/%26/\&/g; $download =~ s/sig=/signature=/g; $download =~ s/\\u0026/\&/g; $download =~ s/(type=[^&]+)//g; $download =~ s/(fallback_host=[^&]+)//g; $download =~ s/(quality=[^&]+)//g; ## collect the url and signature since the html page randomizes the order my ($signature) = $download =~ /(signature=[^&]+)/; my ($youtubeurl) = $download =~ /(http.+)/; $youtubeurl =~ s/&signature.+$//; ## combine the url and signature in order to use in wget $download = "$youtubeurl\&$signature"; ## a bit more cleanup $download =~ s/&+/&/g; $download =~ s/&itag=\d+&signature=/&signature=/g; ## print the file name of the video collected from the web page title for us to see on the cli print "\n Download: $prefix$title.webm\n\n"; ## Download the file using wget and background the wget process print "wget -Nc -e \"convert-links=off\" --load-cookies /dev/null --tries=50 --timeout=45 --no-check-certificate \"$download\" -O $prefix$title.webm\n"; system("wget -Nc -e \"convert-links=off\" --load-cookies /dev/null --tries=50 --timeout=45 --no-check-certificate \"$download\" -O $prefix$title.webm"); print "\n To extract the audio use the following command:\n"; print "\n avconv -i $prefix$title.webm -vn -ab 192000 $prefix$title.mp3\n" #### EOF #####

Използвана е информация от https://calomel.org/youtube_wget.html.

Shit! We're dealing with a sysadmin!

Shit, we're dealing with a sysadmin!

Source: Megalan

Industrial complex vs Nature

Chess play: people vs. enviroment; Author unknown

"A society is defined not only by what it creates, but by what it refuses to destroy."

John Sawhill

Dubstep Violin - Lindsey Stirling

Тази песен не се слуша - тя се изживява.

Защо "Господари на ефира" беше свалено от ефира на bTV

Докато гледах пресконференцията си мислех за дразнещите думи "всички гледни точки" употребявани в новините на bTV. Ясно е, че не представят всички гледни точки - най-малкото е невъзможно за времето с което разполагат.

Та, по темата - по думите на хората от екипа отговорен за предаването "Господари на ефира", от bTV са правили опити да се месят в разследванията и в репортажите които правят.

Конкретни примери за репортажи които са се опитали да потулят са:

• критики към "bTV Новините"
• липсващо оборудване в MБАЛНП "Св. Наум", което трябва да е било закупено със средства от инициативата "Българската Коледа"
• крадени сцени от "Двама мъже и половина" влизат директно в "Домашен арест"
• псевдо-доктор който опипва служителките на БНР
• реклама на предаване по bTV копирана едно към едно от реклама на "Dolce & Gabana"
• връчването на "Златен Скункс" на Елена Петрова заради отнемането на книжката й, причината за което е, че карала автомобила си под влиянието на алкохол

Освен опити за потулване на съдържание, от bTV са се опитали да насочат общественото внимание към Росен Плевнелиев, като са се опитали да ангажират предаването да направи блиц за него.

Цялата конференция може да гледате на официалният сайт на предаването или в youtube.com.

What are they thinking

What are they thinking?

Източник: Unknown

Tribute to YouPorn - buffering xD

Източник: ISeeAHappyFace.com

I hate reading other people's code

Източник: Abstruse Goose