Mega Code Archive

 

Categories / Perl / File

 

Open(MYFILE, c

!#c:\perl\bin print "Content-type: text/html\n\n"; @linestring = ("line 1\n",                "line 2\n"); open(MYFILE, ">>c:\\outfile.dat")|| die print "Error encountered opening file ... $!"; for($i = 0; $i < 5; $i++) {     $thisline = $linestring[$i];     print MYFILE "$thisline"; } close(MYFILE); print "Data has been written ..."