请用代码写出来传入的参数是TopicFilters，返回值是Topic的Erlang代码

以下是根据你的要求编写的Erlang代码实现：

get_topics(TopicFilters) ->
    [Topic || {Topic, _} <- TopicFilters].

这个函数接受一个TopicFilters列表作为参数，然后使用列表推导式从中提取出所有的Topic元素，存储在一个新的列表中并返回。

相关问题

用Erlang写一个操作redis的代码

下面是一个用Erlang操作Redis的示例代码：

-module(redis_test).
-export([start/0]).

start() ->
    %% 连接Redis
    {ok, Socket} = gen_tcp:connect("127.0.0.1", 6379, []),
    ok = gen_tcp:send(Socket, "PING\r\n"),

    %% 读取响应
    {ok, Response} = read_response(Socket),
    io:format("Response from Redis: ~p~n", [Response]),

    %% 设置键值对
    ok = set_key(Socket, "mykey", "myvalue"),

    %% 获取键值对
    {ok, Value} = get_key(Socket, "mykey"),
    io:format("Value of mykey: ~p~n", [Value]),

    %% 关闭连接
    ok = gen_tcp:close(Socket).

%% 设置键值对
set_key(Socket, Key, Value) ->
    Command = ["SET", Key, Value],
    ok = execute_command(Socket, Command).

%% 获取键值对
get_key(Socket, Key) ->
    Command = ["GET", Key],
    execute_command(Socket, Command).

%% 执行Redis命令
execute_command(Socket, Command) ->
    %% 构造命令字符串
    CommandStr = build_command_str(Command),
    %% 发送命令
    ok = gen_tcp:send(Socket, CommandStr),
    %% 读取响应
    {ok, Response} = read_response(Socket),
    %% 解析响应
    parse_response(Response).

%% 构造命令字符串
build_command_str(Command) ->
    %% 将命令列表转换为字符串
    CommandStr = lists:flatten(io_lib:format("~w\r\n", [Command])),
    %% 计算命令字符串的长度
    Len = length(CommandStr),
    %% 在命令字符串前加上长度信息
    lists:flatten(io_lib:format("$~w\r\n~s", [Len, CommandStr])).

%% 读取响应
read_response(Socket) ->
    %% 读取第一行响应
    {ok, [Line]} = gen_tcp:recv(Socket, 0),
    %% 解析响应类型
    case Line of
        "+OK\r\n" -> {ok, ok};
        "-ERR" ++ _ -> {error, string:substr(Line, 5)};
        ":" ++ Value ++ "\r\n" -> {ok, list_to_integer(Value)};
        "$" ++ ValueLen ++ "\r\n" ++ Value ++ "\r\n" -> {ok, Value};
        _ -> {error, "Unknown response"}
    end.

%% 解析响应
parse_response(Response) ->
    case Response of
        {error, Reason} -> {error, Reason};
        Value -> {ok, Value}
    end.

这个示例代码实现了连接Redis、发送命令、读取响应、设置键值对和获取键值对等功能。你可以根据需要修改和扩展该代码，以满足你的实际需求。

写一个完整的不需要传参使用redis的Erlang代码

下面是一个完整的不需要传参使用Redis的Erlang代码示例：

-module(redis_example).
-export([start/0]).

start() ->
    application:start(redis),
    {ok, Connection} = redis:connect(),
    ok = redis:flushdb(Connection),
    ok = redis:set(Connection, <<"key">>, <<"value">>),
    Value = redis:get(Connection, <<"key">>),
    io:format("Value is ~p~n", [Value]),
    ok = redis:del(Connection, [<<"key">>]),
    redis:close(Connection).

这个示例代码中，我们首先启动了Redis应用程序，然后通过`redis:connect()`函数建立了与Redis服务器的连接。接着我们清空了Redis数据库（使用`redis:flushdb()`函数），然后设置了一个键值对（使用`redis:set()`函数）。我们使用`redis:get()`函数获取了该键所对应的值，并将其打印出来。接着我们使用`redis:del()`函数删除了该键，并最后关闭了与Redis服务器的连接（使用`redis:close()`函数）。