Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://516091]
help
Chatterbox?
[Cosmic37]: rather than the value of $mydt which is a date time strong such as 2016-01-01 12:30:56
[Corion]: Cosmic37: No, but maybe $mydt doesn't contain what you think it does, or it contains characters that are special in a regular expression? Try if( $line =~ /\Q$mydt\E/) { ... for a literal match
[Cosmic37]: I mean string grrr
[Corion]: Maybe add an else branch in which you print what the values of $line and $mydt are?
[Cosmic37]: ah thank you I will try
[Cosmic37]: you are right $mydt did not contain what I expected... :-D I will now think :-D
[Cosmic37]: crunch...grind... whirr...gnashing metal crunching cogs...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2017-06-29 17:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (673 votes). Check out past polls.