From: Jorge Palma [mailto:[EMAIL PROTECTED] > > here is the part where a write to the file. > > The problem is it write ok, but in text mode and not in binary mode. > > Thanks > > # --- open and read all text file and put it in array > open(FileIn,"$dirBase\\PSData_21.txt"), or die; > @lines=<FileIn>; > close (FileIn); > > # --- open outfile in binary mode > open (FileOut, ">>$dirBase\\PSData_mwd_21"); > binmode (FileOut); > ... > > print FileOut "$stid $rlat $rlon $tim $nlev $nflag\n" ; > ...
That works perfectly for me. Keep in mind that binmode will make no difference on a unix based system since the end-of-line marker is just "\n" on those systems. What is it doing different from what you expected? Bowie _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
