Nybörjar problem

Perl & Rubyur Perl, Python, Ruby och övrig CGI

2 svar · 181 visningar · startad av rilu 5 juni 2001

riluMedlem sedan jan. 200059 inlägg

Frågan5 juni 2001 19:27#1

Tjena!
Ska plocka ut en rad ur textfilen lista.txt så här ser koden ut:

print("Content-type: text/html\n\n");
print("<HTML>");
print("<HEAD><TITLE>Lista poster</TITLE></HEAD>");
print("<BODY");
print("<FONT FACE=Arial SIZE=-2>");
print("Listar poster ur filen lista.txt<BR>");
print("<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=580>");
open (FILE, "<lista.txt");
@rad = <FILE>;
close(FILE);
for each (@rad) {
	print("<TR><TD>$rad</TD></TR>");
}
print("</FONT>");
print("</TABLE>");
print("</BODY>");
print("</HTML>");

och så här ser felmeddelandet ut:
Missing $ on loop variable at lista.pl line 11.

Vad göra?

CssonMedlem sedan feb. 2000438 inlägg

5 juni 2001 20:57#2

Kanske detta:

Byt ut din for each till:

for (0..$#rad) {
    print("<TR><TD>$rad[$_]</TD></TR>");
}

/Csson

------------------
Erimax.com
Cykelsemester

JojoxxMedlem sedan juni 20004 308 inlägg

6 juni 2001 07:53#3

...eller ändrar felstavningen :)

foreach (@rad) {
print("<TR><TD>$_</TD></TR>");
}

------------------
/ J