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)