hweily

[root@hostname]# cat ascii2char.pl
#!/usr/bin/perl

#ASCII -> Charac
$ascii='65.83.67.73.73.95.116.111.95.67.104.97.114';
@ascii=split(/\./,$ascii);
foreach $asc(@ascii){
$char=chr($asc);
print "$char";
}
print "\n";

#Charac -> ASCII
$chara='ASCII_to_Char';
@chara=split(//,$chara);
#ord(), unpack("C*", )
foreach $cha(@chara){
$asc=ord($cha);
print "$asc";
if ($cha!~/$chara[-1]/){
print '.';
}
}
print "\n";

[root@hostname]# ./ascii2char.pl
ASCII_to_Char
65.83.67.73.73.95.116.111.95.67.104.97.114
[root@nocnat0 smc]#