Reading a csv and creating a new csv using perl

Question

I am trying to read a csv , select some columns from the csv abc.csv and create a new csv def.csv . Here is my code below(snippet):-

genNewCsv();

   sub genNewCsv {
    my $csv = Text::CSV->new();

    my $aCsv = "abc.csv"
    my $mCsv = "def.csv";

    my $fh = FileHandle->new( $aCsv, "r" );

    my $nf = FileHandle->new($mCsv,"w");

    $csv->print($nf,[ "id","flops""ub" ]);
    while (my $row = $csv->getline($fh)){

        my $id = $row->[0];

        my $flops = $row->[2];

        my $ub = "TRUE";
        $csv->print($nf,[ $id,$flops,$ub]);
    }
    $nf->close();
    $fh->close();
}

When I do run this code , in def.csv file I get lines without a break in the line i.e id,flop,ub,ASM_1,in,TRUE,ASM_2,out,TRUE I want the csv to be one line after the other i.e.

id,flop,ub

ASM_1,in,TRUE

ASM_2,out,TRUE

Can anyone please help me .

Newbie · Accepted Answer · 2014-01-04 17:06:37Z

3

BINGO

I should be using this

 my $csv = Text::CSV->new ({ binary => 1, eol => $/ });

answered Jan 4, 2014 at 17:06

Newbie

2,7388 gold badges39 silver badges78 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Reading a csv and creating a new csv using perl

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related