to_ord

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     to_ord
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-01-13 17:53:59
   5 ###APPVER:      0.1
   6 ###APPDESC:     to_ord
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  to_ord
   9 ###APPOPTION:
  10 use strict;
  11 my $old=join(" ",@ARGV);
  12 $old =~ s/(.)/ord($1) . ","/ge;
  13 print $old;
  14 exit 0;
  15