example file Ответов: 1

Как мне ... как удалить подчеркивание из каждой строки с помощью регулярного выражения Perl?

Мне нравится удалять подчеркивание только перед каждым (.). Как я могу это сделать ?

Ввод:

DEMO_.config
    DEMO_.html



Ожидаемый:

Демо.конфиг
DEMO.html

Что я уже пробовал:

$str =~ tr/a-zA-Z//dc

1 Ответов

Рейтинг:
12

Jochen Arndt

Вы не можете использовать транслитерацию для этого потому что они работают с символами из списка но вы хотите соответствовать подстроке _..

Поэтому вы должны использовать регулярное выражение:

$str =~ s/_\././g;

s: Поиск и замена
шаблон _\.: подчеркивание и точка (точка должна быть экранирована)
заменить на .: точка (экранирование здесь можно опустить)
флаги g: global (заменить все вхождения)