https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!./perl | |
| 2 | ||
| 3 | # $RCSfile: ord.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:09 $ | |
| 4 | ||
| 5 | print "1..3\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";} | |
| 15 | ||
| 16 | if (chr 65 == A) {print "ok 3\n";} else {print "not ok 3\n";} |