Вот один из способов:
perl -pe 's/^\S+\s+\K\S+_//'
Для каждой строки ввода (-p
) мы выполняем некоторый код (-e ...
).
Код выполняет подстановку (s/PATTERN/REPLACEMENT/
).
Шаблон соответствует следующему:
^
начало строки \S+
1 или более непробельных символов (первый столбец) \s+
1 или более пробельных символов (пробел после первого столбца) \K
не обрабатывать сопоставленный текст до тех пор, пока он не станет частью окончательного совпадения \S+
1 или более непробельных символов (второй столбец) _
подчеркивание
Поскольку +
является жадным (соответствует столько символов, скольковозможно), \S+_
будет сопоставлять все до последнего _
во втором столбце.
Поскольку мы использовали \K
, только остальная часть шаблона (то есть часть соответствия, которая находится ввторой столбец) заменяется.
Строка замены пуста, поэтому совпадение фактически удаляется.