1. Список говнокодов пользователя Radjah

    Всего: 5

  2. bash / Говнокод #16009

    −125

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    # Получаем список файлов и приводим его в нужный для закачки вид
curl http://thedoujin.com/index.php/categories/$colid|pcregrep -o -e 'data-original=\"[^\"]+'|sed \
        -e 's/data-original="//g' -e 's/thumbnails/images/g' -e 's/thumbnail_//g' > get.thedoujin.txt
# Переименование
# Получаем список файлов из первого списка
basename -a `cat get.thedoujin.txt` > filenames.txt
# Список расширений
cat filenames.txt |cut -d . -f 2 > fileexts.txt
# Номера страниц
seq -w `wc -l < filenames.txt` > nums.txt
# Новые имена файлов
paste -d . nums.txt fileexts.txt > gal2.txt
paste -d " " filenames.txt gal2.txt > gal.txt
# Переименование
cat gal.txt |xargs -t -l1 mv

    Что можно сделать с 5-15, чтобы меньше телодвижений производилось?

    Radjah, 18 Мая 2014

    Комментарии (46)

  3. bash / Говнокод #3453

    −143

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    #! /bin/sh

# качаем страницу и ищем ссылку на закачку
dllink=`curl -# $1|pcregrep -o 'http.+file.qip.ru/get[^"]+'`

# качаем вторую страницу и ищем линк на файл и очищаем имя файла от мусора

dlhtml=`curl -# "$dllink"`
dlfilelink=`echo $dlhtml|pcregrep -o "http\:\/\/dc\d{1,10}.file.qip.ru\/download[^']+"`
dlfilename1=`echo $dlhtml|pcregrep -o "http\:\/\/dc\d{1,10}.file.qip.ru\/download[^?]+"`
dlfilename=`basename $dlfilename1`

wget "$dlfilelink" -O "$dlfilename"

    Качалка файлов с file.qip.ru

    Radjah, 11 Июня 2010

    Комментарии (0)

  4. bash / Говнокод #3351

    −140

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    #! /bin/sh

htmlvar=`curl -# $1`
serv=`echo $htmlvar| pcregrep -o -e "srv\'\:[^,]+"|pcregrep -o "http[^']+"`
filevar=`echo $htmlvar| pcregrep -o "'file':[^,]+"|pcregrep -o "\d{1,10}[^']+"`
urlvar=$serv'flv2/'$filevar
echo $urlvar

    Тупой скрипт для выдерания ссылок на ролки со страницы xhamster.com

    Radjah, 30 Мая 2010

    Комментарии (6)

  5. bash / Говнокод #3000

    −136

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    #! /bin/bash

# настройки
# id художника (athid) берется из URL вида http://www.pixiv.net/member_illust.php?id=18530, где 18530 и есть искомый параметр.
pixid=LOGIN
pixpass=PASSWORD
picnum=$2
let "pagenum=picnum/20+1"
athid=$1

# логинимся (куки в pixiv.txt)
AUTH=`curl -s -c pixiv.txt -F"mode=login" -F"pass=${pixpass}" -F"pixiv_id=${pixid}" -F"skip=1" http://www.pixiv.net/index.php`

# качаем все страницы с картинками и парсим их на ходу
for ((i=1;i<=$pagenum;i++))
do
wget --load-cookies=pixiv.txt "http://www.pixiv.net/member_illust.php?id=$athid&p=$i" -O - --referer="http://www.pixiv.net/"|pcregrep -o 'http\:\/\/img\d{1,3}\.pixiv\.net\/img\/[^\"]+'|sed 's/_s//' >> get.pixiv.txt
done;

# качаем все картинки, которые нашли

wget -nc -i get.pixiv.txt --referer="http://www.pixiv.net/"

cat get.pixiv.txt | sed 's/http\:\/\/img[^\/]\+\/img\/[^\/]\+\///' > list1
ls *.jpg *.png *.gif > list2
cat list1 list2|sort|uniq -u|pcregrep -o '[^\.]+' > list3
for i in `cat list3`
do
wget "http://www.pixiv.net/member_illust.php?mode=manga&illust_id=$i&type=scroll"  --load-cookies=pixiv.txt  --referer="http://www.pixiv.net/" -O -|pcregrep -o 'http\:\/\/img\d{1,3}\.pixiv\.net\/img\/[^\"]+'>> get.pixiv.albums.txt
done;

wget -nc -i  get.pixiv.albums.txt --referer="http://www.pixiv.net/"

# удаляем палево

#rm -f pixiv.txt get.pixiv*.txt list*

    Качалка картинок с pixiv.net с дебильным алгоритмом отсеивания альбомов от картинок.

    Radjah, 13 Апреля 2010

    Комментарии (16)

  6. bash / Говнокод #2827

    −131

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    #! /bin/bash

# файл имоты или коначана
srcfile=$1
# файл санкаки или данборы
dubfile=$2
echo Lines:
echo -n Before:
wc -l $dubfile
a=`pcregrep -o -e '[a-f0-9]{32}' $srcfile|head -n 1`
for i in `pcregrep -o -e '[a-f0-9]{32}' $srcfile`
do
a=$a\|$i
done;
cat $dubfile|grep -v -E -e $a > out.$dubfile
echo -n After:
wc -l out.$dubfile

    Поиск дублей

    Radjah, 19 Марта 2010

    Комментарии (6)