*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
Артс
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
Ky6uk
kainwinterheart
arts
SirAnthony
Crazy_Owl
238328
utros
magog
amd63
eill
sattellite
Nico-izo
NetBUG
jabber
Minoru
rnd_d
analizer
nekoexmachina
cirno
proton
gelraen
Dulo_T-34
SilverDragon
part1zano
mva
nobiiru
kusayuzayushko
sociobljad
hleem
pixie