RegExp Alternative 1

[biobrain]

For my data

A2BD05 NEK6_PIG Serine/threonine-protein kinase Nek6 - Sus scrof... 129 1e-29

i am using this RegExp and it is working for me to print the last two column

print "$1\n" if $line =~ /^......................................................................(...........)/;

Is there any alternate to this so that my RegExp can be more professional.

 

[rharsh]

Are the columns fixed-width or is there a delimiter of some kind between the columns?

 

[ishnid]

Since you're not actually matching a pattern, there's no need for a regexp at all. You're simply counting characters from the start of the string, so "substr" is the way to go:

print substr( $line, 70, 11 ), "\n";

 

[biobrain]

Thanka a lot