文章详情

  • 游戏榜单
  • 软件榜单
关闭导航
热搜榜
热门下载
热门标签
php爱好者> php文档>Perl 内置函数 chr/ord 示例

Perl 内置函数 chr/ord 示例

时间:2009-01-18  来源:MMMIX

Perl 内置函数 chr/ord 示例

Perl 的内置函数 chr/ord 可用来在 Unicode code point(为一数字)和 character 之间转换,下面是使用它们的两个简单示例。

#!/usr/bin/perl

# t0.pl

use strict;
use warnings;

binmode (STDIN, ":utf8");
binmode (STDOUT, ":utf8");
while(<>){
    chomp;
    my $c = ord;
    printf "$_ = 0x%x\n", $c;
}



#!/usr/bin/perl

# t1.pl

use strict;
use warnings;

binmode (STDOUT, ":utf8");
while(<>){
    chomp;
    my $c = chr(hex);
    print "$_ = $c\n";
}


注意在 t1.pl 中,由于假设读入的数字为 16进制,因此需要用 hex 转换一下。

例子
$ cat t0

$ cat t1
0x263a
$ ./t0.pl < t0
☺ = 0x263a
$ ./t1.pl < t1
0x263a = ☺


BTW,虽然这种小例子程序没有必要用 use strict; use warnings; 但应养成用它们的习惯,尤其是借助一些脚本,例如 建立各种脚本的脚本
相关阅读 更多 +
排行榜 更多 +
点赞小姐姐

点赞小姐姐

休闲益智 下载
火车向前冲

火车向前冲

休闲益智 下载
遭遇攻击任务

遭遇攻击任务

飞行射击 下载