Зачистка/замена с помощью 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})//; 

но это не работает. Кто-нибудь хочет поставить меня на правильный путь?

Cheers.

Answer 1

Если вы знаете, что будет атрибут цвета в $strip вы можете использовать

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

Things отметить:

• i модификатор делает регистронезависимы соответствие
• s модификатор означает, что '' символ соответствует любому символу включая переводы строк

Answer 2

Я написал это в оболочке plan9port окружающей среды, но порты легко в любой 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 

Этот бит кода выполняется ввод против СЕПГ сценария,

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 3

Это, как и большинство ответов 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; 

Использование модулей, таких как CSS из CPAN, означает, что кто-то уже рассмотрел случаи кросс, которые не имеют ваши решения в регулярном выражении. Рассмотрим:

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

Получение цвета с использованием регулярных выражений для конкретного селектора просто стало намного сложнее.

Answer 4

Не знаете, почему это не было упомянуто, но фигурная скобка имеет особое значение в регулярных выражениях и поэтому должна быть экранирована.