У меня есть следующий файл с разделителями табуляции:
1 1 0 0 2 -9 BB A A B A B ...
2 2 0 0 2 -9 AA B B A B A ...
3 3 0 0 2 -9 AB B A B A B ...
Как видите, генотипы в 7-м столбце не были разделены.Мне нужен следующий файл с разделителями табуляции:
1 1 0 0 2 -9 B B A A B A B ...
2 2 0 0 2 -9 A A B B A B A ...
3 3 0 0 2 -9 A B B A B A B ...
Я попробовал следующую команду:
perl -ne '
($id, $tmp) = split( / /, $_, 2 );
$tmp =~ s/ //g;
print "$id ";
print join(" ", split( //, $tmp ) );
' ped1 > ped2
У кого-нибудь есть решение?