UNIX for Dummies Questions & Answers

Yes, the fields are tab-separated !

---------- Post updated at 07:20 PM ---------- Previous update was at 07:06 AM ----------

The second code works very well !
Thanks Scrutinizer !

And thanks balajesuri !

I learned a lot in this chat.

---------- Post updated at 08:03 PM ---------- Previous update was at 07:20 PM ----------

I have another question related to this thread (as it is a bit different, I'll post a new thread for this specific question).

Would it be possible as well to number the position of the pattern in the string, in order to add the positions of the first and last characters of the pattern in a new field?

Let' say I have this input.tab file:

Code:

Field1   Field2   Field3
A1   bb11tomatoes111bbbbbb   A3
B1   eeee2222apples2eeeeeeeee   B3
C1   hhhhhh33333tomatoes33333hhh   C3

and search/extract/replace in the same field, this pattern:

Code:

[13]{1,5}tomatoes[13]{1,5}

by using Scrutinizer's code:

Code:

perl -F\\t -lane 'if ($F[5] =~ s/.*?([13]{1,5}tomatoes[13]{1,5}).*/$1/) {print join ("\t", @F)}' input.tab

The output would be:

Code:

A1   11tomatoes111   A3   3-15
C1   33333tomatoes33333   C3   7-24

Try:

Code:

perl -F\\t -lane 'if ($F[5] =~ s/.*?([13]{1,5}tomatoes[13]{1,5}).*/$1/p) {print join ("\t", @F, $-[1]+1 . "-" . $+[1] )}' infile

Awesome !

Thanks again, it works perfectly.

However, how would you do to add the position number in the first column instead of the end?

the join command concatenates, so:

Code:

print join ("\t", $-[1]+1 . "-" . $+[1] , @F )

Perfect !

Thanks again Scrutinizer !