Help for this page

Select Code to Download


  1. or download this
    grep /\Q$choice\E/, @REPORT && do {
    last READ_LOOP;
};
  2. or download this
    grep /\Q$choice\E/, (
   @REPORT && do { last READ_LOOP; }
);
  3. or download this
    >perl -MO=Deparse,-p -e"grep /\Q$choice\E/, @REPORT && do { last READ_
+LOOP; };"
grep(/\Q$choice\E/, (@REPORT && do {
    last READ_LOOP
}));
-e syntax OK
  4. or download this
    grep(/\Q$choice\E/, @REPORT)    # OK
   && last READ_LOOP;
  5. or download this
    grep /\Q$choice\E/, @REPORT     # OK
   and last READ_LOOP;
  6. or download this
    grep(/\Q$choice\E/, @REPORT)    # OK
   and last READ_LOOP;