Pišemo zajedno: ES oneliner #0001

PHP resenje ne radi, popeye:


root@es:~# netstat -nat | php -r 'print_r(array_count_values(preg_grep("/^[A-Z_]+[12]*$/", preg_split("/[\s]+/", fread(STDIN, 5000)))));'
Array
(
[ESTABLISHED] => 24
[TIME_WAIT] => 37
[FIN_WAIT_1] => 1
)
root@es:~# netstat -nat|perl -e '/[A-Z_]{2,}[12]?/&&$*{$&}++while<>;@^=keys%{*};print"$*{$*=pop@^} $*\n"while$#{^}>=0'
39 LISTEN
1 UNIX
200 ESTABLISHED
37 FIN_WAIT_2
14 CLOSED
4 FIN_WAIT_1
484 TIME_WAIT

Evo bzero-ovog, radi na freebsd-u (perl 5.8.5):

root@es:~# netstat -nat|perl -e '/[A-Z_]{2,}[12]?/&&$*{$&}++while<>;@^=keys%{*};print"$*{$*=pop@^} $*\n"while$#{^}>=0'
1 UNIX
39 LISTEN
190 ESTABLISHED
1 LAST_ACK
14 CLOSED
32 FIN_WAIT_2
7 FIN_WAIT_1
454 TIME_WAIT
root@es:~# netstat -nat|perl -e '/([A-Z_]{2,}[12]*)\n/&&$u{$1}++while<>;map{print"$_-$u{$_}\n"}keys(%u);'
TIME_WAIT-458
FIN_WAIT_1-8
CLOSED-14
FIN_WAIT_2-33
LAST_ACK-1
ESTABLISHED-186
LISTEN-39


..ali ne i na linuxu (perl 5.8.4):

root@noc {20:48:43 - Thu Sep 23}
[ ~ ]$ netstat -nat|perl -e '/[A-Z_]{2,}[12]?/&&$*{$&}++while<>;@^=keys%{*};print"$*{$*=pop@^} $*\n"while$#{^}>=0'
8 LISTEN
17 ESTABLISHED
1 CLOSE_WAIT
1 TIME_WAIT
root@noc {20:48:52 - Thu Sep 23}
[ ~ ]$ netstat -nat|perl -e '/([A-Z_]{2,}[12]*)\n/&&$u{$1}++while<>;map{print"$_-$u{$_}\n"}keys(%u);'
ESTABLISHED-17


Ispise samo established, verovatno si i ti popeye to dobio.

Ali bzero, svaka cast za ideju sa map! :)
Sad sam dobio inspiraciju..

PHP kod mene na Linuxu radi:

Pa radi samo delimicno, verovatno te zeza ograniceni fread na 5000 bajtova.

Netstat output na opterecenijim serverima sa dosta aktivnih konekcija zna da bude MNOGO veci.

Dalje, evo iskoristih bzero-vu ideju da napravim i svoju varijantu toga, ovo mi radi i u linuxu i u bsd-u:

netstat -nat|perl -e '/[A-Z_]{2,}[12]?/&&$*{$&}++while<>;map{print"$*{$_} $_\n"}keys%{*}'

U pravu si, treba povećati dužinu.

PHP resenje izlazi iz okvira postavke zadatka:


alex@home:~$ netstat -nat | php -r 'print_r(array_count_values(preg_grep("/^[A-Z_]+[12]*$/", preg_split("/[\s]+/", fread(STDIN, 5000)))));'
-bash: php: command not found
alex@home:~$


Poz,
alex.

Potpis

Alex: My favorite site is http://localhost/
R.J. Oppenheimer: "I am become death, destroyer of worlds" (1945 AD)
tweet.13x ||
linkedin.13x

Hehe, pa u svim većim distribucijama (Debian, Fedora, Gentoo, Mandrake...) dolazi i php-cli, te ispunjava uslov da se izvršava u nekom od skripting jezika na većini Linux mašina.

Ali ako ti tako kažeš, onda mora da je tačno. :)

Mislim kada vec krademo tudje ideje, sta ce nam map{$_} :).



Pazi kada niko nije probao sa foreach :)

Potpis

CHUPCKO

rekao bih 3 karaktra krace.

i josh jedan

hmmm... ne moze bez sort pre uniq

U sort smo svi zaboravili :), tako nam i treba kada imamo masine sa po dve tri konekcije :)

Potpis

CHUPCKO

Neko je pre postovao reply sa awk resenjem ( "vrider" ja mislim ) koje ima par nedostataka...

naime kod vecine awk verzija delimiter je po default-u na space karakteru
tako da kobasa od:
netstat -nat | awk -F\ '{ print $6 }' | uniq -c ( koja ujedno i ne radi )

moze stati u:
netstat -nat|awk '{print $6}'|uniq -c

sto mislim da je ujedno i najmanje zahtevno, najbrze, najrazumljivije ( ovde ide jos nekoliko superlativa )...
ne kapiram zbog cega ljudi toliko forsiraju perl i php za ovako jednostavne stvari.

[sarkazam]
jel' se prihvata resenje u C-u?
i ako da, jel' mora biti registrovan projekat na SF.net da bi se uvazio? ili jos bolje da ima sajt sa skrinshotima i cvsweb interfejsom ;)

[/sarkazam]

izvinjavam se ako sam nekome pokvario provod ovime, izacicu iz peska right away L;)

Potpis

"It's okay, I'm just admiring to the shape of your skull!" -- Dr. Gonzo

hmm, mislim da tek ovako daje okey rezultat:


ujedno to bi trebalo da bude najkrace reshenje.

Pa nije, imam krace za jedno slovo :). nja nja :)

Potpis

CHUPCKO

priznajem, nisam skontao da onda mogu da sklonim t iz -nat :))

kad smo kod awk-a ;)


ima i awk hash array :)))

Pa da, awk ga je prvi i uneo, sve u svemu jel ima neki novi koncept koji do sada nije vidjen ?

Potpis

CHUPCKO

Moze li neko objasnjenje zasto je neophodan sort, jer vidim da ga ubacujete?

Potpis

JaFreelancer.com