perl メモ(print 時の括弧の扱い)

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

{
  # 括弧の扱いに注意する
  # (1 + 2) のみが print の引数として処理され、"+ 4" が無意味な操作になってしまっている
  # 警告: print (...) interpreted as function
  # 警告: Useless use of addition (+) in void context
  print (1 + 2) + 4; # 3
  print "\n";

  # 弧の前に + を置いて計算の優先順序としての括弧であることを示す
  print +(1 + 2) + 4; # 7
  print "\n";
}