Всем качающим *nix'оидам в помощь (Вы любите качать distfiles, rpm's etc ?)

Полезные советы и программы от пользователей нашего форума.

Модератор: Модераторы разделов

Аватара пользователя
TIM
Сообщения: 91
ОС: FreeBSD

Всем качающим *nix'оидам в помощь

Сообщение TIM »

Что обычно делает BSDшник, Gentooльмен etc., когда система не может скачать какой-либо файл ?

Правильно. Идёт на filesearch.ru (отечественный поисковик по ftp) и сам ищет и качает.
Итак, сегодня мне надоело искать что-либо в интернете самому и скачивать это ... :)

Держите скрипт, дающий запрос на filesearch.ru , парсящий ответ и скачивающий файл по приведённым ссылкам ...

(Просьба особо не придираться - делалось "в полёте мысли")

Usage: filesearch <filename> [regex]

filename - это файл, который мы ищем;
regex - опциональный параметр, определяющий фильтр для пути;

Environment:

FETCH - команда для скачивания (по-умолч. - wget -t 3 -c)

Примеры:

filesearch 0verkill-0.16.tgz distfiles
env FETCH='axel -a' filesearch MPlayer-1.0pre5.tar.bz2

Скрипт:

Код: Выделить всё

#!/usr/bin/perl

$file = shift;
$regex = shift || '.*';
$FETCH = $ENV{'FETCH'} || "wget -t 3 -c";

if($file) {
    if(@list = `curl 'http://www.filesearch.ru/cgi-bin/s?q=$file&w=a&t=f&e=on&m=1000&o=n&s=on' 2>/dev/null | awk '/<pre class=list>/,/<\\/pre>/'`) {
     foreach $line (@list) {
       $line =~ /(\d+)<\/b>\s+<a[^<]*>(.*)<\/a>$/m; $size = $1; $url = $2; $url =~ s/<[^<]*>//g;
       if($url && $url =~ /$regex/ && ((stat($file))[7] != $size)){
         print "Fetching file 'ftp://$url' ($size bytes) ...\n";
         `$FETCH ftp://$url `;  
       }
     }
   }
}
Спасибо сказали:

Аватара пользователя
Bolverk
Бывший модератор
Сообщения: 1571
ОС: Cygwin

Re: Всем качающим *nix'оидам в помощь

Сообщение Bolverk »

В "проекты".
Спасибо сказали:

Аватара пользователя
TIM
Сообщения: 91
ОС: FreeBSD

Re: Всем качающим *nix'оидам в помощь

Сообщение TIM »

угу ... точно !!
plz, перенесите кто может :)
Спасибо сказали:

Аватара пользователя
zenwolf
Бывший модератор
Сообщения: 3138
Статус: Страшный и злой
ОС: Slackware..Salix..x86_64

Re: Всем качающим *nix'оидам в помощь

Сообщение zenwolf »

:thumbsup: в консоли здорово помогает

wolf_black добавил в 28.03.2005 14:48

:thumbsup: в консоли здорово помогает
Quae videmus quo dependet vultus. (лат) - То, что мы видим, зависит от того, куда мы смотрим.
Спасибо сказали:

Аватара пользователя
Bolverk
Бывший модератор
Сообщения: 1571
ОС: Cygwin

Re: Всем качающим *nix'оидам в помощь

Сообщение Bolverk »

Эээ, немного оффтопика, если кто не в курсе:
Package: surfraw
Description: Shell Users' Revolutionary Front Rage Against the Web
Surfraw provides a fast unix command line interface to a variety
of popular WWW search engines and other artifacts of power.
Forsake GUI idolatry! Aposate return!
Спасибо сказали: