使用 Perl Regex 进行剥离/替换

Question

所以我对一般编程很陌生，所以这可能是一个愚蠢的问题，但我特别尝试使用正则表达式来剥离 CSS 标签。 基本上我有这个：

.style1 {  
    font-size: 24px;  
    font-weight: bold;  
    color: #FFEFA1;  
} 

我希望它看起来像这样：

.style1:color:#FFEFA1

我想维护样式名称、颜色属性和颜色十六进制，中间有冒号且没有空格。 我正在尝试类似以下的操作来实现这一点：

$strip =~ s/\w+\}|\w+^#([0-9a-fA-F]{3})|([0-9a-fA-F]{6})//;

但它不起作用。 有人愿意让我走上正确的道路吗？

干杯。

Answer 1

与大多数 Perl 答案一样，这以“Use CPAN”开头。 你想做的一切以前都已经完成了。

use CSS;

my $css = CSS->new();

$css->read_string('
.style1 {
font-size: 24px;
font-weight: bold;
color: #FFEFA1;
} 
');

$color = $css->get_style_by_selector('.style1')
             ->get_property_by_name('color')
             ->values;

使用 CPAN 中的 CSS 等模块意味着有人已经考虑了您的正则表达式解决方案尚未考虑到的边缘情况。 考虑一下：

.someClass, div.otherClass, #someid {
    color: #aa00aa
}

使​​用正则表达式为特定选择器获取颜色变得更加困难。

Answer 2

如果您知道 $strip 中会有一个颜色属性，您可以使用

$strip =~ s!\s*{.*color:\s*(#[0-9a-f]{6});.*}!:color:$1!is;

注意事项：

• i 修饰符不区分大小写，匹配
• s 修饰符意味着那个'.' 字符匹配任何字符包括换行符

Answer 3

我在 plan9port 环境 shell 中编写了这个，但它可以轻松移植到任何 Linux。

这段代码创建了一个 sed 脚本来旋转您的数据。

#!/usr/local/plan9/bin/rc
# .style1:color:#FFEFA1
cat > this.sed <<EOF
# for lines which start with .
/\./{
# strip open curly brace
s, {,:,
# store element tag
h
# skip to next line
n
}

# strip close curly brace
/}/d

# for other lines
{
# remove spaces
s, ,,g
# get rid of ; at end
s,;$,,g
# pull back in the element tag
G
# join to one line
s,\n,,
# shift element tag to the start
# sed in plan 9 is a little different
# for gnu sed, use \( \) and \+
s,(.*)(\.[^.]+$),\2\1,
# finally print something
p
}
EOF

这段代码根据 sed 脚本运行您的输入，

cat | sed -n -f this.sed <<EOF
.style1 {
font-size: 24px;
font-weight: bold;
color: #FFEFA1;
}
EOF

以生成此输出。

.style1:font-size:24px
.style1:font-weight:bold
.style1:color:#FFEFA1

您可以 grep 查找您想要的行，或者使用“grep -v”查找您不需要的行。

Answer 4

不知道为什么没有提到这一点，但大括号在正则表达式中具有特殊含义，因此需要转义。