home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / source / star.lzh / star.1 / samples / colorstar.perl < prev    next >
Encoding:
Text File  |  1990-03-27  |  393 b   |  17 lines
  1. $[ = 1;            # set array base to 1
  2. $\ = "\n";        # set output record separator
  3.  
  4. while (<>) {
  5.     chop;    # strip record separator
  6.     if ((substr($_, 15, 1) eq 'C')) {
  7.     $t = 'y9';
  8.     } elsif ((substr($_, 15, 1) eq 'N')) {
  9.     $t = 'g9';
  10.     } elsif ((substr($_, 15, 1) eq 'G')) {
  11.     $t = 'r9';
  12.     } else {
  13.         $t = '  ';
  14.     }
  15.     printf "%s%s%s\n", substr($_, 1, 16), $t, substr($_, 19, 999999);
  16. }
  17.