periodo Perl vs operatore virgola

Question

Qualcuno sa perché

print "$str is " , ispalindrome($str)?"":" not" , " a palindrome\n" 

stampe "madam è un palindromo"

ma

print "$str is " . ispalindrome($str)?"":" not" . " a palindrome\n" 

stampe "1"?

Answer 1

L'operatore condizionale (? :) ha precedenza più alta della virgola ma inferiore al periodo. Così, la prima riga viene analizzato come:

print("$str is " , (ispalindrome($str) ? "" : " not"), " a palindrome\n") 

mentre la seconda viene analizzato come:

print(("$str is " . ispalindrome($str)) ? "" : (" not" . " a palindrome\n")) 

Quest'ultima linea deve effettivamente stampare "", non "1", però; è quello che hai davvero?