Anonymous user
Read a file line by line: Difference between revisions
→{{header|Tcl}}
m (→{{header|J}}) |
|||
Line 293:
}
close $f</lang>
=={{header|TUSCRIPT}}==
<lang tuscript>
$$ MODE TUSCRIPT
datei="rosetta.txt"
ACCESS q: READ/RECORDS/UTF8 $datei s,line
LOOP
READ/NEXT/EXIT q
PRINT line
ENDLOOP
ENDACCESS q
</lang>
- or:
<lang tuscript>
LOOP line=datei
PRINT line
ENDLOOP
</lang>
=={{header|UNIX Shell}}==
| |||