master_son has asked for the wisdom of the Perl Monks concerning the following question:
Hello monks;
The following is the code that I am using to upload a *.csv file via CGI and write its contents to another *.csv file However, when the destination file is written, I get blank rows in between each record.
I am using CGI qw(:standard) and CGI::Simple CPAN modules for this
The code above contains the regex $fh =~ s/(?=\n)/\r/g; which I received earlier that is to convert UNIX or MAC CRs to DOS CRs. I was able to get it to do the work, but now it will not operate properly.
What am I doing wrong - or is there a good solution. Thank you in advance.
my $upload_dir = "some directory"; my $evtFileName = 'testDoc'; my $empFileName = $query->param('filepath'); my $fh = upload('filepath'); $fh =~ s/(?=\n)/\r/g; open OUTFILE, ">".$upload_dir."\\".$empFileName or die "Cannot ope +n file ".$upload_dir."\\".$empFileName; while (<$fh>) { print OUTFILE; print; } close OUTFILE;
I am using CGI qw(:standard) and CGI::Simple CPAN modules for this
The code above contains the regex $fh =~ s/(?=\n)/\r/g; which I received earlier that is to convert UNIX or MAC CRs to DOS CRs. I was able to get it to do the work, but now it will not operate properly.
What am I doing wrong - or is there a good solution. Thank you in advance.
EDIT: Sorry - I am running the script on Windows 2003 Server (DOS)
---------------------
Keep your concentration here and now where it belongs - Qui-Gon Jinn
Keep your concentration here and now where it belongs - Qui-Gon Jinn
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Conversion of unix LF to DOS LF issues
by ikegami (Patriarch) on Feb 01, 2006 at 23:26 UTC | |
by master_son (Acolyte) on Feb 02, 2006 at 15:19 UTC | |
Re: Conversion of unix LF to DOS LF issues
by chas (Priest) on Feb 01, 2006 at 22:00 UTC | |
by blazar (Canon) on Feb 02, 2006 at 10:51 UTC |
Back to
Seekers of Perl Wisdom