Article View: pl.comp.lang.tcl
Article #187Re: parsowanie stron www
From: Wojciech Kocjan
Date: Wed, 12 Oct 2005 06:43
Date: Wed, 12 Oct 2005 06:43
64 lines
3033 bytes
3033 bytes
On Sun, 09 Oct 2005 01:01:53 +0200, Derek Kuliński / takeda
<d.kulinski@gmail.com> wrote:
> On Fri, 7 Oct 2005 11:09:13 -0700, Derek Kuliński / takeda wrote:
>
>> Ja kiedyś potrzebowałem coś takiego zrobić (w skrypcie do wysyłania
>> smsów)
>> i pozbyłem się ich poprzez polecenie regsub. Ale nie wiem czy to
>> najlepsze
>> rozwiązanie w tej sytuacji.
>
> Ok w czeluściach swojego HD znalazłem ten skrypt. Jest b. stary dawno nie
> uaktualniany, więc wątpię czy nawet wysyła sms'y (te polskie brami
> lubiały
> b. często zmieniać swoje interfejsy).
Ja mam troche inaczej, bez parsowania, taki prosty moduł do SMSów. Do
botów się kiepsko nadaje, chociaż podobno już można http::geturl z
-command wywołać, nie jestem w temacie.
Szukam naiwn^H^H^H^H^H^H zainteresowanego przerobieniem bramki ery. Nowy
Orange (trzeba zdefiniować callback, który dostaje token w postaci
binarnej) i stary dobry Plus działa. Ery mi się nie chce już dorabiać, a
chętnie bym na nią wysyłał.
> http://www.takeda.tk/site/download/eggdrop/tkdSMS.tar.gz
> Pewnie rozwiązanie nie jest najlepsze ale wtedy nie było tej grupy więc
> rozwiązanie zrobiłem we własnym zakresie. Ciebie pewnie bedzie
> interesować
> procedura striphtml.
Akurat ns_striphtml z AOLservera wygląda podobnie:
::nstcl::ad_proc ::nstcl::ns_striphtml {-tags_only:boolean html} {
summary "Strip HTML tags"
description {
<p><i>ns_striphtml</i> removes all HTML tags from a given chunk of
<i>html</i>.</p>
}
optional_switch {
<dle>
<dt><option>-tags_only</option></dt>
<dd>
If specified HTML entities are not removed; if not
specified,
they are.
</dd>
</dle>
}
} {
regsub -all -- {<[^>]+>} $html "" html
if {!$tags_only_p} {
regsub -all -- {&[^ \t\n\r;]+;} $html "" html
}
return $html
}
Przy okazji macie opis o tags_only_p ;-)
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Technical Details
Message-ID:
<op.syiszawfvty0o5@awk009-01>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mailReferences:
<di5s49$1t7$1@nemesis.news.tpi.pl> <1xgxtqw05bu$.dlg@takeda.tk.invalid> <ypinwkkq5fiy$.dlg@takeda.tk.invalid>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail From: "Wojciech Kocjan" <hceijcow.backward@najcok.backward.org> Newsgroups: pl.comp.lang.tcl Subject: Re: parsowanie stron www Date: Wed, 12 Oct 2005 08:43:48 +0200 Organization: tp.internet - http://www.tpi.pl/ Lines: 64 Message-ID: <op.syiszawfvty0o5@awk009-01> References: <di5s49$1t7$1@nemesis.news.tpi.pl> <1xgxtqw05bu$.dlg@takeda.tk.invalid> <ypinwkkq5fiy$.dlg@takeda.tk.invalid> NNTP-Posting-Host: dq2.dataquest.pl Mime-Version: 1.0 X-Trace: atlantis.news.tpi.pl 1129099454 7331 195.116.54.236 (12 Oct 2005 06:44:14 GMT) X-Complaints-To: usenet@tpi.pl NNTP-Posting-Date: Wed, 12 Oct 2005 06:44:14 +0000 (UTC) User-Agent: Opera M2/8.50 (Win32, build 7700) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit