我如何在erlang中拆分二进制文件

-module(binary_split).
-export([split_binary/1]).

split_binary(Binary) ->
    %% 计算拆分点
    SplitPoint = byte_size(Binary) div 2,

    %% 使用 binary:part/3 函数拆分二进制数据
    {binary:part(Binary, 0, SplitPoint), binary:part(Binary, SplitPoint, byte_size(Binary) - SplitPoint)}.

OriginalBinary = <<"Hello, world!">>,
{Part1, Part2} = binary_split:split_binary(OriginalBinary),
io:format("Part 1: ~p~n", [Part1]),
io:format("Part 2: ~p~n", [Part2]).

Part 1: <<"Hello, ">>
Part 2: <<"world!">>