Re: CSV file to C file conversion using perl

Something like this might work (won't necessarily work, but should give you an idea)

use strict;
use warnings;
$/ = 'END'; # see perldoc -v '$/'
open my $infile, '<', '/NAME/OF/FILE.csv' or die;
open my $outfile, '>', '/NAME/OF/FILE.c' or die;
while ($infile) {
    s/\A \s+ | \s+ \z//gx; # delete leading and trailing whitespace
    my %record = split /\n|,/; # this is brittle, tweak as necessary
    # now do something with the record, for example...
    print $outfile "${record{memid}, FLASH(${record{size}})" # etc
}
[download]

Comment on Re: CSV file to C file conversion using perl Download Code

Replies are listed 'Best First'.
Re^2: CSV file to C file conversion using perl by Anonymous Monk on Jun 19, 2014 at 17:48 UTC
Damn, I forgot. You must delete END from the end. `s/\A \s+ \| \s* (END)? \z//gx`	[reply] [d/l]
Re^2: CSV file to C file conversion using perl by locked_user sundialsvc4 (Abbot) on Jun 19, 2014 at 19:55 UTC
Anonymous Brother, prithee, what is `FLASH()` ??
Re^3: CSV file to C file conversion using perl by Anonymous Monk on Jun 19, 2014 at 21:06 UTC
FLASH_CONFIGURATION_DEVICE from the original post :)	[reply]
Re^2: CSV file to C file conversion using perl by Anonymous Monk on Jun 20, 2014 at 05:40 UTC
Hi Monk Thanks for the initial help. I have started writing the perl script based on your suggestion and will get back to you once I am done and if I face any issue i will post it here.	[reply]
Re^2: CSV file to C file conversion using perl by gopsi1234 (Initiate) on Jun 20, 2014 at 05:44 UTC
Hi Monk Thanks for the initial help. I have started writing the perl script based on your suggestion and will get back to you once I am done and if I face any issue i will post it here.	[reply]