Re^2: How do I output each Perl array element sourrounded in quotes?

Replies are listed 'Best First'.
Re^3: How do I output each Perl array element sourrounded in quotes? by CountZero (Bishop) on Apr 18, 2009 at 17:48 UTC
Your solution adds double quotes around the empty elements. Try this: `print join ' ', map {qq("$_")} grep{$_} ('a', 'b', '', 'd', '', 'f');` [download] CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply] [d/l]
Re^4: How do I output each Perl array element sourrounded in quotes? by AnomalousMonk (Archbishop) on Apr 18, 2009 at 21:32 UTC
But grepping on `$_` filters out the string `'0'` or a numeric value of 0. `>perl -wMstrict -le "my @Array = ('A', undef, 'B', '0', 'C', 0); print join ' ', map {qq(\"$_\")} grep { $_ } @Array; " "A" "B" "C"` [download] Grepping on length will allow handling of `'0'` or 0, but is unhappy with an undefined value (if this should be an issue). `>perl -wMstrict -le "my @Array = ('A', undef, 'B', '0', 'C', 0); print join ' ', map {qq(\"$_\")} grep { length } @Array; " Use of uninitialized value in length at -e line 1. "A" "B" "0" "C" "0"` [download] Grepping on both defined and length handles a broad range of variations. `>perl -wMstrict -le "my @Array = ('A', undef, 'B', '0', 'C', 0); print join ' ', map {qq(\"$_\")} grep {defined and length} @Array; " "A" "B" "0" "C" "0"` [download]	[reply] [d/l] [select]