Help for this page

Select Code to Download


  1. or download this
    if ($expire < 1 ||  14 < $expire || int $expire != $expire) { die "Don't tamper with me!"; }
  2. or download this
    my %check;
undef @check{1..14};

if (! exists $check{$expire}) { die "Don't tamper with me!"; }
  3. or download this
    if ($expire !~ /^(?:[1-9]|1[0-4])$/) { die "Don't tamper with me!"; }
  4. or download this
    use Quantum::Superpositions;

if ($expire != any(1..14)) { die "Don't tamper with me!"; }