如何使用bash或Perl重新格式化mbox文件中的消息？

cpan install Email::Mbox::MessageParser

#!/usr/bin/perl

use strict;
use warnings;
use Email::Mbox::MessageParser;

# 打开mbox文件
open(my $fh, '<', 'path/to/mbox/file') or die "Cannot open file: $!";

# 创建一个消息解析器对象
my $parser = Email::Mbox::MessageParser->new($fh);

# 遍历mbox文件中的每个消息
while (my $message = $parser->next_message()) {
    # 处理消息，例如重新格式化
    my $formatted_message = format_message($message);

    # 在此处处理已格式化的消息，例如将其保存到新的mbox文件中
}

# 关闭文件句柄
close($fh);

# 格式化消息的函数
sub format_message {
    my $message = shift;

    # 在此处添加重新格式化消息的代码
    # 例如，将所有空行替换为单个空行
    $message =~ s/\n{2,}/\n\n/g;

    return $message;
}

#!/bin/bash

# 读取mbox文件中的每个消息
while read -r message; do
    # 提取消息正文
    body=$(formail -x "Content-Type:" <(echo "$message"))

    # 在此处处理消息正文，例如重新格式化
    formatted_body=$(echo "$body" | sed 's/\n{2,}/\n\n/g')

    # 将已格式化的消息正文添加回消息头
    formatted_message=$(formail -I "$formatted_body")

    # 在此处处理已格式化的消息，例如将其保存到新的mbox文件中
done < "path/to/mbox/file"