system_info模块

在看了Erlang新增全面的系统信息收集器-system_information模块之后，自己下载最新的代码，查看该模块，仔细看了一下

report() -> [
	{init_arguments,    init:get_arguments()},
	{code_paths,        code:get_path()},
	{code,              code()},
	{system_info,       erlang_system_info()},
	{erts_compile_info, erlang:system_info(compile_info)},
	{beam_dynamic_libraries, get_dynamic_libraries()},
	{environment_erts,  os_getenv_erts_specific()},
	{environment,       [split_env(Env) || Env <- os:getenv()]}
    ].

[list]

{init_arguments,    init:get_arguments()}，对应的是vm的启动参数，详细信息参考文档中的erts中的init模块。

{code_paths,        code:get_path()},对应的是加载到vm中模块的路径

{code,              code()},对应的是加载路径内相应代码的详细信息：

当路径是一个application的路径时，对应的信息是：

{application,
    {AppName, [
		    {description, proplists:get_value(description, Info, [])},
		    {vsn,         proplists:get_value(vsn, Info, [])},
		    {path,        Path},
		    {modules,     [
                                   {Mod, [
                                           {loaded,   Loaded},
                                           {native,   beam_is_native_compiled(Beam)},
                                           {compiler, get_compiler_version(Beam)},
                                           {md5,      hexstring(Md5)}
                                          ]}]}]}}

{system_info,       erlang_system_info()},对应的是调用erlang:system_info(Ele)获得信息列表，其中Ele组成的列表是：

[
	    allocator,
	    check_io,
	    otp_release,
	    port_limit,
	    process_limit,
	    % procs,  % not needed
	    smp_support,
	    system_version,
	    system_architecture,
	    threads,
	    thread_pool_size,
	    {wordsize,internal},
	    {wordsize,external},
	    {cpu_topology, defined},
	    {cpu_topology, detected},
	    scheduler_bind_type,
	    scheduler_bindings,
	    compat_rel,
	    schedulers_state,
	    build_type,
	    logical_processors,
	    logical_processors_online,
	    logical_processors_available,
	    driver_version,
	    emu_args,
	    ethread_info,
	    beam_jump_table,
	    taints
	]

{erts_compile_info, erlang:system_info(compile_info)},对应的信息参考erlang模块

{beam_dynamic_libraries, get_dynamic_libraries()},对应的是：vm依赖的动态库情况

{environment_erts,  os_getenv_erts_specific()},对应的是：erts运行的环境变量

{environment,       [split_env(Env) || Env <- os:getenv()]}，对应的是所有的系统环境变量

[/list]

评论

3 楼 liumengfan 2013-07-31  

{beam_dynamic_libraries, get_dynamic_libraries()},实际上执行的是系统命令

get_dynamic_libraries() ->
    Beam = filename:join([os:getenv("BINDIR"),get_beam_name()]),
    case os:type() of
	{unix, darwin} -> os:cmd("otool -L " ++ Beam);
	_ -> os:cmd("ldd " ++ Beam)
    end.

当是unix时执行otool -L beam.smp[beam,beam.debug.smp,beam.debug]
其他时执行ldd beam.smp[beam,beam.debug.smp,beam.debug]

$ ldd /usr/local/lib/erlang/erts-5.10.2/bin/beam.smp
	linux-vdso.so.1 =>  (0x00007fff52c2b000)
	libutil.so.1 => /lib64/libutil.so.1 (0x000000392c400000)
	libdl.so.2 => /lib64/libdl.so.2 (0x000000391e400000)
	libm.so.6 => /lib64/libm.so.6 (0x000000391ec00000)
	libncurses.so.5 => /lib64/libncurses.so.5 (0x000000392d000000)
	libpthread.so.0 => /lib64/libpthread.so.0 (0x000000391f000000)
	librt.so.1 => /lib64/librt.so.1 (0x000000391f800000)
	libc.so.6 => /lib64/libc.so.6 (0x000000391e800000)
	libtinfo.so.5 => /lib64/libtinfo.so.5 (0x0000003931000000)
	/lib64/ld-linux-x86-64.so.2 (0x000000391e000000)

获取Beam的代码如下：

get_beam_name() ->
    Type = case erlang:system_info(build_type) of
	opt -> "";
	TypeName -> "." ++ atom_to_list(TypeName)
    end,
    Flavor = case erlang:system_info(smp_support) of
	false -> "";
	true -> ".smp"
    end,
    Beam = case os:getenv("EMU") of
	false -> "beam";
	Value -> Value
    end,
    Beam ++ Type ++ Flavor.

其中erlang:system_info(build_type)返回的结果可能是以下可能，具体参见文档

                      opt |
                      debug |
                      purify |
                      quantify |
                      purecov |
                      gcov |
                      valgrind |
                      gprof |
                      lcnt |
                      frmptr

2 楼 liumengfan 2013-07-31  

{environment,       [split_env(Env) || Env <- os:getenv()]}，对应的细节是：

split_env(Env) ->
    split_env(Env, []).

split_env([$=|Vs], Key) -> {lists:reverse(Key), Vs};
split_env([I|Vs], Key)  -> split_env(Vs, [I|Key]);
split_env([], KV)       -> lists:reverse(KV). % should not happen.

os:getenv()获得的结果是：

