Help for this page

Select Code to Download


  1. or download this
    # https://www.perlmonks.org/index.pl?node=equal+treatment
    system 'clear';
    ...
      elsif (/3/) { print "Bye"; exit }
      else        { print "Try again." }
    }
    
  2. or download this
    # https://news.ycombinator.com/item?id=20127987
    import os
    ...
            exit()
        else:
            print "Try again."
    
  3. or download this
    # https://news.ycombinator.com/item?id=20123365
    clear
    ...
        echo "Try again." 
      fi
    done
    
  4. or download this
    REM https://news.ycombinator.com/item?id=20118639
    5 CLS
    ...
    310 IF RND>.5 THEN PRINT "/"; ELSE PRINT "\";
    320 GOTO 310
    400 PRINT "Bye."
    
  5. or download this
    use Inline Python => <<'END';
    # paste the py code here and run under perl! =)
    END