程序:
#!/usr/bin/perl -w use strict; my $num=ord 'E'; print "The ASCII is : $num\n"; my $word=chr(69); print "The word is : $word\n";
结果:
The ASCII is : 69
The word is : E
#!/usr/bin/perl -w use strict; my $num=ord 'E'; print "The ASCII is : $num\n"; my $word=chr(69); print "The word is : $word\n";
结果:
The ASCII is : 69
The word is : E