Начало Вход/Регистрация Помощ Tazi stranica s latinski bukwi
Области
 Новини
 Актуална тема
 Linux портали
 Какво е Линукс?
 Въпроси-отговори
 Форуми
   •Трудова борса
   •Конкурс
 Статии
 Дистрибуции
   •Поръчка на CD
 Made In BG
 Файлове
 Връзки
 Галерия
 Конференции
Настройки
 Външен вид
 Предложения
 Направи си сам
И още ...
 За нас
 Линукс за българи ЕООД
 Линк към нас
 Предложения

Подкрепяно от:
TelePoint - Място за хора със свободни идеи

SiteGround

initLab

Adsys Group

SAP Bulgaria

Въпроси отговори
Въпрос: Download + crontab
[Търси: ]

ВНИМАНИЕ: Използвайте форумите на сайта за дa зададете вашите въпроси.

Към началото |Добави въпрос |Отговори
 
Въпрос
От: begin4o Дата: 02/09/2004
Imam edin adres, naprimer:
http://www.trendmicro.com/download/product.asp?productid=1&show=ptn
Tova e naprimer na PC-Cillina teku6tite virusni definicii.
Na tozi link mi triabva edin arhiv ..lpt757.zip
 Gornia link otvaria stranica na koiato ima zip fail, koito
mi e neobhodim, v slu4aia lpt757.zip. A linka e:
http://www.trendmicro.com/ftp/products/pattern/lpt757.zip
Dnes e lpt757.zip, utre e lpt767.zip i t.n.
 Kak da izteglia sas script ili da razbera teku6tia No na
 arhiva, koito da go zadam vav skripta. Ili po drug niakakav
na4in da go napravia. Ne znam dali sam dostata4no iasen.


Отговор #1
От: Росен Антонов Дата: 02/09/2004
   Може би не съм на нивото да давам съвет по твоя въпрос, но
ще се опитам все пак и ще приема критиката достойно.
   Пак повтарям - това е само съвет (идея), а не крайно
 решение: със скрипт (на Perl, поне за него знам, че го може
 това) теглиш страницата от първия линк, който си дал. След
това я отваряш и извличаш реда, който съдържа следното: 

 http://www.trendmicro.com/ftp/products/pattern/lpt759.zip">lpt759.zip

 За целта трябва да използваш великите шаблони в Perl, който
 са нещо страхотно. След като един път си се докопал до този
ред го подаваш на wget и си сваляш файла.

 Едно нещо лично на мен ми се губи - името на библиотеката на
 Perl, която работи с http. Ако има някой, който да я каже ще
съм много благодарен.



Отговор #2
От: Сава (sava (a) blueboard< dot >biz) Дата: 02/10/2004
 Net::LWP и Net::HTTP - в стандартната дистрибуция на Perl
са.


Отговор #3
От: mironcho (mironcho __@__ linux-bg __точка__ org) Дата: 02/11/2004
 Можеш да използваш външни програми за по мързеливо. Ето
какво скалъпих набързо:

#!/usr/bin/perl
#
#
use strict;
use warnings;

my $file = undef;
my @source = `lynx --source
http://www.trendmicro.com/download/product.asp?productid=1&show=ptn`;

foreach (@source) {
        if (/(http:\/\/www\.trendmicro\.com\/ftp\/products\/pattern\/lpt\d{3}\.zip)/) {
                $file = $1;
        }
}

system "wget $file"  if (defined $file);


Отговор #4
От: begin4o Дата: 02/13/2004
Да пробвах го но нещо не съм разбрал ли не знам
Ето резултата от скриптал

root@myhost:~/my_script# ./antivir
 Bareword found where operator expected at ./antivir line 11,
near "//www"
        (Missing operator before www?)
 Operator or semicolon missing before &show at ./antivir line
11.
 Ambiguous use of & resolved as operator & at ./antivir line
11.
 Backticks found where operator expected at ./antivir line
11, at end of line
        (Missing semicolon on previous line?)
syntax error at ./antivir line 11, near "//www"
 Can't find string terminator "`" anywhere before EOF at
./antivir line 11.
root@myhost:~/my_script#


<< Mysql malko pomosht (0 ) | LPI (0 ) >>

 
© 2011-... Асоциация "Линукс за българи"
© 2007-2010 Линукс за българи ЕООД
© 1999-2006 Slavej Karadjov
Ако искате да препечатате или цитирате информация от този сайт прочетете първо това
Външния вид е направен от MOMCHE
Code Version: 1.0.8 H (Revision: 23-09-2011)
 
Изпълнението отне: 0 wallclock secs ( 0.07 usr + 0.00 sys = 0.07 CPU)