Help for this page

Select Code to Download


  1. or download this
    $ perl -le'for( qw/foo bar baz blah/ ){ print int scalar( /b/ .. // ) 
+}'
0
...
1
1
0
  2. or download this
    $ perl -le'for( qw( foo bar baz quux ), "" ){ print int scalar( /b/ ..
+ /$^/ ) }'
0
...
1
2
3
  3. or download this
    log_failure()
    unless grep {
        ( exists $hash{$_} and ( do_something($_), 1 ) )
        .. /$^/
    } @options;