Re: Problem when - use strict and -w

Why aren't you using Text::CSV_XS for output too?

#!/usr/bin/perl -w

use strict;

use Text::CSV_XS qw( );

my $qfn_in = 'data.txt';

open(my $fh_in, '<', $qfn_in)
    or die("Can't open file \"$qfn_in\": $!\n");

my $fh_out = \*STDOUT;

my $csv_in  = Text::CSV_XS->new({ sep_char => ',',  eol => $/ });
my $csv_out = Text::CSV_XS->new({ sep_char => "\t", eol => $/ });

my $number = 10;

while ( my $row = $csv_in->getline($fh_in) ) {
    $csv_out->print($fh_out, [
        "Olah:",
        $number++,
        @$row[2,5,3,0,4],
    ]);
}
[download]

Mind you, the output format is slightly different than yours. (It will quote all fields or only necessary fields depending on option always_quote).

It could use error checking, but you didn't have any either.

Comment on Re: Problem when - use strict and -w Select or Download Code

Replies are listed 'Best First'.
Re^2: Problem when - use strict and -w by GertMT (Hermit) on Jul 15, 2009 at 03:22 UTC
Like your proposed code of reading the data. The empty last line problem is now also not an issue anymore. Don't think I can have Text::CSV_XS handle the output as I need to work on the output such as: (psuedocode) `multiply row->[2] by 4 if row->[0] != 123` [download] Though definitely something I'll consider using in the future. Thanks	[reply] [d/l]
Re^3: Problem when - use strict and -w by ikegami (Patriarch) on Jul 15, 2009 at 05:08 UTC
What part of that do you think you can't do with `$csv->print` (but can somehow do with `STDOUT->print`)	[reply] [d/l] [select]
Re^4: Problem when - use strict and -w by GertMT (Hermit) on Jul 15, 2009 at 10:15 UTC
ah well, I'm kind of puzzled in the setup `$csv->print` where to put the part of the code that's going to work on the columns. In my (new) setup I have: `while ( my $row = $csv_in->getline($fh_in) ) { # doing stuff with the columns print "Olah:","\t", $number++, $row->[2]... }` [download] How should I structure this using `$csv->print`. Probably just a small hint/example will open my eyes (again). Gert	[reply] [d/l] [select]
Re^5: Problem when - use strict and -w by ikegami (Patriarch) on Jul 15, 2009 at 13:59 UTC
Re^5: Problem when - use strict and -w by Anonymous Monk on Jul 15, 2009 at 10:43 UTC
Re^6: Problem when - use strict and -w by GertMT (Hermit) on Jul 15, 2009 at 12:04 UTC


more useful options
	PerlMonks