Help for this page

Select Code to Download


  1. or download this
    ( my @a = `route print`=~ m!0.0.0.0!g ) > 3
  2. or download this
    ( () = `route print`=~ m!0.0.0.0!g ) > 3
  3. or download this
    my $n = $str =~ m/this/g;
  4. or download this
    my $n = () = $str =~ m/this/g;
my $n = grep 1, $str =~ m/this/g;
my $n = map $_, $str =~ m/this/g;
  5. or download this
    my $n = 0; ++$n while $str =~ m/this/g;