periodo Perl vs operador coma

Question

¿Alguien sabe por qué

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

impresiones "señora es un palíndromo"

pero

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

impresiones "1"?

Answer 1

El operador condicional (? :) tiene una precedencia mayor que la coma, pero menor que el punto. Por lo tanto, la primera línea se analiza como:

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

mientras que el segundo se analiza como:

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

Esta última línea debe realmente imprimir "", no "1", sin embargo; ¿Es eso realmente lo que tienes?