我有一个从网站获取一些数据的脚本。数据采用JSON格式，网站提供了一个选项，以便“平坦化”＃34;将JSON输出到单个JSON对象中，或将其保留为多个对象。
该脚本具有允许将JSON数据转换为YAML（无论是否展平）或将其保留为JSON格式的选项。
此外，该脚本将两种格式的值着色。
为了完成着色，我目前有两个函数，一个用于JSON着色，一个用于YAML着色。
使用Term :: ANSIColor，通过搜索和替换标量或数组中的文本来实现着色本身，具体取决于数据所在的输出格式。
我希望将其归结为一个函数，以减少代码重复，但我对如何实现这一点感到茫然。
要清楚，为了清楚起见，这个问题的主要焦点是如何使其中一个着色功能可重复使用，以便它可以在YAML和JSON输出。因为搜索模式非常相似，并且替换模式是相同的，所以我觉得应该很容易实现这一点，但我在如何做到这一点上空白。
use JSON;
use YAML::Tiny;
sub colorize_yaml
{
my $OUTPUT = shift;
my $OPTIONS = shift;
if (ref $OUTPUT eq 'SCALAR')
{
foreach (${$OUTPUT})
{
# Hide this if debugging is disabled, else show it and color it
if (!$OPTIONS->{debug})
{
s{(statusCode|success|dataExist|verumModelObjectName):\ [a-zA-Z0-9]+\n}
{}gxms;
}
else
{
s{(statusCode|success|dataExist|verumModelObjectName):}
{$OPTIONS->{color} ? BOLD YELLOW $1 . ':', BOLD GREEN : $1 . ':'}gxmse;
}
# Colorize 5 segment flat output
s{([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:\ )}
{$OPTIONS->{color} ? BOLD CYAN $1, BOLD YELLOW $2, BOLD MAGENTA $3, BOLD RED $4, RESET $5: $1 . $2 . $3 . $4 . $5}gxmse;
# Colorize 4 segment flat output
s{([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:\ )}
{$OPTIONS->{color} ? BOLD CYAN $1, BOLD YELLOW $2, BOLD MAGENTA $3, RESET $4 : $1 . $2 . $3 . $4}gxmse;
# Colorize 3 segment flat output
s{([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:\ )}
{$OPTIONS->{color} ? BOLD CYAN $1, BOLD YELLOW $2, RESET $3 : $1 . $2 . $3}gxmse;
# Colorize 2 segment flat output
s{([a-zA-Z0-9]+:)([a-zA-Z0-9]+:\ )}
{$OPTIONS->{color} ? BOLD CYAN $1, RESET $2 : $1 . $2}gxmse;
# Colorize values in all output
s{(:\ )}
{$OPTIONS->{color} ? $1 . BOLD GREEN : $1}gxmse;
# Reset colors before newlines so that the next line starts with a clean color pattern.
s{\n}
{$OPTIONS->{color} ? RESET "\n" : "\n"}gxmse;
}
}
else
{
pretty_print_error("WARNING: Unable to colorize YAML output\n", $OPTIONS->{color});
return;
}
return;
}
sub colorize_json
{
my $OUTPUT = shift;
my $OPTIONS = shift;
if (ref $OUTPUT eq 'ARRAY')
{
foreach (@{$OUTPUT})
{
if ($OPTIONS->{debug})
{
s{(statusCode|success|dataExist|verumModelObjectName):}
{$OPTIONS->{color} ? BOLD YELLOW $1 . ':', BOLD GREEN : $1 . ':'}gxmse;
}
else
{
s{(statusCode|success|dataExist|verumModelObjectName):\ [a-zA-Z0-9]+\n}
{}gxms;
}
# Colorize 5 segment flat output
s{^([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:\ .*$)}
{$OPTIONS->{color} ? BOLD CYAN $1, BOLD YELLOW $2, BOLD MAGENTA $3, BOLD RED, $4, RESET $5: $1 . $2 . $3 . $4 . $5}gxmse;
# Colorize 4 segment flat output
s{^([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:\ )}
{$OPTIONS->{color} ? BOLD CYAN $1, BOLD YELLOW $2, BOLD MAGENTA $3, RESET $4 : $1 . $2 . $3 . $4}gxmse;
# Colorize 3 segment flat output
s{^([a-zA-Z0-9]+:)([a-zA-Z0-9]+:)([a-zA-Z0-9]+:\ )}
{$OPTIONS->{color} ? BOLD CYAN $1, BOLD YELLOW $2, RESET $3 : $1 . $2 . $3}gxmse;
# Colorize 2 segment flat output
s{^([a-zA-Z0-9]+:)([a-zA-Z0-9]+:\ )}
{$OPTIONS->{color} ? BOLD CYAN $1, RESET $2 : $1 . $2}gxmse;
# Colorize values in all output
s{(:\ )}
{$OPTIONS->{color} ? $1 . BOLD GREEN : $1}gxmse;
# Reset colors before newlines so that the next line starts with a clean color pattern.
s{$}
{$OPTIONS->{color} ? RESET '' : ''}gxmse;
}
}
else
{
pretty_print_error("WARNING: Unable to colorize JSON output.\n", $OPTIONS->{color});
return;
}
return;
}
JSON转换为YAML
---
message: Success
ObjectList:
-
assetName: xxxxxxxx
backupAsset:
-
backupFlag: xxxxxxxx
fullyCertified: xxxxxxxx
将展平的JSON转换为YAML
---
message: Success
verumObjectList:
-
assetName: xxxxxxxx
backupAsset:backupFlag: xxxxxxxx
backupAsset:fullyCertified: xxxxxxxx
JSON（JSON格式的数据被脚本剥离，使其成为纯文本）
assetName: xxxxxxxx
backupFlag: xxxxxxxx
fullyCertified: xxxxxxxx
message: Success
Flattened JSON（JSON格式的数据被脚本剥离，使其成为纯文本）
assetName: xxxxxxxx
backupAsset:backupFlag: xxxxxxxx
backupAsset:fullyCertified: xxxxxxxx
message: Success
正确的答案是授予@zdim虽然我必须略微调整代码。
我在下面发布了我的更新代码。
use JSON;
use YAML::Tiny;
sub colorize_output
{
my $OUTPUT = shift;
my $OPTIONS = shift;
my $RE_START = $EMPTY;
my $RE_END = q{\ };
if (ref $OUTPUT eq $EMPTY)
{
pretty_print_error("WARNING: Unable to colorize output.\n",
$OPTIONS->{color});
return;
}
elsif (ref $OUTPUT eq 'ARRAY')
{
$RE_START = q{^};
$RE_END = q{\ .*};
}
my $ANCHOR = q{[a-zA-Z0-9]+:};
my $PATTERN = qq{($ANCHOR)};
Readonly my $SEGMENT_LIMIT => 4;
my $VERUM_RE = qr{(statusCode|success|dataExist|verumModelObjectName):}xms;
my ($SEGMENT_2PART_RE, $SEGMENT_3PART_RE, $SEGMENT_4PART_RE, $SEGMENT_5PART_RE)
= map {
qr{$RE_START}xms . ($PATTERN x $ARG) . qr{($ANCHOR$RE_END)}xms
} 1..$SEGMENT_LIMIT;
foreach ((ref $OUTPUT eq 'SCALAR')?${$OUTPUT}:@{$OUTPUT})
{
# Hide this if debugging is disabled, else show it and color it
if (!$OPTIONS->{debug})
{
s{$VERUM_RE\ [a-zA-Z0-9]+}{}gxms;
}
else
{
s{$VERUM_RE}
{$OPTIONS->{color} ? BOLD YELLOW $1 . ':', BOLD GREEN : $1 . ':'}gxmse;
}
# Colorize sections in flat output
if ($OPTIONS->{color})
{
s{$SEGMENT_5PART_RE}
{BOLD CYAN $1, BOLD YELLOW $2, BOLD MAGENTA $3, BOLD RED $4, RESET $5}gxmse;
s{$SEGMENT_4PART_RE}
{BOLD CYAN $1, BOLD YELLOW $2, BOLD MAGENTA $3, RESET $4}gxmse;
s{$SEGMENT_3PART_RE}
{BOLD CYAN $1, BOLD YELLOW $2, RESET $3}gxmse;
s{$SEGMENT_2PART_RE}
{BOLD CYAN $1, RESET $2}gxmse;
# Colorize values in all output
s{(:\ )}{$1 . BOLD GREEN}gxmse;
# Reset colors before newlines or next entry in the list so that
# the next line starts with a clean color pattern.
s{(\n|$)}{RESET $1}gxmse;
}
}
return;
}
答案 0 :(得分：1)
这回答了如何重构这些功能的问题，没有任何更广泛的背景。
一个区别是输入：它是scalarref或arrayref。
正则表达式中涉及的另外两个差异更多：arrayref模式是锚定的，它们的最后一个字母数字模式以\ .*$结尾，而scalarref的模式没有锚定，它们的最后一个匹配以一个转义空格结束。
最后，如果$OPTIONS->{color}为假，则在所有情况下整个模式都会被自身替换;所以变量不会改变。然后应该把条件拉出来。
sub colorize_yaml_json {
my ($OUTPUT, $OPTIONS) = @_;
my $anchor = '';
my $last = qr{\ };
my @iter_refs;
if (ref $OUTPUT eq 'SCALAR') { @iter_refs = $$OUTPUT }
elsif (ref $OUTPUT eq 'ARRAY') {
@iter_refs = @$OUTPUT;
$anchor = qr{^};
$last = qr{\ .*$};
}
else {
pretty_print_error(...);
return;
}
my $anc = qr{[a-zA-Z0-9]+:}; # alphanumeric with colon
my $patt = qr{($anc)};
my ($seg2_re, $seg3_re, $seg4_re, $seg5_re) = map {
qr/$anchor/ . ($patt x $_) . qr/($anc$last)/
} 1..4;
foreach (@iter_refs) {
if ($OPTIONS->{debug}) {
...
}
if ($OPTIONS->{color}) {
s{$seg5_re}{BOLD CYAN $1, ... }gxmse;
...
}
}
return 1;
}
map汇总了四种情况的整个模式，方法是使用:堆叠字母数字（$patt）模式x N所需的2-5次1..4然后附加最后一个模式。
令人不快的复杂情况是需要捕获每个基本模式$anc。
我只能在我的模拟数据上进行测试，所以请仔细检查（一如既往！）。
另一个问题是如何最好地处理整个场景，但这不是问题，所以没有足够的信息来处理它而不需要太多猜测。