Help for this page

Select Code to Download


  1. or download this
    =~ /$commands[0]/         # Matches pattern in $commands[0]
    =~ /\Q$commands[0]\E/     # Contains string in $commands[0]
    =~ /^\Q$commands[0]\E\z/  # Equals string in $commands[0]
    eq $commands[0]           # Equals string in $commands[0]
    
  2. or download this
    if (
        grep { $commands_run[$_] ne $commands[$_] } 0..$#commands
    ...
    } else {
        print "Test -----PASS\n";
    }