Commit | Line | Data |
---|---|---|
8d063cd8 | 1 | #!./perl |
2 | ||
fe14fcc3 | 3 | # $Header: ord.t,v 4.0 91/03/20 01:53:50 lwall Locked $ |
8d063cd8 | 4 | |
5 | print "1..2\n"; | |
6 | ||
7 | # compile time evaluation | |
8 | ||
9 | if (ord('A') == 65) {print "ok 1\n";} else {print "not ok 1\n";} | |
10 | ||
11 | # run time evaluation | |
12 | ||
13 | $x = 'ABC'; | |
14 | if (ord($x) == 65) {print "ok 2\n";} else {print "not ok 2\n";} |