Borland Programmer's Resource/Borland_Programmers_Resource_CD_1995.iso/ntcode/ntperlb/t/op/magic.nt

Text File | 1995-05-19 | 505 b | 23 lines

#!./perl

$| = 1;        # command buffering

print "1..3\n";

eval '$ENV{"foo"} = "hi there";';    # check that ENV is inited inside eval
if (`echo %foo%` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}

unlink 'ajslkdfpqjsjfk';
$! = 0;
open(foo,'ajslkdfpqjsjfk');
if ($! == 22) {print "ok 2\n";} else {printf ("not ok 2# %d\n", $!);}

@val1 = @ENV{keys(%ENV)};    # can we slice ENV?
@val2 = values(%ENV);

print join(':',@val1) eq join(':',@val2) ? "ok 3\n" : "not ok 3\n";