map { $_ ? $_ : () }
means (if we pretend that there's a built-in function is_true()) the same as:
map {
if (is_true($_)) {
$_;
}
else {
();
}
}
In Perl, there are five things that are considered false: undef, the empty string, the number zero (including when written 0e0, 0.0, etc), the string "0" (but not strings like "0e0" or "0.0") and objects which overload conversion to boolean to return false.
The zeros passing through your map are false, thus go down the "else" path.
So we don't want to test is_true; we want to test whether each string has any characters... i.e. a non-zero length:
map { length($_) ? $_ : () }
Any any map which ends with ?$_:() should probably be a grep:
grep { length($_) }
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
|