NAME Data::Rmap - recursive map, apply a block to a data structure SYNOPSIS $ perl -MData::Rmap -e 'print rmap { $_ } 1, [2,3], \\4, "\n"' 1234 $ perl -MData::Rmap=:all rmap_all { print (ref($_) || "?") ,"\n" } \@array, \%hash, \*glob; # OUTPUT (Note: a GLOB always has a SCALAR, hence the last two items) # ARRAY # HASH # GLOB # SCALAR # ? # Upper-case your leaves in-place $array = [ "a", "b", "c"
![Data::Rmap](https://cdn-ak-scissors.b.st-hatena.com/image/square/c4a607b5430575638fd9a7f233e073d867af4bb7/height=288;version=1;width=512/https%3A%2F%2Fmetacpan.org%2Fstatic%2Fimages%2Fdots.png)