["module=() {  eval `/usr/bin/modulecmd bash $*`\n}",
 "XAUTHORITY=/var/run/gdm/auth-for-liufan-RKsU4w/database",
 "COLORTERM=gnome-terminal","G_BROKEN_FILENAMES=1",
 "DISPLAY=:0.0","WINDOWPATH=1",
 "LESSOPEN=|/usr/bin/lesspipe.sh %s",
 "MODULESHOME=/usr/share/Modules",
 "DBUS_SESSION_BUS_ADDRESS=unix:abstract=/tmp/dbus-AjSkT7YKdz,guid=755d7685de583da75ff5da770000002a",
 "QTLIB=/usr/lib64/qt-3.3/lib","CVS_RSH=ssh",
 "LOGNAME=liufan",
 "GNOME_DESKTOP_SESSION_ID=this-is-deprecated",
 "HOME=/home/liufan","SHLVL=2",
 "SSH_ASKPASS=/usr/libexec/openssh/gnome-ssh-askpass",
 "HISTCONTROL=ignoredups","GDMSESSION=gnome",
 "LOADEDMODULES=","KDEDIRS=/usr",
 "MODULEPATH=/usr/share/Modules/modulefiles:/etc/modulefiles",
 "GDM_LANG=zh_CN.utf8","PROGNAME=erl","LANG=zh_CN.utf8",
 "KDE_IS_PRELINKED=1","GNOME_KEYRING_PID=2988",
 "GDM_KEYBOARD_LAYOUT=us","XMODIFIERS=@im=ibus",
 [...]|...]

而转换后的结果是

{environment,[{"module",
               "() {  eval `/usr/bin/modulecmd bash $*`\n}"},
              {"XAUTHORITY",
               "/var/run/gdm/auth-for-liufan-RKsU4w/database"},
              {"COLORTERM","gnome-terminal"},
              {"G_BROKEN_FILENAMES","1"},
              {"DISPLAY",":0.0"},
              {"WINDOWPATH","1"},
              {"LESSOPEN","|/usr/bin/lesspipe.sh %s"},
              {"MODULESHOME","/usr/share/Modules"},
              {"DBUS_SESSION_BUS_ADDRESS",
               "unix:abstract=/tmp/dbus-AjSkT7YKdz,guid=755d7685de583da75ff5da770000002a"},
              {"QTLIB","/usr/lib64/qt-3.3/lib"},
              {"CVS_RSH","ssh"},
              {"LOGNAME","liufan"},
              {"GNOME_DESKTOP_SESSION_ID","this-is-deprecated"},
              {"HOME","/home/liufan"},
              {"SHLVL","2"},
              {"SSH_ASKPASS","/usr/libexec/openssh/gnome-ssh-askpass"},
              {"HISTCONTROL","ignoredups"},
              {"GDMSESSION","gnome"},
              {"LOADEDMODULES",[]},
              {"KDEDIRS","/usr"},
              {"MODULEPATH",
               "/usr/share/Modules/modulefiles:/etc/modulefiles"},
              {"GDM_LANG","zh_CN.utf8"},
              {"PROGNAME","erl"},
              {"LANG","zh_CN.utf8"},
              {"KDE_IS_PRELINKED",[...]},
              {[...],...},
              {...}|...]}

1 楼 liumengfan 2013-07-31  

其中{environment_erts,  os_getenv_erts_specific()},对应的是：erts运行的环境变量涉及到的变量如下：

[
	    "BINDIR",
	    "DIALYZER_EMULATOR",
	    "CERL_DETACHED_PROG",
	    "EMU",
	    "ERL_CONSOLE_MODE",
	    "ERL_CRASH_DUMP",
	    "ERL_CRASH_DUMP_NICE",
	    "ERL_CRASH_DUMP_SECONDS",
	    "ERL_EPMD_PORT",
	    "ERL_EMULATOR_DLL",
	    "ERL_FULLSWEEP_AFTER",
	    "ERL_LIBS",
	    "ERL_MALLOC_LIB",
	    "ERL_MAX_PORTS",
	    "ERL_MAX_ETS_TABLES",
	    "ERL_NO_VFORK",
	    "ERL_NO_KERNEL_POLL",
	    "ERL_THREAD_POOL_SIZE",
	    "ERLC_EMULATOR",
	    "ESCRIPT_EMULATOR",
	    "HOME",
	    "HOMEDRIVE",
	    "HOMEPATH",
	    "LANG",
	    "LC_ALL",
	    "LC_CTYPE",
	    "PATH",
	    "PROGNAME",
	    "RELDIR",
	    "ROOTDIR",
	    "TERM",
	    %"VALGRIND_LOG_XML",

	    %% heart
	    "COMSPEC",
	    "HEART_COMMAND",

	    %% run_erl
	    "RUN_ERL_LOG_ALIVE_MINUTES",
	    "RUN_ERL_LOG_ACTIVITY_MINUTES",
	    "RUN_ERL_LOG_ALIVE_FORMAT",
	    "RUN_ERL_LOG_ALIVE_IN_UTC",
	    "RUN_ERL_LOG_GENERATIONS",
	    "RUN_ERL_LOG_MAXSIZE",
	    "RUN_ERL_DISABLE_FLOWCNTRL",

	    %% driver getenv
	    "CALLER_DRV_USE_OUTPUTV",
	    "ERL_INET_GETHOST_DEBUG",
	    "ERL_EFILE_THREAD_SHORT_CIRCUIT",
	    "ERL_WINDOW_TITLE",
	    "ERL_ABORT_ON_FAILURE",
	    "TTYSL_DEBUG_LOG"
	]