打印出Mnesia表的最佳方法

-module(print_mnesia_table).
-export([print_table/0]).

print_table() ->
    case mnesia:system_info(is_running) of
        yes ->
            case mnesia:dirty_select(my_table, [{'_', [], ['$_']}]) of
                Records ->
                    io:format("Records in my_table:~n"),
                    lists:foreach(fun(Record) -> io:format("~p~n", [Record]) end, Records)
            end;
        _ ->
            io:format("Mnesia is not running.~n")
    end.