[Perl] Uso del punto

[Gear2ndsx]

Perchè questo codice , costruito metà da me e metà dal mio libro, non funziona?

use strict;
use warnings;
my $stringa = "Arianna" ;

print "la stringa è lunga " ;
.lenght( $stringa );
." caratteri.\n";

Mi da errore nella "Line 5", near "_" .
Non sono riuscito ad individuare l'errore.

La parte sottolineata è scritta da me , quella non sottolineata è copiata dal libro.

[Mich_]

Sicuro che ci vadano i puntoevirgola alla fine delle righe?
Prova a toglierli (quello dopo lunga e quello dopo il length), in modo da far dipendere le righe che iniziano con punto dal print.

L'operatore (binario) "." (punto) e` il join: serve per unire due stringhe. In altri linguaggi viene usato il + che nel caso di numeri opera la somma, in caso di stringhe fa l'unione. In Perl vi sono invece due operatori distinti.

In alternativa quel pezzo puo` essere scritto cosi`:

print "la stringa è lunga " ;
print lenght( $stringa );
print " caratteri.\n";

[Gear2ndsx]

Il tuo codice funziona a metà. Infatti mi da errore line 5 ma mi scrive lo stesso "la stringa è lunga". Mi domando, lenght a che serve?

[Mich_]

length e` una funzione che ritorna il n di elementi all'interno di un vettore o il n. di caratteri di una stringa.

Prova intanto a scrivere cosi`:

print "la stringa è lunga ".lenght( $stringa )." caratteri.\n";

Poi prova a sviluppare su piu` righe (senza i puntoevirgola in mezzo):

print "la stringa è lunga " 
.lenght( $stringa )
." caratteri.\n";

E attenzione alla sintassi: e` molto facile all'inizio dimenticarsi un puntoevirgola, o qualcosa di simile, e in un linguaggio interpretato (quale il Perl), l'errore compare come se fosse un errore di run-time.