gnu/usr.bin/ptx/examples/ajay/x.pl

   1 #! /usr/local/bin/perl
   2
   3 while ($l = <>)
   4 {
   5 chop $l;
   6
   7 $l =~ s/\\xx //;
   8 $l =~ s/}{/|/g;
   9 $l =~ s/{//g;
  10 $l =~ s/}//g;
  11 @x = split(/\|/, $l);
  12
  13 printf ("\\xx ");
  14 for ($i = 0; $i <= $#x; $i++)
  15     {
  16     $v = substr($x[$i], 0, 17);
  17     $v =~ s/\\$//;
  18     printf("{%s}", $v);
  19     }
  20 printf ("\n");
  21
  22 }