unifont.hex減肥php腳本

roytam1

使用 CP***.TXT 來限定新的 unifont.hex 所擁有的字數。
CP***.TXT 可在 unicode.org 下載： http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/

用法：
php tbl4slim.php [TXT檔...]
如：
php tbl4slim.php CP936.TXT CP950.TXT

新生成的為 unifont.hex.slim

1. <?php
   
2. 
   
3. $txtfiles = array();
   
4. $txtary = array();
   
5. 
   
6. $chrs = array();
   
7. $newunifonthex = array();
   
8. 
   
9. if($_SERVER['argc'] < 2) {
   
10.         fwrite(STDERR, "Usage: ".$_SERVER['argv'][0]." {TXT files...}\n");
    
11.         exit(2);
    
12. }
    
13. if(!file_exists('./unifont.hex')) {
    
14.         fwrite(STDERR, "Error: unifont.hex not found!\n");
    
15.         exit(1);
    
16. }
    
17. 
    
18. for($i=1;$i<$_SERVER['argc'];++$i) {
    
19.         if(!file_exists($_SERVER['argv'][$i])) {
    
20.                 fwrite(STDERR, "Warning: ".$_SERVER['argv'][$i]." is not found.\n");
    
21.         } else {
    
22.                 $txtfiles[] = file($_SERVER['argv'][$i]);
    
23.         }
    
24. }
    
25. foreach($txtfiles as $t) {
    
26.         foreach($t as $l) {
    
27.                 $txtary = explode("\t",$l);
    
28.                 if(isset($txtary[1]) && substr($txtary[1],0,2)=='0x') $chrs[$txtary[1]] = 1;
    
29.         }
    
30. }
    
31. 
    
32. $txtary = file('./unifont.hex');
    
33. foreach($txtary as $l) {
    
34.         if(isset($chrs['0x'.substr($l,0,4)])) $newunifonthex[] = $l;
    
35. }
    
36. 
    
37. $fp = fopen('./unifont.hex.slim','wb');
    
38. fwrite($fp,implode('',$newunifonthex));
    
39. fclose($fp);
    

复制代码