Thread View: pl.comp.lang.perl
3 messages
3 total messages
Started by robert.giedrowiczWYTNIJTO
Fri, 14 May 2010 10:54
DNS - czasy odpowiedzi
Author: robert.giedrowiczWYTNIJTO
Date: Fri, 14 May 2010 10:54
Date: Fri, 14 May 2010 10:54
45 lines
2021 bytes
2021 bytes
znalazłem skrypt odpytujący poszczególne serwery DNS i wszystko jest ok, ładnie
pokazuje jaki jest czas odpowiedzi dla zadanej witryny, ale nie znam sie na
programowaniu i moze ktoś dopisałby "linijke" która wyliczy średnią dla
poszczególnego DNS'a i pokaże "pod spodem" wynik takowej średniej.
#
#!/bin/sh
#
# piekna tabelkowa wersja
#
for k in "Google" "OpenDNS" "Dialog" "TP SA" "Aster" "Chello" "Vectra1"
"Vectra2" "Vectra3"
#
do
#
echo -en "\t$k"
#
done
#
echo
#
for i in "nasza-klasa.pl" "facebook.com" "blip.pl" "wp.pl" "onet.pl"
"interia.pl" "wykop.pl" "warszawa.pl" "waw.pl" "joemonster.org" "gazeta.pl"
"dobreprogramy.pl" "cdrinfo.pl" "frazpc.pl" "twojepc.pl" "benchmark.pl"
"pclab.pl" "hacking.pl" "bash.org.pl"
#
do
#
echo $i
#
for j in "8.8.8.8" "208.67.222.222" "217.30.129.149" "194.204.152.34"
"212.76.32.1" "62.179.1.60" "82.139.8.7" "88.156.63.9" "88.156.96.61"
#
do
#
dig @$j $i | awk '{ORS="";FS=":"} /Query/ {split($2,a," ");print "\t"a[1]}'
#
done
#
echo
#
done
--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl
Re: DNS - czasy odpowiedzi
Author: Szymon Sokół
Date: Fri, 14 May 2010 18:21
Date: Fri, 14 May 2010 18:21
17 lines
1933 bytes
1933 bytes
On Fri, 14 May 2010 12:54:12 +0200, robert.giedrowiczWYTNIJTO@poczta.onet.pl wrote: > znalazłem skrypt odpytujący poszczególne serwery DNS i wszystko jest ok, ładnie > pokazuje jaki jest czas odpowiedzi dla zadanej witryny, ale nie znam sie na > programowaniu i moze ktoś dopisałby "linijke" która wyliczy średnią dla > poszczególnego DNS'a i pokaże "pod spodem" wynik takowej średniej. No super, ale czemu z tą prośbą na pl.comp.lang.perl, skoro ten skrypt nie jest w Perlu? Chcesz, żeby go przepisać na Perla? W sumie można, tylko po co... -- Szymon Sokół (SS316-RIPE) -- Network Manager B Computer Center, AGH - University of Science and Technology, Cracow, Poland O http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982 F Free speech includes the right not to listen, if not interested -- Heinlein H
Re: DNS - czasy odpowiedzi
Author: Piotr KUCHARSKI
Date: Tue, 18 May 2010 16:18
Date: Tue, 18 May 2010 16:18
46 lines
2298 bytes
2298 bytes
robert.giedrowiczWYTNIJTO@poczta.onet.pl wrote:
> znalazłem skrypt odpytujący poszczególne serwery DNS i wszystko jest ok, ładnie
> pokazuje jaki jest czas odpowiedzi dla zadanej witryny, ale nie znam sie na
> programowaniu i moze ktoś dopisałby "linijke" która wyliczy średnią dla
> poszczególnego DNS'a i pokaże "pod spodem" wynik takowej średniej.
== 8>< ==
#!/bin/sh
#
printf "%16s\t" ""
for k in "Google" "OpenDNS" "Dialog" "TPSA" \
"Aster" "Chello" "Vectra1" "Vectra2" "Vectra3"
do
echo -en "$k\t"
done
echo
(
for i in "nasza-klasa.pl" "facebook.com" "blip.pl" "wp.pl" "onet.pl" \
"interia.pl" "wykop.pl" "warszawa.pl" "waw.pl" "joemonster.org" "gazeta.pl" \
"dobreprogramy.pl" "cdrinfo.pl" "frazpc.pl" "twojepc.pl" "benchmark.pl" \
"pclab.pl" "hacking.pl" "bash.org.pl"
do
printf "%16s\t" "$i"
for j in "8.8.8.8" "208.67.222.222" "217.30.129.149" "194.204.152.34" \
"212.76.32.1" "62.179.1.60" "82.139.8.7" "88.156.63.9" "88.156.96.61"
do
dig @$j $i | awk '/Query/ {printf $4 "\t"}'
done
echo
done
) | awk '{
print; for (i=2;i<=NF;i++) {a[i]+=$i}
} END {
printf "%16s\t", "average ms"; for (av in a) {printf int(a[av]/NR) "\t"}
}'
echo
== 8>< ==
przy czym zwróć uwagę, że najszybsze serwery to są te, które tak naprawdę się
nie nadają:
% dig @212.76.32.1 nasza-klasa.pl
;; ->>HEADER<<- opcode: QUERY, status: REFUSED, id: 30979
;; Query time: 4 msec
p.
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads