*perl
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 →
<xxx> можешь в конструкторе поставить Debug => 0
Всегда проигрываю с этой хуйни.
Тенденцией последних примерно 25 лет была разработка языков программирования, навязывающих состояние паранойи. Предполагается, что каждый модуль вы должны программировать так, будто он находится в положении осады. Конечно, есть некоторые феодальные культуры, к которым это подходит, но не все культуры таковы. В ... more →
как конец света, так всем сразу perl нужен
Rakudo Star 2012.01 release: 616 downloads
Rakudo Star 2012.02 release: 814 downloads
Rakudo Star 2012.04 release: 391 downloads
Rakudo Star 2012.05 release: 492 downloads
Rakudo Star 2012.06 release: 353 downloads
Rakudo Star 2012.07 release: 452 downloads
Rakudo Star ... more →
exec() — возвращает нихуя
system() — возвращает код завершения
qx() — возвращает выхлоп
Каждый день я делаю $dbh→prepare(); $sth→execute(); $sth→fetchall_arrayref(); Мне не нужны абстракции. Я живу активной жизнью.
Типичный день в perl@
*** Маша Бурундук (marune@pyos.net/Собака) заходит как участник и теперь Доступен
<Маша Бурундук> первет
<Маша Бурундук> перлвет
<Маша Бурундук> У меня нубский вопрос
<Маша Бурундук> Почему вот такая херня
$str1 = "ertertret";
$str2 = "fsdf";
$str3 = "vxcvxvc";
@array = [ $str1, ... more →
Потому что там такого нет: reinterpret_cast<const unsigned char *>(_data→c_str()) , а если и есть, то не так.
The Goatse Operator =()=
The Goatse operator, as nasty as it may sound, doesn't do any nasty things. Instead it does a wonderful thing and causes an expression on the right to be evaluated in array context.
Here is an example,
my $str = "5 foo 6 bar 7 baz"; my $count =()= $str =~ /\d/g; print $count;
This program ... more →
> SQLite has started supporting foreign key constraints since 3.6.19 (released on Oct 14, 2009; bundled in DBD::SQLite 1.26_05).
ппц я слоу
*perl is used by:
Ky6uk
Ky6uk
Kain Winterheart
kainwinterheart
SirAnthony
SirAnthony
Артс
arts
Оранжевус Охуеннус
utros
Crazy_Owl
Crazy_Owl
16+
238328
sattellite
sattellite
Nico-izo
Nico-izo
Oleg
NetBUG
Mагог Магогович
magog
amd63
amd63
eill
eill
SilverDragon
SilverDragon
Maxim Kirenenko
part1zano
mva
mva
nobiiru
nobiiru
Кусаюзаюшко Завушко
kusayuzayushko
Катенька
sociobljad
hleem
hleem
pixie
pixie
jabber
jabber
Minoru
Minoru
rnd_d
rnd_d
analizer
analizer
Няша с няшей
nekoexmachina
cirno
cirno
proton
proton
gelraen
gelraen
Ствол
Dulo_T-34
Ky6uk
kainwinterheart
SirAnthony
arts
utros
Crazy_Owl
238328
sattellite
Nico-izo
NetBUG
magog
amd63
eill
SilverDragon
part1zano
mva
nobiiru
kusayuzayushko
sociobljad
hleem
pixie
jabber
Minoru
rnd_d
analizer
nekoexmachina
cirno
proton
gelraen
Dulo_T-34