写一个完整的不需要传参使用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()`函数）。

相关问题

写一个创建redis连接函数的Erlang代码

好的，下面是一个示例代码，它演示了如何通过`eredis`库创建Redis连接对象的函数。

-module(redis_conn).
-export([connect/0]).

-define(REDIS_HOST, "localhost").
-define(REDIS_PORT, 6379).
-define(REDIS_PASSWORD, "password").

% 连接 Redis
connect() ->
    {ok, Conn} = eredis:start_link([{host, ?REDIS_HOST},
                                     {port, ?REDIS_PORT},
                                     {password, ?REDIS_PASSWORD}]),
    Conn.

在这个示例代码中，`connect/0`函数调用`eredis:start_link/1`函数创建Redis连接对象，并返回它。在创建连接对象时，我们使用了宏定义来指定Redis服务器的主机名、端口号和密码。你可以根据实际情况修改这些值。

需要注意的是，在使用`eredis`库时，需要先确保已经在应用中引入该库。可以通过在`.app`文件中添加`{applications, [eredis]}`来引入该库，或者在Erlang shell中使用`application:start(eredis)`来手动启动该库。

用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、发送命令、读取响应、设置键值对和获取键值对等功能。你可以根据需要修改和扩展该代码，以满足你的实际需求。