makehttpstrings

来自「一个嵌入式TCP/IP协议栈」· 代码 · 共 28 行

#!/usr/bin/perl

open(OUTPUTC, "> http-strings.c");
open(OUTPUTH, "> http-strings.h");

open(FILE, "http-strings");

while(<FILE>) {
  if(/(.+) "(.+)"/) {
    $var = $1;
    $data = $2;
    
    printf(OUTPUTC "char $var\[%d] = \n", length($data) + 1);
    printf(OUTPUTC "/* $data */\n");
    printf(OUTPUTC "{");
    for($j = 0; $j < length($data); $j++) {
      printf(OUTPUTC "%#02x, ", unpack("C", substr($data, $j, 1)));
    }
    printf(OUTPUTC "};\n");

    printf(OUTPUTH "extern char $var\[%d];\n", length($data) + 1);
    
  }
}
exit 0;

printf(OUTPUT "%#02x, ", unpack("C", $data));