print data to csv file form an array

Question

I tried to print an array to a csv file, and to do this write this code:

use strict;
use warnings;

use Text::CSV;

use Text::CSV_XS;

my $csv = Text::CSV_XS->new();

my $file = "data.csv";

open(OUT, '<', $file) or die "Could not open '$file' $!\n";

my @columns = (qw/what ever the items are for each columns/);

my $status = $csv->print(OUT, \@columns);

And this script return me this: Bareword "OUT" not allowed while "strict subs" in use at test.pl line 37. Execution of test.pl aborted due to compilation errors.

I try to use Text::CSV or Text::CSV_XS to print data in csv and i need more information about syntax.

choroba · Accepted Answer · 2018-12-21 14:26:13Z

3

You can't use bareword filehandles as subroutine parameters. Use lexical filehandles instead:

open my $out, '<', $file or die ...;
$csv->print($out, \@columns);

Or, use the typeglob sigil (less preferable):

$csv->print(*OUT, \@columns);

Moreover, you opened the file for reading (<). You can't print to an input filehandle. Did you mean >?

answered Dec 21, 2018 at 14:26

choroba

245k27 gold badges221 silver badges304 bronze badges

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

Collectives™ on Stack Overflow

print data to csv file form an array

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