Убертул

"На перле умеет писать очень мало человек. С этим ничего не поделаешь. Потому как очень мало людей могут держать себя в рамках если у них в руках убертул, которым можно сделать всё..." (с) Бацёк
Абсолютно согласен.

К сожалению,

К сожалению, это есть плохо.

Так и я не

Так и я не говорю что это хорошо - но с мыслью согласен. А какая альтернатива?

Писать проще,

Писать проще, но красиво. На любом языке можно завернуть так, что без 100 грамм ничего не поймешь, гораздо сложнее сделать код, на который приятно смотреть.

Кстати, хороший

Кстати, хороший вопрос: кто знает стандарт кодирования Перл?

у Java, насколько я знаю, он вообще принципиально один (естественно пробивается SUN);
у C/C++ есть минимум 3 стандарта (как минимум один из них является достаточно официальным, хоть и не ISO);
Насчет Перл я слышал про несколько стандартов, но ничего не слышал насчет официальных.

Стандарт Perl -

Стандарт Perl - все что включено в релиз и работает.
------------------

#!/usr/bin/perl
print("подпись!!1\n");

Я работал в

Я работал в нескольких компаниях, где так или иначе использовался perl - так вот, "стандарты" каждый раз отличались. Незначительно, но все же.
Из наиболее известных могу привести вот этот http://perl.apache.org/docs/2.0/devel/core/coding_style.html

Кусок из чужого

Кусок из чужого кода под грифом - "Как делать не надо"

### Conexpo com o banco de dados. ###
### A funtpo deve ser chamada da forma: conecta_db(nome do banco, host, usu+rio, senha); ###
############xxxx#########
sub conecta_db { 
    my $database = $_[0];
    my $host = $_[1];
    my $username = $_[2];
    my $password = $_[3];
    $dbh = DBI->connect("DBI:mysql:$database:$host", $username, $password);
    return $dbh;
}
### Desconecta o banco de dados #######
########xxxx##########
sub desconectar {
    $dbh->disconnect;
}
## Grava dados na tabela ###
## A funtpo deve ser chamada da seguinte forma: gravar(array com os valores em ordem, nome da tabela); ###

А пояснения -

А пояснения - почему именно не надо?

Насчет "проще, но красиво" - вот полное обсуждение - http://thebobuk.ya.ru/replies.xml?item_no=9714
Бобук жалуется в камментах на код

my (@parts) = grep { defined } split ('/', $request->path);

То есть некотрые считают даже такой код или некрасивым или непонятным...
Понятно что эти "некотрые" - заядлые питонщики, но вот факт...

Насчет стиля кодирования - так как девиз Перла - TIMTOWDI - трудно ожидать от него некоего "стандартного" стиля кодирования. Как правило каждая контора пишет нечто свое, опираясь на существующие и на PBP конечно...
Хотя имхо подобный документ и упростил жизнь девелоперам - но это все таки девиз Perl, он такой by design...