a "replacement" for awk and sed
[perl.git] / t / op.ord
1 #!./perl
2
3 # $Header: op.ord,v 1.0 87/12/18 13:14:01 root Exp $
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";}