[AngeL)]

Originariamente inviato da AngeL)

funziona tutto. grazie

sono costretto a rimangiarmi cio che ho detto... ho un piccolo problema (credo) con la sintassi...
questo è il codice

@a = qw(n1 n2 n3 n4);
for $i(0..scalar(@a))
{print "$a[".$i."]==".$a[$i].".\n";}
print "Elements in @a are ".scalar(@a).".\n";
print "Adding n0 to the head...\n";
unshift @a, "n0";                     #adds n0 to the head
for $i(0..scalar(@a))
{print "$a[".$i."]==".$a[$i].".\n";}
print "Elements in @a are ".scalar(@a).".\n";
print "Removing n0 from the head...\n";
shift @a;                             #removes n0 from the head
for $i(0..scalar(@a))
{print "$a[".$i."]==".$a[$i].".\n";}
print "Elements in @a are ".scalar(@a).".\n";
print "Adding n5 to the tail...\n";
push @a, "n5";                        #adds n5 to the tail
for $i(0..scalar(@a))
{print "$a[".$i."]==".$a[$i].".\n";}
print "Elements in @a are ".scalar(@a).".\n";
print "Removing n5 from the tail...\n";
pop @a;                               #removes n5 from the tail
for $i(0..scalar(@a))
{print "$a[".$i."]==".$a[$i].".\n";}
print "Elements in @a are ".scalar(@a).".\n";

e questi sono gli errori

syntax error at asd.pl line 8, near "".\n";"
syntax error at asd.pl line 16, near "".\n";"
syntax error at asd.pl line 24, near "".\n";"
syntax error at asd.pl line 32, near "".\n";"
syntax error at asd.pl line 40, near "".\n";"
Missing right curly or square bracket at asd.pl line 40, within string

dove ho sbagliato?