Help for this page

Select Code to Download


  1. or download this
    my @x = map {$_*2} 1..3;
# --becomes-->
use English;
my @y = map { $ARG * 2 } 1..3;
  2. or download this
    my @x = map {sprintf("%02x",$_)} 45..48;
# --becomes-->
...
for my $val ( 45 .. 48 ) {
    push @z, sprintf "%02x", $val;
}
  3. or download this
    use Data::Dump;
dd( unpack "CCCCCC", "\xab\xcd\x00\x1d\x94\x56" );
__END__
(171, 205, 0, 29, 148, 86)
  4. or download this
    my  $q  = localtime(time);
my ($r) = localtime(time);
...
scalar
list
void