#!/usr/local/bin/perl ############################################################################## # # File: hideq.pl # Purpose: hides any single (') or double (") quote marks that # do not appear as part of a cpp directive. Single quotes # are recoded as a binary 1, double quotes are recoded as a # binary 2. To be used with unhideq.pl # # Calling # Sequence: unhideq.pl [] # # Author: Tom Parris ############################################################################## while (<>) { if (!/^#/) { s/'/\001/g ; s/"/\002/g ; } print; }