Help for this page

Select Code to Download


  1. or download this
    if ($shell ne "" and $shell !~ /false|null/) {
      # it's ok
    }
    
  2. or download this
    if ($shell ne "" and $shell !~ /false/ and $shell !~ /null/) {
      # it's ok
    }
    
  3. or download this
    "foo" =~ /foo/;
    print grep //, qw( bar foobar );  # foobar