scripts/mk_conf.pl

   1 #!/usr/bin/perl
   2
   3 open(QCONF, "quarnconf.h");
   4 @conf_ = <QCONF>;
   5
   6 $conf = "";
   7
   8 for $next (@conf_) {
   9         $conf .= $next;
  10 }
  11
  12 if ($conf =~ /#define $ARGV[0]\t\t(.)/) {
  13         print $1;
  14 }
  15