Можно ли как-нть короче записать такой код:

$str .= $_ foreach @arr;

?

$str .= join('', @arr);

Добавлено @ 13:17 
точка, эт потому что если там что было уже, так чтоб не затереть, а именно дописать...

Спасибо!

Добавлено @ 13:21 
Интересно, а что быстрее? Вот amg бы сюда. Он любит бенчмарки проводить.

А можно ли как-нть короче:

my $OSNAME = "";
foreach (@input) {
    $OSNAME = $1 if (/^Software:OsName:(.+)/);
}

Что-то типа
    ($OSNAME = $1 if /^Software:OsName:(.+)/) foreach @input;
или
    {$OSNAME = $1 if /^Software:OsName:(.+)/} foreach @input;
или
    eval {$OSNAME = $1 if /^Software:OsName:(.+)/} foreach @input;

Добавлено @ 15:33 
А вот это укоротить можно?

use strict;
my @discard;
$0 = (@discard = split(/\//, $0))[$#discard];

как-нть так:

use strict;
$0 = (my @discard = split(/\//, $0))[$#discard];

короче, чтобы не объявлять отдельно discard, и, более того, не засирать namespace.

Мужики, раз не отвечаете, значит укоротить нельзя, да? Или просто вопрос не заметили? =))

Можно так:
А лучше так ($0 то не вернешь)

такое впечатление что ты пишишь кернел на перле и делаешь максимум оптимизированый код. =))
Все укорачиваешь=) ахахах
так ты переменным давай имена по одной букве $a, $w...
Мне толька не понятно что делает вот это $0 = (my @discard = split(/\//, $0))[$#discard]; ?

$0 - имя скрипта. Это выражение убирает из имени путь (и его можно укоротить: $0 = (split '/', $0)[-1];)

IMHO, в данном случае максимально оптимизированный код оправдан, так как очень уж часто встречается. Один раз придумать и запомнить. У меня, например, в каждой программе используется что-то вроде


Это сообщение отредактировал(а) amg - 12.12.2006, 15:41

amg, зачет!   

DiverD, незачет, так как мнение о том, что и как я пишу, мало того, что ненужное, так еще и неверное. Нечего сказать -- лучше промолчать. Факт. А репутацию не кол-вом сообщений зарабатывают (ведь именно этим ты занимаешься), а толковыми, полезными, нужными ответами.   И поступаешь ты так уже не в первый раз. Надеюсь на понимание.  

Это сообщение отредактировал(а) Danissimo - 12.12.2006, 17:15