From: Derek =?utf-8?Q?Kuli=C5=84ski?= / takeda <d.kulinski gmail.com>
Subject: Re: Pomysl
On Tue, 16 Aug 2005 18:47:42 +0000 (UTC), Derek KuliĹski / takeda wrote:
>> MoĹźna. Na podobnej zasadzie nie mam na swoim serwerze news grup
>> alt.bin.* -- bez cancelowania.
> Tak, ale tu chodziĹo o posty z danego serwera a nie o filtrowanie caĹej
> grupy.
No i odpowiedzi oczywiĹcie nie dostaĹem.
Crossposting na pl.comp.lang.tcl (gdzie oryginalnie ten post siÄ pojawiĹ).
--
ăăŹăăŻ
takeda IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://eggwiki.takeda.tk - nowa ulepszona strona !!!
From: Piotr KUCHARSKI <chopin sgh.waw.pl>
Subject: Re: Pomysl
In pl.news.admin Derek Kuliński / takeda <d.kulinski gmail.com> wrote:
>>> Można. Na podobnej zasadzie nie mam na swoim serwerze news grup
>>> alt.bin.* -- bez cancelowania.
>> Tak, ale tu chodziło o posty z danego serwera a nie o filtrowanie całej
>> grupy.
> No i odpowiedzi oczywiście nie dostałem.
Dostałeś. Można skonfigurować serwer tak, żeby nie przyjmował artykułów
z danego serwera.
p.
--
Beware of he who would deny you access to information, for in his
heart he dreams himself your master. -- Commissioner Pravin Lal
From: Googie <no spam.org>
Subject: IncrTk
Czytałem manuala, ale jakoś nie mogę go zrozumieć.
O co chodzi z komendą [itk::usual]? Do czego ona w ogóle jest potrzebna?
--
Pozdrawiam!
Googie
From: Wojciech Kocjan <mojeimie kocjan.org>
Subject: Re: IncrTk
Googie napisał(a):
> Czytałem manuala, ale jakoś nie mogę go zrozumieć.
>
> O co chodzi z komendą [itk::usual]? Do czego ona w ogóle jest potrzebna?
Chodzi o dziedziczenie parametrów. Możesz np zrobić:
itk_component add xx {
entry xx
} {
keep -background -cursor -foreground -font
keep -insertbackground -insertborderwidth -insertwidth
keep -insertontime -insertofftime
keep -selectbackground -selectborderwidth -selectforeground
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
Wtedy te parametry będzie można zmieniać za pomocą configure megawidgetu.
Zamiast za każdym razem wpisywać te parametry jeśli robisz megawidget
oparty o entry (np popup) to lepiej żeby gdzieś było zdefiniowane takie
coś dla np entry. I jest - w itk.tcl.
--
WK
From: <olo nowar.pl>
Subject: problem z trace
Witam
Ponizszy skrypt, po kliknieciu na przycisku, generuje blad:
can't set "val": invalid command name "val"
ale czemu? Nie mam pojecia.
------------------------------------------------
#!/usr/bin/wish8.4
wm protocol . WM_DELETE_WINDOW {
destroy .
exit 1
}
set val 0
checkbutton .ere -text "regexp" -variable val -onvalue 1 -offvalue 0
pack .ere
trace variable val w {
puts stderr "in"
}
vwait eventLoop
destroy .
------------------------------------------------
Bede wdzieczny za wszelka pomoc.
olo
From: "Marcin Szelest SQ9DJJ" <szelest ble-ble-ble-ble-ble-ble-ble-ble.pl>
Subject: obsluga buttona z bardzo dlugim czasem realizacji powiazanego z nim polecenia
Witam,
Jecze, miotam sie i wlosy sobie szarpie a za cholere nie moge dojsc
dlaczego to nie dziala. Sprawa wyglada nastepujaco:
Nacisniecie przycisku button powoduje wywolanie procedury. Procedura ta
odpala zewnetrzy skryt i powinna na biezaco wywalac wyniki jego pracy.
Problem polega na tym, ze okiengo wynikowe odswieza sie dopiero wtedy gdy
procedura dojdzie do konca. Efekt jest taki, ze program przez 5 minut
wyglada tak jak by sie zawiesil a pozniej nagle wywala na ekran kilkaset
linii na raz.
Ludzie ratujcie bo sie zaraz przekrece!!
pozdrawiam
Marcin
From: Googie <no spam.org>
Subject: Re: obsluga buttona z bardzo dlugim czasem realizacji powiazanego
Marcin Szelest SQ9DJJ napisał(a):
> Ludzie ratujcie bo sie zaraz przekrece!!
Trzeba użyć strumieni, zamiast standardowego execa. Strumienie nie
blokują wykonywania/odświerzania bierzącego skryptu, ale wymagają nieco
więcej oprogramowywania. Oto przykład, jak zapisać:
puts [exec polecenie argument1 argument2]
używając strumieni:
proc handlePolecenie {id} {
set data [read $id]
puts $data
if {[eof $id]} {
# [catch] użyte tak dla pewności.
catch {close $id}
}
}
set id [open "|polecenie argument1 argument2" r]
fileevent $id readable "handlePolecenie $id"
--
Pozdrawiam!
Googie
From: <olo nowar.pl>
Subject: Re: obsluga buttona z bardzo dlugim czasem realizacji powiazanego z nim polecenia
Googie <no spam.org> wrote:
> Marcin Szelest SQ9DJJ napisał(a):
>> Ludzie ratujcie bo sie zaraz przekrece!!
>
> Trzeba użyć strumieni, zamiast standardowego execa. Strumienie nie
> blokują wykonywania/odświerzania bierzącego skryptu, ale wymagają nieco
> więcej oprogramowywania. Oto przykład, jak zapisać:
>
> puts [exec polecenie argument1 argument2]
>
> używając strumieni:
>
> proc handlePolecenie {id} {
> set data [read $id]
> puts $data
> if {[eof $id]} {
> # [catch] użyte tak dla pewności.
> catch {close $id}
> }
> }
> set id [open "|polecenie argument1 argument2" r]
> fileevent $id readable "handlePolecenie $id"
>
>
A ja musle, ze wywolanie 'update' w zupelnosci wystarczy.
Czyz nie?
Serdecznie pozdrawiam
olo
From: Googie <no spam.org>
Subject: Re: obsluga buttona z bardzo dlugim czasem realizacji powiazanego
olo nowar.pl napisał(a):
> A ja musle, ze wywolanie 'update' w zupelnosci wystarczy.
> Czyz nie?
Zależy co chcesz osiągnąć, ale wydaje mi się że w Twoim przypadku nie
wystarczy. [update] możesz wykonać dopiero po wykonaniu [exec]a, a ten
będzie się wykonywał dopóki nie skończy się wywołane w nim polecenie,
więc update sobie poczeka i zostanie wywołane wtedy, kiedy już tak na
prawdę nie będzie potrzebne. Tak czy inaczej na czas wykonywania [exec]a
Tk zdechnie.
--
Pozdrawiam!
Googie
From: Maciej Sobczak <no.spam no.spam.com>
Subject: Potok
Witam,
Czy ktoś z grupowiczów może pomóc z potokiem read-write?
Prosty test:
set pipe [open "|cat" "r+"]
puts $pipe "Hello"
set line [gets $pipe]
puts $line
close $pipe
Otwieram potok z poleceniem cat (któro wypisuje na stdout to, co
przeczytało na stdin). Piszę do potoku i spodziewam się przeczytać to samo.
Efekt - program nic nie wypisuje i w ogóle nie kontaktuje (Linux).
Krok drugi: potok, w którym można nie tylko pisać do stdin dziecka, ale
też odczytać *osobno* jego stdout i stderr.
--
Maciej Sobczak : http://www.msobczak.com/
Programming : http://www.msobczak.com/prog/
From: <olo nowar.pl>
Subject: Re: obsluga buttona z bardzo dlugim czasem realizacji powiazanego z nim polecenia
Googie <no spam.org> wrote:
> olo nowar.pl napisał(a):
>> A ja musle, ze wywolanie 'update' w zupelnosci wystarczy.
>> Czyz nie?
>
> Zależy co chcesz osiągnąć, ale wydaje mi się że w Twoim przypadku nie
> wystarczy. [update] możesz wykonać dopiero po wykonaniu [exec]a, a ten
> będzie się wykonywał dopóki nie skończy się wywołane w nim polecenie,
> więc update sobie poczeka i zostanie wywołane wtedy, kiedy już tak na
> prawdę nie będzie potrzebne. Tak czy inaczej na czas wykonywania [exec]a
> Tk zdechnie.
>
Pytajacy wypowiada sie dosyc nieprecyzyjnie:
> ... odpala zewnetrzy skryt...
<...>
> ... procedura dojdzie do konca...
w zwiazku z czym wydaje mi sie, ze jakiekolwiek
wyrokowanie, czy to czy tamto rozwiazanie jest
zle czy dobre, nie ma sensu. Tym bardziej, ze
nie wiemy nawet, czy rzeczywiscie jest tu mowa
o execu.
Serdecznie pozdrawiam
olo
From: Miszczu <Miszczu ble.ble>
Subject: parsowanie stron www
Probuje napisac pareser stron www, mam jednak maly klopot, czy istnieje
jakis prosty sposob zeby z danego kawalka strony pozbyc sie wszystkich
znacznikow html typu <b> <p> <a href...> itp itd
Fajnie by bylo gdybym mogl to zrobic np poprzez
string map { <*> "" } $zrodlo
Ale jakos nie dziala ;)
From: Derek =?utf-8?Q?Kuli=C5=84ski?= / takeda <d.kulinski gmail.com>
Subject: Re: parsowanie stron www
On Fri, 07 Oct 2005 15:11:23 +0000, Miszczu wrote:
> Probuje napisac pareser stron www, mam jednak maly klopot, czy istnieje
> jakis prosty sposob zeby z danego kawalka strony pozbyc sie wszystkich
> znacznikow html typu <b> <p> <a href...> itp itd
>
> Fajnie by bylo gdybym mogl to zrobic np poprzez
> string map { <*> "" } $zrodlo
> Ale jakos nie dziala ;)
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.
--
ăăŹăăŻ
takeda IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poĹwiÄcona IRC
From: Googie <googie nospam.org>
Subject: Re: parsowanie stron www
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.
>
[regsub] byłby najlepszy. W ogóle wyrażenia regularne są bardzo pomocne
i szybkie (chyba najszybsze z wszystkich innych metod, jakimi można je
ewentualnie zastąpić). Niestety jestem teraz zbyt zmęczony na
wymyślanie jak ta komenda w całości ma wyglądać - postaram się jutro.
Można też na piechotkę, w pętli, znak po znaku, ale nie poleca, bo nie
dość że 10 razy więcej roboty, kodu ( = 10 razy więcej możliwości
popełnienia błędu), to jeszcze na pewno wolniejsze (a zwłaszcza przy
większych stringach).
--
Pozdrawiam (Greetings)!
Googie
From: Miszczu <Miszczu ble.ble>
Subject: Re: parsowanie stron www
Googie wrote:
> 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.
>>
>
> [regsub] byłby najlepszy. W ogóle wyrażenia regularne są bardzo pomocne
> i szybkie (chyba najszybsze z wszystkich innych metod, jakimi można je
> ewentualnie zastąpić). Niestety jestem teraz zbyt zmęczony na
> wymyślanie jak ta komenda w całości ma wyglądać - postaram się jutro.
> Można też na piechotkę, w pętli, znak po znaku, ale nie poleca, bo nie
> dość że 10 razy więcej roboty, kodu ( = 10 razy więcej możliwości
> popełnienia błędu), to jeszcze na pewno wolniejsze (a zwłaszcza przy
> większych stringach).
>
Kombinowalem z regsub, ale jakos nie moglem sobie z nim poradzic, prosil bym
o niepisanie gotowych procedur, tylko o ewentualnie podpowiedzenie w ktorym
kierunku mam isc. Co do likwidowania znak po znaku, to tez nie bardzo sie
da, bo nie znam z gory wszystkich znacznikow :)
Z gory dziekuje i pozdrawiam
From: Derek =?utf-8?Q?Kuli=C5=84ski?= / takeda <d.kulinski gmail.com>
Subject: Re: parsowanie stron www
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).
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.
--
ăăŹăăŻ
takeda IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poĹwiÄcona IRC
From: "Wojciech Kocjan" <hceijcow.backward najcok.backward.org>
Subject: Re: parsowanie stron www
On Fri, 07 Oct 2005 17:11:23 +0200, Miszczu <Miszczu ble.ble> wrote:
> Probuje napisac pareser stron www, mam jednak maly klopot, czy istnieje
> jakis prosty sposob zeby z danego kawalka strony pozbyc sie wszystkich
> znacznikow html typu <b> <p> <a href...> itp itd
>
> Fajnie by bylo gdybym mogl to zrobic np poprzez
> string map { <*> "" } $zrodlo
> Ale jakos nie dziala ;)
regsub -all "<.*?>" $zrodlo "" zrodlo
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
From: "Wojciech Kocjan" <hceijcow.backward najcok.backward.org>
Subject: Re: parsowanie stron www
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/
From: Googie <no spam.org>
Subject: Re: parsowanie stron www
> regsub -all "<.*?>" $zrodlo "" zrodlo
regsub -all "<.+>" $zrodlo "" zrodlo
Czy to nie bedzie czasem to samo?
--
Pozdrawiam!
Googie
From: Derek =?utf-8?Q?Kuli=C5=84ski?= / takeda <d.kulinski gmail.com>
Subject: Re: parsowanie stron www
On Wed, 12 Oct 2005 09:06:15 +0200, Googie wrote:
>> regsub -all "<.*?>" $zrodlo "" zrodlo
>
> regsub -all "<.+>" $zrodlo "" zrodlo
>
> Czy to nie bedzie czasem to samo?
Googie musiaĹdodaÄ swoje 3gr, ok to ja teĹź dorzucÄ:
Nie lepiej bÄdzie:
regsub -all {<.+>} $zrodlo {} zrodlo
wĹaĹciwie to AFAIR manual Tcl tak zaleca (chodzi o klamry)...
--
ăăŹăăŻ
takeda IRCnet.EFnet, ICQ# 15827691, YahooIM: takeda64
http://ircwiki.takeda.tk - strona wiki poĹwiÄcona IRC
From: Googie <googie nospam.org>
Subject: Re: Poszukiwani =?ISO-8859-2?Q?ch=EAtni_do_wsp=F3=B3pracy?=
Googie wrote:
> Wymagana jest oczywiście znajomość type filter text
Przepraszam, to "type filter text" się niechcący wkleiło, przeoczyłem.
--
Pozdrawiam (Greetings)!
Googie
From: "slawek-89" <slawek-89 tlen.pl>
Subject: wiadomosci
czesc cepy
From: "slawek-89" <slawek-89 tlen.pl>
Subject: wiadomosci
to jest pozdrowienie czesc
From: "slawek-89" <slawek-89 tlen.pl>
Subject: an
czesc cepy
From: "slawek-89" <slawek-89 tlen.pl>
Subject: antr
dddddeetdhw tryuteyu yte i tee