- or download this
X:\>perl 11162789.pl
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16
+.
...
X:\>
- or download this
return %same == 1 ? 1 : 0;
- or download this
hasSameChars("ABC\x{ABCD}", "ABC\x{CDEF}") == 0 or
+ $ERRORS++;
- or download this
...
Use of uninitialized value in join or string at 11162789.pl line 14.
...
Use of uninitialized value in join or string at 11162789.pl line 14.
X:\>
- or download this
"@count"
- or download this
...
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16
+.
...
ERRORS = 0
X:\>