
*perl

eill
24.01.2013 09:40
root@voip-nv:/var/log/asterisk/cdr-csv# grep "2012-12" Master.csv | grep ANSWERED | grep '^"","2' | cut -f 10-11 -d ',' | perl -e 'sub gda { return `date --date \"$_[0]\" +%s`; } $c=0; while (<>) { next unless /:\d+","\d+-/; /"(.+)","(.+)"/; $counter += (gda($2) — gda($1)); } print $counter / 3600, ... more →

*perl is used by:

Ky6uk
Ky6uk

Kain Winterheart
kainwinterheart

Артс
arts

SirAnthony
SirAnthony

Crazy_Owl
Crazy_Owl

16+
238328

Оранжевус Охуеннус
utros

Mагог Магогович
magog

amd63
amd63

eill
eill

sattellite
sattellite

Nico-izo
Nico-izo

Oleg
NetBUG

jabber
jabber

Minoru
Minoru

rnd_d
rnd_d

analizer
analizer

Няша с няшей
nekoexmachina

cirno
cirno

proton
proton

gelraen
gelraen

Ствол
Dulo_T-34

SilverDragon
SilverDragon

Maxim Kirenenko
part1zano

mva
mva

nobiiru
nobiiru

Кусаюзаюшко Завушко
kusayuzayushko

Катенька
sociobljad

hleem
hleem

pixie
pixie