Re^8: Pre-process csv files before using

Just one quick question. How about if I wanted to keep the original file intact, and have this create a new file with the modified data (over-writting an existing file if it exists)?

Say it reads, data.csv and writes a new file named <origional-file-name>-ready.csv (or something like that). This way, if there is an error, I can re-run the perl script with out having to re-copy the data.
--Scratch that--
I figured out that there is a rename() function.

Comment on Re^8: Pre-process csv files before using

Replies are listed 'Best First'.
Re^9: Pre-process csv files before using by sk (Curate) on Aug 07, 2005 at 03:47 UTC
You are making it complicated by doing a rename and in place edit. I would do - `open (IN, 'origdata.csv'); # Open the file for read open (OUT,'>','copy.csv'); # Open the file for write. Will overwrite +if exists while(<IN>) { # read contents of input file # <IN>, typucally used inside a while will populate variable $_ # more proecessing print OUT ($_); # Write out to new file }` [download] I think you should start reading more about how to work with files and other perl idioms. I would recommend that you start with "Learning perl book". Also there are lot of stuff in Categorized Questions and Answers section! -SK	[reply] [d/l]

Replies are listed 'Best First'.

Re^9: Pre-process csv files before using
by sk (Curate) on Aug 07, 2005 at 03:47 UTC

I would do -

open (IN, 'origdata.csv');  # Open the file for read
open (OUT,'>','copy.csv');  # Open the file for write. Will overwrite 
+if exists

while(<IN>) {   # read contents of input file
  # <IN>, typucally used inside a while will populate variable $_
  # more proecessing
   print OUT ($_); # Write out to new file
}
[download]

I think you should start reading more about how to work with files and other perl idioms.

I would recommend that you start with "Learning perl book". Also there are lot of stuff in Categorized Questions and Answers section!

-SK

[reply]
[d/l]