Pišemo zajedno: ES oneliner #0001

Program koji ćemo ovaj put pisati treba da iz liste koju daje netstat -na prikaže sledeće podatke:

broj tcp ipv4 konekcija, grupisano po stanjima (ESTABLISHED, LISTEN, TIME_WAIT, SYN_SENT, FIN_WAIT_[12], LAST_ACK i ostala koja sam možda zaboravio)

Cilj: napisati što više varijacija, bilo po efikasnosti koda i brzini izvršavanja, kriptičnosti, što manjoj dužini, ili već koji cilj sebi zacrtate.

Osnovni uslov je da se program izvršava na većini linux mašina u nekom od well known shell alata ili skripting jezika (bash, awk, sed, grep, perl, ... dozvoljene sve kombinacije) i da staje u jedan red (zato se i zove oneliner). "Red" za sada nije strogo definisan, ali mislim da je oko 100 bajtova za sada ok, možemo posle i da skraćujemo.

Kasnije ćemo zadatak proširiti nekim grupisanjem po portovima, videćemo već iz smera koji rešenja budu zauzela i naravno vaših komentara.

'Ajde da otvorim ovo:
netstat -na | grep ^tcp | awk -F\ '{ print $6 }' | uniq -c
Izvinjavam se sto nije "kripticno".

Potpis

JaFreelancer.com

Ajde da ubacimo malo kriptinosti :)



Sada bar mora da se manuje komanda tr (sto bi neki rekli, moja omiljena :))

P.S. videh da fali jedno _



je malo bolje :).

_{[Ovu poruku je menjao chupcko dana 23.09.2004. u 13:16 GMT]}

Potpis

CHUPCKO

A moze i jos sladje :)

Potpis

CHUPCKO

I naravno jeste kripticno, jeste ludo, ali nije bas kratko resenje:

Potpis

CHUPCKO

Evo jednom perl, mada verovatno može i bolje, samo još malo da razmislim.. ;)

netstat -nat|perl -e '/[A-Z]{2,}/&&print"$&n"while<>'|uniq -c

Fali jedan backslash pre n :)

A i da bi lepo radilo mora i _ da se ukljuci :)



Eto dokaza da pratim temu :))))) hihihiih

Potpis

CHUPCKO

Ma da pogrešan copy paste ;) hvala na ispravci.. nego sad će jedan bolji da usledi, bez uniq-a.

Zapravo nije, sad vidim da mi mailing lista pojede taj jedan backslash. To ćemo morati da sredimo, u međuvremenu evo grubog rešenja, još može da se doteruje:

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

Varijacija ali još uvek bez konkretnog napretka:

netstat -nat|perl -e '/[A-Z_]{2,}/&&$*{$&}++while<>;print"$^ $*\n"while($*,$^)=each%{*}'

Čupko.. aj uradi brojanje u SEDu, bez uniq? :)

Ovo prethodno ipak nije hvatalo odvojeno FIN_WAIT_1 i FIN_WAIT_2 ali zato ovo radi:

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

Paaaaaaaaaa sed tesko da moze da broji :), moralo bi da se iskoraci u awk ili perl :).

Potpis

CHUPCKO

Nakon sto sam naucio nesto o netstat-u:
netstat -nat | awk -F\ '{ print $6 }' | uniq -c
Inace, imao sam ideju sa hash listom u perlu, ali, ne znam kako to da izvedem u jednom redu.
Mozda ti, Gojko, uskocis sa nekim resenjem.

Potpis

JaFreelancer.com

Nemoj misliti da cepidlacim :), ali evo ovo ovako radi

Potpis

CHUPCKO

Znam. I ja sam provalio tek posle onih prvih dva reda.

Potpis

JaFreelancer.com

CLI verzija PHP-a:

netstat -nat | php -r 'print_r(array_count_values(preg_grep("/^[A-Z]+$/", preg_split("/[\s]+/", fread(STDIN, 5000)))));'

Mala ispravka:

netstat -nat | php -r 'print_r(array_count_values(preg_grep("/^[A-Z_]+[12]*$/", preg_split("/[\s]+/", fread(STDIN, 5000)))));'

Jedan mali Perl:

Potpis

Never trust an operating system you don't have sources for.

Bzero, to izgleda ne radi.