|
#!/usr/bin/perl print"Content-type:text/html\n\n"; $filename = 'data.txt'; print '<pre>'; open(myfile,"$filename"); @getrec = <myfile>; close(myfile); $cnt = @getrec; for $i (0 .. $cnt-1) { @rec = split(/,/,$getrec[$i]); print $i + 1," - ",$rec[0]," - ",$rec[1],"<br>"; } |