Help for this page

Select Code to Download


  1. or download this
    if (0 < scalar grep { $_ == 9 } (1..10)) {
  2. or download this
    if (0 < scalar grep(sub { $_ == 9 }, (1..10))) {
  3. or download this
    if (0 < scalar grep(1, (1..10))) {
  4. or download this
    print '1. ', (join q{,}, sort               qw(a z b y)), "\n";
print '2. ', (join q{,}, sort { $a cmp $b } qw(a z b y)), "\n";
...
{
    return $a cmp $b;
}
  5. or download this
    # panics
print 'map2', (join q{,}, map(::myuc     qw(a z b y))), "\n";
...
{
    return uc($_[0]);
}