Re^8: Pre-process csv files before using


The stupid question is the question not asked
	PerlMonks

Re^8: Pre-process csv files before using

by DrAxeman (Scribe)

on Aug 07, 2005 at 02:44 UTC ( [id://481597]=note: print w/replies, xml )

Need Help??

in reply to Re^7: Pre-process csv files before using
in thread 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

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]

In Section Seekers of Perl Wisdom