trying to add lines to .csv file...won't go past 2 lines...

[spewn]

i have the following code:

$cfile = "updatefile.csv";
open (COUNTER, "$cfile");
$count = <COUNTER>;
close (COUNTER);
if ($count eq '') {
$count = qq{Field1,Field2,Field3,\n};
}
$count = $count.qq{$val1,$val2,$val3,\n};
open (COUNTER, ">$cfile");
print COUNTER ("$count");
close (COUNTER);

it works, but it only will print two lines.

this is assuming that the $val1,$val2 and $val3 are dynamic...

any ideas? i think it has something to do with the \n...

- g

 

[KevinADC]

your code does exactly what you have written it to do. Are you trying to append to an existing file? Use ">>" instead of ">" when opening the file.

Don't do this:

print COUNTER ("$count");

should be written as:

print COUNTER $count;

no parenthesis or quotes.

Are you sure you want a comma then a newline?

$count = $count.qq{$val1,$val2,$val3,\n};

that will leave a trailing comma that's probably not going to be used for anything. Watch how you write code too, don't clump it all up like this:

$count = $count.qq{$val1,$val2,$val3,\n};

that can lead to problems if the context of how the dot is used is not clear.

better written as:

$count = $count . qq{$val1,$val2,$val3,\n};

or even better:

$count .= qq{$val1,$val2,$val3,\n};




------------------------------------------
- Kevin, perl coder unexceptional!

 

[stevexff]

The Text::CSV module is simple to use and takes a lot of the gotchas out of manipulating CSV files, both for input and output.

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[KevinADC]

good point Steve. Text::CSV_XS is a faster version of the same.

------------------------------------------
- Kevin, perl coder unexceptional!