Next Welcome to my ~/bin 73

Interlude: the good old days

I wrote this around March of 1988:

     /* Take a man page and strip out the _^H's. */
     #include <stdio.h>
     #define CTLH 8 /* Code for a control-H */

     main()
     {
     char c;
     int ulflag = 0; /* set this if I just read an underline character */

     while ((c= getchar()) != EOF)
       {
       if (ulflag == 1)
         {
         ulflag = 0;
         if (c != CTLH)
           printf("_%c",c);
         }
       else 
         {
         if (c == '_')
           ulflag = 1;
         else
           printf("%c",c);
         }
       }
     }

Here's how I would write it in March of 2005:

        #!/usr/bin/perl -lp
        s/_\cH//g;