perl as php

Php code posted by anon
created at 14 Feb 22:16

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use strict;
use Switch;

my $x = undef;

if (defined($x)) { print("X Does Not Fail\n\n"); }
else { print("X Fails\n\n");}

my $y = $x & 1;
if (defined($y)) { print("Y Does Not Fail\n\n"); }
else { print("Y Fails\n\n");}

my $failure |= ($x >> 2) & 1;
if (defined($failure)) { print("Does Not Fail\n\n"); }
else { print("Fails\n\n");}
347 Bytes in 2 ms with coderay