"print"ステートメントの先頭にドットがありますか？

Question

私はPerlスクリプトを使用している間に何か変わったことがあります。異なる結果を与えるドットを使用することです。

perlop何かを上げなかったのか、それともそれを吹き飛ばしたのでしょうか。私は、私が欲しいものを得るために許容可能な回避策がある開始時に引用符を置くOperator Precedence and Associativity

print "I'd expect to see 11x twice, but I only see it once.\n"; 
print (1 . 1) . "3"; 
print "\n"; 
print "" . (1 . 1) . "3\n"; 
print "Pluses: I expect to see 14 in both cases, and not 113, because plus works on numbers.\n"; 
print (1 . 1) + "3"; 
print "\n"; 
print "" + (1 . 1) + "3\n"; 

を見ていたが、何を、私は欠けているの操作のために、ここで起こっているのでしょうか？学ぶべきルールはありますか？

Answer 1

括弧でくくって最初の引数をprintにすると、Perlはそれを関数呼び出しの構文とみなします。

ので、この：

print(1 . 1) . "3"; 

または、等価的に：

print (1 . 1) . "3"; 

このように解析され

(print 1 . 1) . "3"; 

したがって、Perlの印刷 "11"、戻り値をとりますそのprintコール（成功した場合は1）のうち、3に、そして式全体がvoidコンテキストにあるので、結果として得られる13とはまったく何もしません。

あなたは（コマンドラインまたはuse warnings;プラグマに-w経由）を有効に警告を使用してコードを実行した場合、あなたはこれらの警告は、あなたのエラーを特定取得します：

$ perl -w foo.pl 
print (...) interpreted as function at foo.pl line 2. 
print (...) interpreted as function at foo.pl line 6. 
Useless use of concatenation (.) or string in void context at foo.pl line 2. 
Useless use of addition (+) in void context at foo.pl line 6. 

ボロディンは、以下のコメントで指摘しているように、 -w（またはコード内に相当する$^W）に頼るべきではありません。プロダクションコードは常にwarningsプラグマを使用する必要があります。好ましくはuse warnings qw(all);です。 5.11以上のPerlのバージョンのuseバージョン;経由で現代的な機能を要求することも自動的にstrictをオンにするが、それは、この特定のインスタンスでは問題、あなたはuse strict;もすべきではないだろうが。

Answer 2

名前付き演算子（またはサブ呼び出し）の後に括弧が続く場合、それらの括弧はオペランド（または引数）を区切ります。

print (1 . 1) . "3";  ≡ (print(1 . 1)) . "3"; 
print "" . (1 . 1) . "3"; ≡ print("" . (1 . 1) . "3"); 

Perlがあなたの問題をユーザーに警告していることに注意してくださいあなたが必要としてあなたが（use strict;と）use warnings qw(all);を使用してきました。

print (...) interpreted as function at a.pl line 2. 
print (...) interpreted as function at a.pl line 6. 
Useless use of concatenation (.) or string in void context at a.pl line 2. 
Useless use of addition (+) in void context at a.pl line 6. 
I'd expect to see 11x twice, but I only see it once. 
11 
113 
Pluses: I expect to see 14 in both cases, and not 113, because plus works on numbers. 
11 
Argument "" isn't numeric in addition (+) at a.pl line 8. 
14