from_ord

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     from_ord
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-01-13 17:55:26
   5 ###APPVER:      0.1
   6 ###APPDESC:     from_ord
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  from_ord
   9 ###APPOPTION:
  10 use strict;
  11
  12 my $old=join("",@ARGV);
  13 $old =~ s/\s*,\s*,\s*/,/g;
  14 $old =~ s/^,+//;
  15 #$old =~ s/,+$//;
  16 $old =~ s/([^,]+)(:?,|$)/chr($1)/ge;
  17 print $old;
  18