Board logo

标题: [原创代码] [Perl]列举MinGW中指定C语言库的依赖关系 [打印本页]
作者: 523066680    时间: 2015-6-9 23:26     标题: [Perl]列举MinGW中指定C语言库的依赖关系

本帖最后由 523066680 于 2015-6-9 23:42 编辑

初始版本，做了格式化输出。

示例库文件： "windows.h"
相关目录保存于 @dirs 数组中

备注：如果一个函数库已经出现过，则忽略，避免进入死循环
     if ($Lv < 5) { 设定最大递归层，可不设限
  1. =info

  2.     523066680@163.com

  3.     2015-06-09

  4. =cut

  5. 

  6. our @dirs = (

  7.     "C:/MinGW/lib/gcc/mingw32/4.7.2/include",

  8.     "C:/MinGW/Include"

  9. );

  10. 

  11. our %name;

  12. our %hash;

  13. 

  14. my $headfile = "windows.h";

  15. func(0, ".", $headfile);

  16. tree(\%hash);

  17. 

  18. sub func {

  19.     our @dirs;

  20.     our %hash;

  21.     our %name;

  22.     my $fullpath;

  23.     my ($Lv, $parent, $fname) = @_;

  24.     my @all;

  25. 

  26.     return if (exists $name{$fname});

  27.     $name{$fname} = 1;

  28.     $hash{$parent.":".$fname} = $Lv;

  29. 

  30.     foreach (@dirs) {

  31.         $fullpath = "$_/$fname" if (-e "$_/$fname");

  32.     }

  33.     return 0 if (! defined $fullpath);

  34.     ReadFile(\@all, $fullpath);

  35. 

  36.     foreach (@all) {

  37.         if (/#include <(.*)>/) {

  38.             if ($Lv < 5) {

  39.                 func($Lv+1, $parent.":".$fname, $1);

  40.             }

  41.         }

  42.     }

  43. }

  44. 

  45. sub tree {

  46.     my $ref = shift;

  47.     my ($a, $b);

  48.     my ($e, $v) = (-1, undef);

  49. 

  50.     foreach (sort keys %$ref) {

  51.         $v = $ref->{$_};

  52.         s/(.*:)([^:]+)$/$2/;

  53.         

  54.         if ( $v <= $e) {

  55.             print "\n" . " "x(length($1) - $v - 2  + ($v)*3);

  56.         }

  57.         print " > " . $2;

  58.         $e = $v;

  59.     }

  60. }

  61. 

  62. sub ReadFile {

  63.     my ($aref, $fullpath) = (shift, shift);

  64.     open READ, "<", $fullpath or die "$!\n";

  65.     @{$aref} = <READ>;

  66.     close READ;

  67. }
复制代码

> windows.h > _mingw.h > sdkddkver.h
             > cderr.h
             > commdlg.h > unknwn.h > objfwd.h
                                    > wtypes.h > rpcndr.h > rpcnsip.h
             > ddeml.h
             > imm.h
             > lzexpand.h
             > mmsystem.h
             > nb30.h
             > ole2.h > objbase.h > cguid.h
                                  > objidl.h
                                  > stdlib.h
                      > oleauto.h > oaidl.h
                      > olectlid.h
                      > oleidl.h
             > rpc.h > excpt.h
                     > rpcdce.h > basetyps.h
                                > rpcdcep.h
                     > rpcnsi.h
                     > rpcnterr.h
             > shellapi.h > pshpack2.h
             > stdarg.h
             > winbase.h
             > wincon.h
             > windef.h
             > wingdi.h
             > winnetwk.h
             > winnls.h
             > winperf.h
             > winreg.h > reason.h
             > winresrc.h > commctrl.h > prsht.h
                          > dde.h
                          > dlgs.h
                          > winnt.h > basetsd.h
                                    > poppack.h
                                    > pshpack4.h
                                    > string.h > stddef.h > machine/ansi.h
                                                          > sys/_types.h
                                    > winerror.h
                          > winuser.h
                          > winver.h
             > winsock.h > mswsock.h
             > winspool.h
             > winsvc.h
作者: 523066680    时间: 2015-6-10 15:13     标题: 按顺序输出

本帖最后由 523066680 于 2015-6-10 15:17 编辑

修正问题： 正则表达式（考虑部分#include 采用的是 双引号，以及#include 尾部含有注释<>""的情况）
.
  1. =info

  2.     523066680@163.com

  3.     2015-06-09

  4. =cut

  5. 

  6. use feature 'state';

  7. 

  8. our @dirs = (

  9.     "C:/MinGW/lib/gcc/mingw32/4.7.2/include",

  10.     "C:/MinGW/Include",

  11. );

  12. 

  13. our %name;

  14. our %hash;

  15. 

  16. my $headfile = "windows.h";

  17. func(0, ".", $headfile);

  18. 

  19. sub func {

  20.     our @dirs;

  21.     our %name;

  22.     my $fullpath;

  23.     my ($Lv, $parent, $fname) = @_;

  24.     my @all;

  25. 

  26.     foreach (@dirs) {

  27.         if (-e "$_/$fname") {

  28.             $fullpath = "$_/$fname";

  29.         }

  30.     }

  31. 

  32.     return if (exists $name{$fname});

  33.     return if (! defined $fullpath);

  34. 

  35.     $name{$fname} = 1;

  36.     Xprint($Lv, $parent, $fname);

  37.     ReadFile(\@all, $fullpath);

  38. 

  39.     foreach (@all) {

  40.         if (/#include ["<](.*?)[">]/) {

  41.             func($Lv+1, $parent.":".$fname, $1);

  42.         }

  43.     }

  44. }

  45. 

  46. sub Xprint {

  47.     state $e = -1;

  48.     my ($Lv, $parent, $fname) = @_;

  49.     if ( $Lv <= $e) {

  50.         print "\n";

  51.         print " "x(length($parent) + ($Lv)*2 - 1);

  52.     }

  53.     print " > " . $fname;

  54.     $e = $Lv;

  55. }

  56. 

  57. sub ReadFile {

  58.     my ($aref, $fullpath) = (shift, shift);

  59.     open READ, "<", $fullpath or die "$!\n";

  60.     @{$aref} = <READ>;

  61.     close READ;

  62. }
复制代码
> windows.h > _mingw.h > sdkddkver.h
             > winresrc.h > winuser.h
                          > winnt.h > winerror.h
                                    > string.h > stddef.h
                                    > basetsd.h
                                    > pshpack4.h
                                    > poppack.h
                          > winver.h
                          > dde.h
                          > dlgs.h
                          > commctrl.h > prsht.h
             > stdarg.h
             > windef.h
             > wincon.h
             > winbase.h
             > wingdi.h
             > winnls.h
             > winnetwk.h
             > winreg.h > reason.h
             > winsvc.h
             > cderr.h
             > ddeml.h
             > imm.h
             > lzexpand.h
             > mmsystem.h
             > nb30.h
             > rpc.h > rpcdce.h > basetyps.h
                                > rpcdcep.h
                     > rpcnsi.h
                     > rpcnterr.h
                     > excpt.h
             > shellapi.h > pshpack2.h
             > winperf.h
             > commdlg.h > unknwn.h > objfwd.h
                                    > wtypes.h > rpcndr.h > rpcnsip.h
             > winspool.h
             > winsock.h > mswsock.h
             > ole2.h > objbase.h > stdlib.h
                                  > objidl.h
                                  > cguid.h
                      > olectlid.h
                      > oleauto.h > oaidl.h
                      > oleidl.h
作者: 523066680    时间: 2022-3-27 09:47

本帖最后由 523066680 于 2022-3-27 12:15 编辑

最近看到类似问题，发现以前的代码有一些写的不好的地方，更新一下
  1. =info

  2.     523066680@163.com

  3.     2015-06-09

  4.     Update: 2022-03-27

  5. =cut

  6. 

  7. use File::Slurp;

  8. STDOUT->autoflush(1);

  9. 

  10. our $MAX_LEVEL = 6; # 递归层级

  11. our @dirs = (       # 搜索范围

  12.    "C:/MinGW/x86_64-w64-mingw32/include",

  13.    "C:/MinGW/Include",

  14. );

  15. 

  16. our %names;

  17. our %tree;

  18. 

  19. my $headfile = "windows.h";

  20. recur(0, ".", $headfile);

  21. dumptree(\%tree);

  22. 

  23. sub recur 

  24. {

  25.     my ($lv, $parent, $fname) = @_;

  26.     my @all;

  27. 

  28.     return if (exists $names{$fname});    # 确保库文件名只处理一次

  29.     $names{$fname} = 1;

  30.     $tree{$parent." > ".$fname} = [ $parent, $fname, $lv];

  31. 

  32.     my $fullpath;

  33.     # 遍历备选地址，找到包含该库文件的路径

  34.     grep { $fullpath = "$_/$fname" if -f "$_/$fname" } @dirs;

  35.     return 0 if (! defined $fullpath);

  36. 

  37.     my @lines = read_file( $fullpath );

  38.     for my $e ( @lines ) 

  39.     {

  40.         if ( $e =~ /#include\s+["<](.*)[">]/ and $lv < $MAX_LEVEL ) 

  41.         {

  42.             recur($lv+1, $parent." > ".$fname, $1);

  43.         }

  44.     }

  45. }

  46. 

  47. sub dumptree 

  48. {

  49.     my $tree = shift;

  50.     my $level = -1;

  51.     for my $fullpath (sort keys %$tree) 

  52.     {

  53.         my ($path, $fname, $v) = @{$tree->{$fullpath}};

  54. 

  55.         # 同级或者向上层级，打印前置缩进；子级不换行，递进显示

  56.         print "\n" . " "x(length($path)-1) if $v <= $level;

  57.         print " > " . $fname;

  58.         $level = $v;

  59.     }

  60. }
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2