Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: What one-liners do people actually use?

by l3v3l (Monk)
on Dec 12, 2005 at 18:26 UTC ( #516091=note: print w/ replies, xml ) Need Help??


in reply to Re: What one-liners do people actually use?
in thread What one-liners do people actually use?

and here is another I put together to show me :

(line|entry) #, org.string, st. position of pal., length of pal., palindrome found

perl -nle 'tr/a-z/A-Z/;$l=length();for $m(3..$l){for $c(0..($l-3)){las +t if $m+$c>$l;$f=substr($_,$c,$m);($r=reverse($f))=~s/s+//g;print "$. +\t$_\t$c\t$m\t$f" if ($f eq $r);}}' example | more
so for your sig : "TTTATCGGTCGTTATATAGATGTTTGCA" I get the following output:
1 TTTATCGGTCGTTATATAGATGTTTGCA 0 3 TTT 1 TTTATCGGTCGTTATATAGATGTTTGCA 2 3 TAT 1 TTTATCGGTCGTTATATAGATGTTTGCA 12 3 TAT 1 TTTATCGGTCGTTATATAGATGTTTGCA 13 3 ATA 1 TTTATCGGTCGTTATATAGATGTTTGCA 14 3 TAT 1 TTTATCGGTCGTTATATAGATGTTTGCA 15 3 ATA 1 TTTATCGGTCGTTATATAGATGTTTGCA 17 3 AGA 1 TTTATCGGTCGTTATATAGATGTTTGCA 20 3 TGT 1 TTTATCGGTCGTTATATAGATGTTTGCA 22 3 TTT 1 TTTATCGGTCGTTATATAGATGTTTGCA 12 5 TATAT 1 TTTATCGGTCGTTATATAGATGTTTGCA 13 5 ATATA 1 TTTATCGGTCGTTATATAGATGTTTGCA 16 5 TAGAT 1 TTTATCGGTCGTTATATAGATGTTTGCA 21 5 GTTTG
again works with any list passed as $ARGV[0] or with individual strings ala:
# echo "TTTATCGGTCGTTATATAGATGTTTGCA" | perl -ne ...
etc. and it does not match whitespace(s) as part of a reverse complementary match


Comment on Re^2: What one-liners do people actually use?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://516091]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (16)
As of 2015-07-07 18:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls