Mega Code Archive

 

Categories / Perl / File

 

Write data to file

!#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 ..."