Modifying array data during print

DrAxeman has asked for the wisdom of the Perl Monks concerning the following question:

In my @cols array, each element has an _ in it. I want to convert this into an , during output. My code looks like:

my %avgsHash;
@avgsHash{ @cols } = map {to_decimal($_)} @avgs;
print "Server,Statistic,Average\n";
printf("%s,%f\n", $_, $avgsHash{$_}) for @cols;
[download]

Current output looks like:

Server,Statistic,Average
ERRWWW_CPUPCT,5.1221
ERRWWW_RAMPCT,12.2332
[download]

Currently I'm piping my output through "sed" to modify this. I'm hoping that I can get it done in the code. I've tried a s/_/\,/g during the printf, but that failed.

Thanks

Comment on Modifying array data during print Select or Download Code

Replies are listed 'Best First'.
Re: Modifying array data during print by Zaxo (Archbishop) on Aug 07, 2005 at 04:18 UTC
If you don't want to change the the @cols array as you print (your hash keys are untranslated), it's as simple as: `for (@cols) { (my $changed = $_) =~ tr/_/,/; printf("%s,%f\n", $changed, $avgsHash{$_}); }` [download] That just makes a copy before doing translation. After Compline, Zaxo	[reply] [d/l]
Re: Modifying array data during print by davidrw (Prior) on Aug 07, 2005 at 14:10 UTC
Sort of combining your attempt and Zaxo's solution (differs in that it constructs the hash differently; which is better depends on what you need these vars for later): `my %avgsHash; my @cols2 = map { tr/_/,/; $_ } @cols2; @avgsHash{ @cols2 } = map {to_decimal($_)} @avgs; print "Server,Statistic,Average\n"; printf("%s,%f\n", $_, $avgsHash{$_}) for @cols2;` [download] Also note that commas don't need escaping in regex's. e.g. `s/,/A/g` and `s/A/,/g` will both work fine.	[reply] [d/l] [select]