[Comm] <JT> strage script needed

[Comm] <JT> strage script needed

[Grigory Tuboltsev]

День добрый,
Извините за предыдущее недописанное письмо.

Подскажите пожалуйста, как решить вот такую странную задачу:
(вероятно, в линуксе).

Имеется список в фомате хтмл, вида

ссылка  тексттексттексттекст
ссылка  тексттексттексттекст
ссылка  тексттексттексттекст
ссылка  тексттексттексттекст
ссылка  тексттексттексттекст

необходима программа, которая обработает каждую запись списка
следующим образом: пройдя по ссылке найдёт на страничке определённый
текст по шаблону (наверное, регулярное выражение) и вставит этот текст
в конец строки.

Чем бы это сделать ?
Заранее большое спасибо,

С уважением,
Григорий Тубольцев

Re: [Comm] <JT> strage script needed

[Aleksander N. Gorohovski]

On Wed, 20 Oct 2004 12:04:52 +0200, Grigory Tuboltsev <gtubolcev@mail.ru>  
wrote:

> День добрый,
> Извините за предыдущее недописанное письмо.
>
> Подскажите пожалуйста, как решить вот такую странную задачу:
> (вероятно, в линуксе).
>
> Имеется список в фомате хтмл, вида
>
> ссылка  тексттексттексттекст
> ссылка  тексттексттексттекст
> ссылка  тексттексттексттекст
> ссылка  тексттексттексттекст
> ссылка  тексттексттексттекст
>
> необходима программа, которая обработает каждую запись списка
> следующим образом: пройдя по ссылке найдёт на страничке определённый
> текст по шаблону (наверное, регулярное выражение) и вставит этот текст
> в конец строки.
>
> Чем бы это сделать ?

Думаю лучше чем Perl, ничто ни справится!

[Comm] гм... (was: strage script needed)

[Michael Shigorin]

On Wed, Oct 20, 2004 at 01:09:51PM +0400, Aleksander N. Gorohovski wrote:
> >Имеется список в фомате хтмл, вида
> >ссылка  тексттексттексттекст
> >ссылка  тексттексттексттекст
> >ссылка  тексттексттексттекст
> >ссылка  тексттексттексттекст
> >ссылка  тексттексттексттекст
> >необходима программа, которая обработает каждую запись списка
> >следующим образом: пройдя по ссылке найдёт на страничке определённый
> >текст по шаблону (наверное, регулярное выражение) и вставит этот текст
> >в конец строки.
> >Чем бы это сделать ?
> Думаю лучше чем Perl, ничто ни справится!

Ну почему.  Ruby, например. :)

По мотивам 
/usr/share/doc/ruby-doc-extra-0.1/ProgrammingRuby-0.3a/html/tut_io.html:

---
#!/usr/bin/ruby
require 'net/http'

while line = gets
	pattern = Regex.new('http://[a-zA-Z0-9_.]+(:\d+)?(/\S+*)\s+(.*)$')
	host, port, path, rest = line.scan(pattern)
	next unless host
	port = 80 unless port
	path = "/" unless path
	begin
		conn = Net::HTTP.new(host, port)
		resp, data = conn.get(path, nil)
		if resp.message == "OK"
			data.scan(/<img src="(.*?)"/) { |x| puts line + x }
		end
	rescue
		next
	end
end
---

Где-то так (не проверял :) -- должно работать фильтром, в данном
случае выводящим исходную строчку с добавлением пути к картинке
для каждой строчки stdin, соответствующей pattern, для которой
удалось вытащить страничку и найти в ней эти пути.

Но это так, просто пример похожий вспомнился -- писать вообще-то
всегда полезней самому, уж коль странного захотелось :-)

Просто такие вещи на shell пишутся (и особенно модифицируются) уж
больно болезненно, эффективнее получается сразу вложить время в
хороший язык.
  
-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

Re: [Comm] <JT> strage script needed

[Nick S. Grechukh]

[-- Attachment #1: Type: text/plain, Size: 949 bytes --]

В сообщении от Среда 20 Октябрь 2004 13:04 Grigory Tuboltsev написал(a):
> День добрый,
> Извините за предыдущее недописанное письмо.
>
> Подскажите пожалуйста, как решить вот такую странную задачу:
> (вероятно, в линуксе).
>
> Имеется список в фомате хтмл, вида
>
> ссылка  тексттексттексттекст
> ссылка  тексттексттексттекст
> ссылка  тексттексттексттекст
> ссылка  тексттексттексттекст
> ссылка  тексттексттексттекст
>
> необходима программа, которая обработает каждую запись списка
> следующим образом: пройдя по ссылке найдёт на страничке определённый
> текст по шаблону (наверное, регулярное выражение) и вставит этот текст
> в конец строки.
cat | while read fff; do .. .... ...; echo $fff `wget .... | grep ....`; done


-- 
Regards, Nick S. Grechukh
NSG1-UANIC
network administrator at many places :-)

=== ALT Linux fortune: ========================
Чтобы "заткнуть дыру", я "пошел на сделку с совестью" и отключил тесты.
  -- at in devel@

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]