如何在 Perl 中测试包含 ANSI 颜色代码的字符串是否等效？

发布于 2024-10-13 07:02:12 字数 218 浏览 2 评论 0原文

我正在为一个使用 ANSI 颜色代码执行操作的 Perl 模块编写测试。我希望能够测试两个嵌入 ANSI 颜色代码的字符串，看看它们在打印时是否会产生相同的输出。这不是一个简单的字符串相等性测试，因为以不同的顺序放置多个代码仍然可以产生相同的结果。例如，“粗体”和“蓝色”的代码可以先与其中任何一个放在一起，以产生粗体蓝色。

那么，有没有简单的方法来测试两个具有 ANSI 颜色代码的字符串的输出是否相等？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

眼眸里的那抹悲凉 2024-10-20 07:02:12

最简单的方法是将每个字符串转换为它通过模拟设备产生的输出的表示形式。即生成一个（字符、颜色、粗体） 元组列表（添加您想要跟踪的任何其他属性），每个元组对应一个将输出的字符。然后，您可以直接比较这些输出是否相等。

这是一个让您开始的示例：

sub simulate($) {
    my ($s) = @_;
    my $colour = 'black';
    my $bold = 0;
    my @output;

    while (length $s) {
        if ($s =~ s/\A\x1B\[1m//) { $bold = 1; }
        elsif ($s =~ s/\A\x1B\[22m//) { $bold = 0; }
        elsif ($s =~ s/\A\x1B\[30m//) { $colour = 'black'; }
        elsif ($s =~ s/\A\x1B\[31m//) { $colour = 'red'; }
        # ...
        else {   # Plain character to be output
            s/\A(.)//s;
            push @output, [ $1, $colour, $bold ];
        }
    }

    return @output;
}

# Example usage
use Test::More;
is_deeply(
    simulate("Hi \x1B[31\x1B[1mthere!"), 
    simulate("Hi \x1B[1\x1B[31mthere!"),
    "FTW!");

The easiest way is to convert each string into a representation of the output it would produce by simulating the device. I.e. produce a list of (character, colour, boldness) tuples (add any other attributes you want to track), one for each character that would be output. You can then compare these outputs directly for equality.

Here's an example to start you off:

sub simulate($) {
    my ($s) = @_;
    my $colour = 'black';
    my $bold = 0;
    my @output;

    while (length $s) {
        if ($s =~ s/\A\x1B\[1m//) { $bold = 1; }
        elsif ($s =~ s/\A\x1B\[22m//) { $bold = 0; }
        elsif ($s =~ s/\A\x1B\[30m//) { $colour = 'black'; }
        elsif ($s =~ s/\A\x1B\[31m//) { $colour = 'red'; }
        # ...
        else {   # Plain character to be output
            s/\A(.)//s;
            push @output, [ $1, $colour, $bold ];
        }
    }

    return @output;
}

# Example usage
use Test::More;
is_deeply(
    simulate("Hi \x1B[31\x1B[1mthere!"), 
    simulate("Hi \x1B[1\x1B[31mthere!"),
    "FTW!");

回复收藏 0 原文

~没有更多了~