выборочно очистить содержимое файла PERL

Question

У меня есть файл input.txt в следующем формате:

DP_00296.1: 1-2, 72- 82 
DP_00575.1: 63 -68, 206 - 208 
DP_00389.1: 486-, 493-499, 529- 544 

Я хочу, чтобы очистить некоторые форматы, как: я) очистить пространство (ы), которые могли бы представить до или после "-" б) если "-" не следует любое количество, удалить, что "-"

Для вышеприведенного input.txt, я хочу окончательный output.txt быть как:

DP_00296.1: 1-2, 72-82 
DP_00575.1: 63-68, 206-208 
DP_00389.1: 486, 493-499, 529-544 

пожалуйста предложить код perl (предпочтительно один лайнер), который может выполнять работу за один раз вместо замены в regex два раза?

ps: Мои извинения за мой подход @ zdim и @ Jim Garrison .. на самом деле я ищу регулярное выражение, с которым мне удобно. Вот что я Нч пробовал:

#!/usr/bin/perl 
local $/=undef; 
open(FILE, "input.txt") || die ("Error\n"); 
$string = <FILE>; 

$string =~ s/\s//g; 
print "$string"; 

Благодарности

Answer 1

В каждой строке, захватить цифры и оценить простое условие в замене части

С /e модификатором замена части оценивается, как код. См. Его in perlop и in perlretut.

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

-p устанавливает петлю через вход, устанавливает $_ в текущую строку и печатает ее после обработки.

Answer 2

Попытка сделать это как один вкладыш, вероятно, больше проблем, чем того стоит. Разберите его, очистите, соберите и распечатайте снова.

Ваш основной формат линии довольно прост:

key: value, value, value, ... 

Во-первых, разделить ключ от значений на :.

my($key, $value) = split /:/, $line; 

Затем разделите значения на запятую.

my @values = split /,/, $value; 

Теперь вы можете не спеша вычеркивать пробелы из каждого значения.

# This works because $_ in a for loop is an alias, not a copy 
s/\s+//g for @values; 

И снова соберите линию снова.

say "$key: ".join(", ", @values);