Лайк, если знаешь, что такое CKY24-Q8QRH.
Говнячить одноразовые скрипты на хачкиле довольно удобно получается, не хуже бидона какого-нибудь.
Захотел скачать видосы отсюда: https://www.scss.tcd.ie/Edsko.de.Vries/ct/catsters/linear.php
Prelude> page <- readFile "linear.php" (лол, HTTP-4000 не может в https)
Prelude> :m + Text.HTML.TagSoup
Prelude Text.HTML.TagSoup> let a = [x | x@(TagOpen "a" _) <- parseTags page]
Loading package bytestring-0.9.2.1 ... linking ... done.
Loading package array-0.4.0.0 ... linking ... done.
Loading package deepseq-1.3.0.0 ... linking ... done.
Loading package containers-0.4.2.1 ... linking ... done.
Loading package text-0.11.2.3 ... linking ... done.
Loading package tagsoup-0.12.8 ... linking ... done.
Prelude Text.HTML.TagSoup> let a' = filter ((TagOpen "a" xs) -> maybe False (isInfixOf "youtube") (lookup "href" xs)) a
<interactive>:5:52: Not in scope: `isInfixOf'
Prelude Text.HTML.TagSoup> :m + Data.List
Prelude Text.HTML.TagSoup Data.List> let a' = filter ((TagOpen "a" xs) -> maybe False (isInfixOf "youtube") (lookup "href" xs)) a
Prelude Text.HTML.TagSoup Data.List> let a'' = map ((TagOpen "a" xs) -> fromJust $ lookup "href" xs) a'
<interactive>:8:37: Not in scope: `fromJust'
Prelude Text.HTML.TagSoup Data.List> :m + Data.Maybe
Prelude Text.HTML.TagSoup Data.List Data.Maybe> let a'' = map ((TagOpen "a" xs) -> fromJust $ lookup "href" xs) a'
Prelude Text.HTML.TagSoup Data.List Data.Maybe> :m + System.Process
Prelude Text.HTML.TagSoup Data.List Data.Maybe System.Process> mapM_ (\u -> system $ "youtube-dl " ++ u) a''
http://jakobin1793.livejournal.com/66520.html
Надо посмотреть.
Вообще, ящетаю всем на бнваче стоило бы заняться прикладной шизофренией* и разработать
несколько личностей с разными взглядами. А то с одними и теми же людьми и аргументами
спорить довольно скучно, получается поединок с шахматной программой, разработанной
идиотом. Е-два-е-четыре, все дела. Зашел к o01eg — пропагандируй сталинизм, у кагамки
прыщепроблемы — расскажи о преимуществах современных технологий.
Скучный тред — включай куркуму, горен пишет про шлюх — время феминизма,
видишь арахниста — пропагандируй фашизм, попозиционеры — голосуй за путина.
Копирасты — напиши про платить за байтики, не забудь указать год, пираты — я покупаю
игорь в стиме. Про технарей и гуманитариев и быдло-небыдло, думаю, понятно.
Куркума это давно практикует, берите пример. Я вот тоже стараюсь по мере сил.
Прикладная шизофрения сделает вас всесторонне образованным человеком и улучшит
ваши дискуссионные способности, а также сделает ваши волосы мягкими и шелковистыми.
Покупайте в магазинах страны.
Горен, а чо ты не говорил, что в МК статьи пописываешь?
http://feministki.livejournal.com/2590160.html
http://karial.livejournal.com/310386.html?replyto=16561522
Привет вагинофобам.