Re^2: pattern matching

Replies are listed 'Best First'.
Re^3: pattern matching by Anonymous Monk on Feb 10, 2012 at 11:01 UTC
The sequence should be trimmed from the begining ofATGC to full sting and should give only XYZ (for example if the string XYZATGCAATGGCGTC.....	[reply]
Re^4: pattern matching by tobyink (Canon) on Feb 10, 2012 at 11:23 UTC
`use Modern::Perl; while (<DATA>) { chomp; # remove trailing line break say "original string is: '$_'"; s/ATGC.*$//; # strip 'ATGC' and anything following it say "processed string is: '$_'"; say "----"; } __DATA__ 123ATGC 123ATGC456 ATGC123 123ATGC456ATGC789 ATGC 12345` [download] produces output... original string is: '123ATGC' processed string is: '123' ---- original string is: '123ATGC456' processed string is: '123' ---- original string is: 'ATGC123' processed string is: '' ---- original string is: '123ATGC456ATGC789' processed string is: '123' ---- original string is: 'ATGC' processed string is: '' ---- original string is: '12345' processed string is: '12345' ----	[reply] [d/l]
Re^4: pattern matching by xyzzy (Pilgrim) on Feb 10, 2012 at 11:40 UTC
special regex variables `$,=qq.\n.;print q.\/\/____\/.,q./\ \ / / \\.,q. /_/__.,q..` Happy, sober, smart: pick two.	[reply] [d/l]