[bash] помогите доработать скрипт для wget

Вопрос в догонку. Есть список ссылок, уже сформированный grep'ом по маске grep http://arkhangelsk.data.cod.ru/...........

kiykontsert.part2.rar" - http://arkhangelsk.data.cod.ru/15981608752 - 14.01.2009 21:45

"01Bashlachev1.rar" - http://arkhangelsk.data.cod.ru/15988752176 - 14.01.2009 23:31

"02Bashlachev2.rar" - http://arkhangelsk.data.cod.ru/15990456112 - 14.01.2009 23:50

"03Bashlachev3.rar" - http://arkhangelsk.data.cod.ru/15992749872 - 15.01.2009 00:15

Как из этого списка выудить чистые ссылки http://arkhangelsk.data.cod.ru/15992749872

Не вполне понял задачу, но первое, что в глаза бросается: можно заменить

|grep files|sed -r s/h.+=\"// |sed -r s/\".+//|sed -r s/.+T//

на

sed -r '/files/ s/h.+=\"// ; /files/ s/\".+// ; /files/ s/.+T//'

Читабельнее (немного) и работать должно быстрее.

Плюс, по ссылке сказали, что сервис не доступен извне

> Как из этого списка выудить чистые ссылки http://arkhangelsk.data.cod.ru/15992749872

awk '{ print $3 }'

Это ресурс для адсл щиков северо-запада АВАНГАРД

Внешне недоступен

awk что то пока не осилил

а нет вру - осилил

awk '{ print $3 }' новый\ файл |grep http://arkhangelsk.data.cod.ru/...........

Теперь нарастим сервиса

Отказываемся от файла links

Требуется чтоб скрипт спрашивал ссылки. Ему скармливается скопированный с сайта текст с сылками, далее (awk '{ print $3 }' новый\ файл |grep http://arkhangelsk.data.cod.ru/...........) обрабатывает его до удобного вида.

Как реализовать запрос ввода ссылок в баше?

--> http://gazette.lrn.ru/rus/articles/abs-guide/

О! спасибо огромное.

А то в сети только какие то обрезки находил

Тоже пользуюсь датакодом, для подобных ссылок у меня перловский скрипт:

#!/usr/bin/perl
use strict;
use Socket;
use constant TCP => 6;
use constant HTTP => 80;

open(F, $ARGV[0]) or die "Can't open download list!";
while(<F>) {
        if(/http:\/\/\w+.data.cod.ru\/\d+/) {
                wget(getlink($&));
        }
}
close(F);
exit(0);

sub getlink
{
        my $target = shift;
        return 0 if $target eq '';
        my ($null, $null, $host, $query) = split(/\//, $target);
        my $saddr = sockaddr_in(HTTP, (gethostbyname($host))[4]);
        socket(SOCK, PF_INET, SOCK_STREAM, TCP) or return 0;
        connect(SOCK, $saddr) or return 0;
        send (SOCK, "GET /$query HTTP/1.1\nHost: $host\n\n", 0);
        my $link = '';
        my $filename = '';
        while($_ = <SOCK>) {
                if(/<li>файл: <b title=".*">(.*)<\/b>/) {
                        $filename = $1;
                }
                if(/http:\/\/files.\w+.data.cod.ru\/\?[\w%]+/) {
                        $link = $&;
                        last;
                }
        }
        close SOCK;
        return ($link, $filename);
}

sub wget
{
        my ($link, $filename) = @_;
        system "wget -cO '$filename' $link";
}

> Как реализовать запрос ввода ссылок в баше?

zenity --entry

afaik есть еще kdialog для kde.

Благодарю всех за помощь

В итоге получилось вот это:


#!/bin/sh
# Powered by biorereactor & LOR

mv /tmp/nwlinks /tmp/nwlinks.bak #данные предыдущего сеанса сохраняются в файле nwlinks.bak

echo Вы хотите запустить предыдущий сеанс? \(y/n\)
read ZAPROS
while [ "$ZAPROS" = y ]
do
	mv /tmp/nwlinks.bak /tmp/nwlinks
done

echo Введите ссылки в редакторе "nano"
nano /tmp/nwlinks #Если вы используете иной текстовый редактор в своей системе, то замените "nano" на свой текстовый редактор
for i in `awk '{ print $3 }' /tmp/nwlinks |grep http://arkhangelsk.data.cod.ru/...........`;
do
	curl `echo $i` -d submit=1 | grep files | sed -r '/files/ s/h.+="// ; /files/ s/".+// ; /files/ s/.+T//' | xargs wget -c;
done

Вот сдам сессию доделаю до взрослого вида, прикручу перезакачку, очередь закачек ну и что-нибудь еще. А пока прыгаю от счастья

man greasemonkey