Or a variation of the above solution:
use Modern::Perl; my %hash; do {chomp; $_ = qq|$_"$hash{$1}"| if /(ID=.+)$/ and ++$hash{$1}; say} for <DATA>; __DATA__ xxxx . yyy 521 916 . + . ID=OSCAR1028v1rpkm9.67 xxxx . xxx 521 567 . + . Parent=OSCAR1028v1rpkm9.67 xxxx . yyy 126 130 . - . ID=OSCAR10281vrpkm9.67 xxxx . xxx 129 130 . - . Parent=OSCAR1028v1rpkm9.67 xxxx . yyy 126 130 . - . ID=OSCAR10281vrpkm9.67 xxxx . xxx 129 130 . - . Parent=OSCAR1028v1rpkm9.67
Results:
xxxx . yyy 521 916 . + . ID=OSCAR1028v1rpkm9.67"1" xxxx . xxx 521 567 . + . Parent=OSCAR1028v1rpkm9.67 xxxx . yyy 126 130 . - . ID=OSCAR10281vrpkm9.67"1" xxxx . xxx 129 130 . - . Parent=OSCAR1028v1rpkm9.67 xxxx . yyy 126 130 . - . ID=OSCAR10281vrpkm9.67"2" xxxx . xxx 129 130 . - . Parent=OSCAR1028v1rpkm9.67
In reply to Re: rename duplicate data
by Kenosis
in thread rename duplicate data
by blacknight
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |