Привет всем! Пришлось писать такой код:

if( $types[$i] eq 'Integer' ) { 
    $row += ord for @buff;
} 
else { 
  ( $row = join '', @buff ) =~ s/\s+$//g;
}

потому что

$types[$i] eq 'Integer' 
    ?  $row += ord for @buff 
    : ($row = join '', @buff) =~ s/\s+$//g;

ругается на syntax error ... near «ord for ».

В чём дело? Точно не в ord($_) for (@buff), так тоже не пашет.

• perl странная ошибка синтаксиса,Pahanivo, 10:08 , 06-Окт-14
• perl странная ошибка синтаксиса,XAnder, 10:12 , 06-Окт-14

> ругается на syntax error ... near «ord for ».

вах, поганый перл, решил что лучше тебя знает свой синтаксис!

> В чём дело? Точно не в ord($_) for (@buff), так тоже не
> пашет.

for ... (ровно как и if и т. п.) может стоять только в конце выражения.