Tenzij in Perl

tenzij statement in perl zich precies tegenover de if-instructie in perl gedraagt. Het voert de set uitspraken in zijn lichaam uit wanneer de gegeven voorwaarde vals is.

  tenzij (voorwaarde) {statement (s); } 

De verklaringen binnen tenzij het lichaam zou uitvoeren wanneer de voorwaarde vals is.

Voorbeeld

  #! / Usr / local / bin / perl printf "Voer een willekeurig nummer in:"; $ num = <STDIN>; tenzij ($ num> = 100) {printf "aantal is minder dan 100 \ n"; } 

Output:

  Voer een willekeurig nummer in: 99 num is minder dan 100