Perl CGIプログラミング入門 〜　WEBプログラマのためのプログラミング習得講座

ord(ASCII文字)

プログラム　例1

[it-engineer@home1 perl]# more 20070521-21.pl
#!/usr/bin/perl

$ascii_value = ord("p");
print "pのASCIIコード値は、" , $ascii_value , "\n";

$ascii_value = ord("e");
print "eのASCIIコード値は、" , $ascii_value , "\n";

$ascii_value = ord("r");
print "rのASCIIコード値は、" , $ascii_value , "\n";

$ascii_value = ord("l");
print "lのASCIIコード値は、" , $ascii_value , "\n";

例1の実行結果

[it-engineer@home1 perl]# perl 20070521-21.pl
pのASCIIコード値は、112
eのASCIIコード値は、101
rのASCIIコード値は、114
lのASCIIコード値は、108
[it-engineer@home1 perl]#

プログラム　例2

#!/usr/bin/perl

$ascii_letter = chr("112");
print "112番目のASCII文字は、" , $ascii_letter , "\n";

$ascii_letter = chr("101");
print "101番目のASCII文字は、" , $ascii_letter , "\n";

$ascii_letter = chr("114");
print "114番目のASCII文字は、" , $ascii_letter , "\n";

$ascii_letter = chr("108");
print "108番目のASCII文字は、" , $ascii_letter , "\n";

例2の実行結果

[it-engineer@home1 perl]# perl 20070521-22.pl
112番目のASCII文字は、p
101番目のASCII文字は、e
114番目のASCII文字は、r
108番目のASCII文字は、l
[it-engineer@home1 perl]#