Вместо цикла я бы посоветовал вам использовать специальный инструмент rename
. Его легче читать, быстрее писать и избегать путаницы.
rename 's/_pt-1_/_pt2_/' *_pt-1_*.ts
Предупреждение:rename
— это беспорядок в большинстве дистрибутивов. Если вы используете Debian или производную версию, убедитесь, что установлен пакет rename
(, а не только двоичный файл rename
).
Примерно так:
cat file |
perl -ne '/(Transmit.\d+ Invite Members )(.*)/ and $a{$1}.=$2;
END { print map { $_,$a{$_},"\n" } sort keys %a }'