Help for this page

Select Code to Download


  1. or download this
    $ echo " x x x x x x x x
x x x x
 x x x x x x x x x" | perl -pe's/x/o/g && ++$c }{ print "Count = $c\n"
+'
Count = 3
  2. or download this
    $ echo " x x x x x x x x
x x x x
 x x x x x x x x x" | perl -pe'if ( s/x/o/g ) { ++$c } }{ print "Count
+ = $c\n"'
Count = 3
  3. or download this
    $ echo " x x x x x x x x
x x x x
 x x x x x x x x x" | perl -pe'$c += s/x/o/g }{ print "Count = $c\n"'
Count = 21