#!/usr/bin/perl # 設置數據文件名$counter_file='count.dat';#讀文件并自增if (-T $counter_file) {  open(FILE, $counter_file) || die $!;  $count = <FILE>;  close (FILE);  $count+=1;  } else {      $count=1;   }open (FILE, ">$counter_file");print FILE $count;close (FILE);#調用子程序輸出結果&initialize;&generateBitmap;&writeBitmap;exit;#初始化圖像數據子程序sub initialize {   $minLen = 6;           #最小長度   $isHigh = 1;           #等于0時，數字10位高；等于1時，數字16位高，加了邊界   $isInverse = 0;        #0時白底黑字，1時黑底白字   #數字位圖，8位寬10位高，@invdigits為黑底白字，@digits為白底黑字   @invdigits = ("c3 99 99 99 99 99 99 99 99 c3",  # 0                 "cf c7 cf cf cf cf cf cf cf c7",  # 1                 "c3 99 9f 9f cf e7 f3 f9 f9 81",  # 2                 "c3 99 9f 9f c7 9f 9f 9f 99 c3",  # 3                 "cf cf c7 c7 cb cb cd 81 cf 87",  # 4                 "81 f9 f9 f9 c1 9f 9f 9f 99 c3",  # 5                 "c7 f3 f9 f9 c1 99 99 99 99 c3",  # 6                 "81 99 9f 9f cf cf e7 e7 f3 f3",  # 7                 "c3 99 99 99 c3 99 99 99 99 c3",  # 8                 "c3 99 99 99 99 83 9f 9f cf e3"); # 9      @digits = ("3c 66 66 66 66 66 66 66 66 3c",  # 0                 "30 38 30 30 30 30 30 30 30 30",  # 1                 "3c 66 60 60 30 18 0c 06 06 7e",  # 2                 "3c 66 60 60 38 60 60 60 66 3c",  # 3                 "30 30 38 38 34 34 32 7e 30 78",  # 4                 "7e 06 06 06 3e 60 60 60 66 3c",  # 5                 "38 0c 06 06 3e 66 66 66 66 3c",  # 6                 "7e 66 60 60 30 30 18 18 0c 0c",  # 7                 "3c 66 66 66 3c 66 66 66 66 3c",  # 8                 "3c 66 66 66 66 7c 60 60 30 1c"); # 9}#位圖生成子程序sub generateBitmap {   @bytes = ();   $len = length($count) > $minLen ? length($count) : $minLen;   $formattedCount = sprintf("%0${len}d",$count);   if ($isHigh) {      for ($i = 0; $i < $len*4; $i++ ) {         if ($isInverse) {            push(@bytes,"ff");       # 每位數字增加三行空行         }         else {            push(@bytes,"00");         }      }   }   for ($y=0; $y < 10; $y++) {       for ($x=0; $x < $len; $x++) {           $digit = substr($formattedCount,$x,1);           if ($isInverse) {                            $byte = substr(@invdigits[$digit],$y*3,2);           }           else {               $byte = substr(@digits[$digit],$y*3,2);           }           push(@bytes,$byte);       }   }   if ($isHigh) {      for ($i = 0; $i < $len*4; $i++ ) {         if ($isInverse) {            push(@bytes,"ff");       # 每位數字增加三行空行         }         else {            push(@bytes,"00");         }      }   }}#位圖輸出子程序sub writeBitmap {print "Content-type: image/x-xbitmap\n\n";   if ($isHigh) {      printf ("#define count_width %d\n#define count_height 16\n",              $len*8);   }   else {      printf ("#define count_width %d\n#define count_height 10\n",              $len*8);   }   printf STDOUT "static char count_bits[] = {\n";   for($i = 0; $i < ($#bytes + 1); $i++) {      print("0x$bytes[$i]");      if ($i != $#bytes) {         print(",");         if (($i+1) % 7 == 0) {            print("\n");         }      }   }   print("};\n");}