Вы не хотите соединять элементы массива с помощью (,
-, что поместит (,
между каждым элементом @uuids
.
Вам просто нужно напечатать (
перед соединением и )
после него.
Например, используяprintf
:
$ perl -ne '
chomp;
if(s/^.*UUIDs in this bucket //) {
@uuids=split(/,/);
printf ",(%s)", join ",",map{qq/"$_"/} @uuids;
}' eligible_uuids_final_app1.txt
,("8501792126581991569","8073766106536916628","4830289023695906800","6135982080116553120","8306484440313978157","9040948912536460872","8471856544054164043","5431263453539111247","7661719762428556576"),("6501792126581991569","8073766106536916628","4830289023695906800","6135982080116553120","8306484440313978157","9040948912536460872","8471856544054164043","5431263453539111247","7661719762428556576")
(переводы строки добавлены к одному -лайнеру, чтобы сделать его читабельным)
Я не уверен, нужна ли вам ведущая запятая внутри (...)
или снаружи. Я предположил первое. При необходимости измените строку формата printf.
Вы можете добавить новую строку (, например.printf ",(%s)\n",....;
).