good point. -----Original Message----- From: Russ Foster To: [EMAIL PROTECTED] Sent: 1/24/02 8:37 AM Subject: RE: csv flat file
Depending on the size of the file, you may not want to read the whole thing into memory first. So... open(OUTFILE,">outfile.csv") ; open(INFILE,"<infile.csv") ; while ( $line = readline (INFILE) ) { $line = "insert " . $line ; print OUTFILE $line ; } close INFILE ; close OUTFILE ; Russell J Foster Subject, Wills, & Company e. [EMAIL PROTECTED] v. 630-572-0240 -----Original Message----- From: Timothy Johnson [mailto:[EMAIL PROTECTED]] Sent: Thursday, January 24, 2002 10:30 AM To: 'Jon Molin '; 'bc ' Cc: [EMAIL PROTECTED] Subject: RE: csv flat file What I do when I want to do something to each line of a file is break it up into an array with one line per element of the array. That way I can put in conditions that let me decide which lines I want to do it to. For example: open(INFILE,"infile.csv"); @infile = <INFILE>; close INFILE; foreach $line(@infile){ $line = "insert ".$line; } open(OUTFILE,">infile.csv"); print OUTFILE @infile; -----Original Message----- From: Jon Molin To: bc Cc: [EMAIL PROTECTED] Sent: 1/24/02 5:44 AM Subject: Re: csv flat file bc wrote: > > hello > > i have a flat file (csv) [it has about 114 rows] > > i want to put the word "insert " in front of each row, > > how it the "for each" writtin? in other words, in perl, how do i do a for each row insert the word "insert ", then it comes out of the "for each" loop thingy...? perl -pi.bak -e 's/^/insert /' filename would do it (remove .bak if you don't want a backup) /jon -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] ------------------------------------------------------------------------ ---- ---- This email may contain confidential and privileged material for the sole use of the intended recipient. If you are not the intended recipient, please contact the sender and delete all copies. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -------------------------------------------------------------------------------- This email may contain confidential and privileged material for the sole use of the intended recipient. If you are not the intended recipient, please contact the sender and delete all copies. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]