Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
map   3579/s    --  -97%
x   129534/s 3519%    --
  2. or download this
    my $result = ('?, ' x $#test_array) . '?'
  3. or download this
    my $result = join(', ', map { '?' } @test_array);