Re^4: Creating CSV file

Or, much more consice:

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my @ports = qw(portname portID port802);
my @val1  = qw(ON ON OFF);
my @val2  = qw(EX EX NEX);

my $csv = Text::CSV->new ({sep_char => ';', eol => "\n", auto_diag => 
+1 });

for (@ports) {
    $csv->print (*STDOUT, [ $_, shift @val1, shift @val2 ]);
    }
[download]

Enjoy, Have FUN! H.Merijn

Comment on Re^4: Creating CSV file Download Code

Replies are listed 'Best First'.
Re^5: Creating <span style= by GrandFather (Saint) on Aug 01, 2010 at 12:15 UTC
Concise was not the point. Adopting an appropriate data structure was. Note that the meat of my reply however boils down to: `$csv->print (STDOUT, $_) for @records;` [download] where your 'concise' equivalent was: `for (@ports) { $csv->print (STDOUT, [ $_, shift @val1, shift @val2 ]); }` [download] which after all is part of why an appropriate data structure is a 'good thing'™ ;-) True laziness is hard work	[reply] [d/l] [select]
Re^6: Creating CSV file by Tux (Canon) on Aug 01, 2010 at 13:05 UTC
Very much so. My point was more that using `->combine ()` plus `print ..., "\n"` embedded in error checking code is not as efficient and readable as a single call to the `->print ()` method using the correct attributes in the constructor. Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]