
*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

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