- or download this
map { $val .= sprintf("%02x",$_) } unpack "CCCCCC", $octetstr;
- or download this
$val .= sprintf("%02x",$_) for unpack "CCCCCC", $octetstr;
- or download this
# result from map is discarded
# side effect: $val is populated
...
# result from die is discarded (if any), print not done
# side effect: well...
print die;