As in the previous example:
filename <- 'your/file/name/here'
fh <- file( filename, open='rt' )
line <- readLines(fh, n=1 )
tmp <- strsplit(line, "\\t")
first <- tmp[[1]][1]; second <- tmp[[1]][2]; third <- tmp[[1]][3]
, , , , , , , , , ( , Perl ).
readLines ( 1)
strsplit , Perl.
R , Perl ( , ).