
"be consistent"
	PerlMonks

Perl uses for Cryptograms - Part 1: One-liners and Word Patterns

by goibhniu (Hermit)

on Sep 04, 2007 at 03:16 UTC ( [id://636818]=CUFP: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

UTAK QYK UTYU SGGE RWESIAPU LGIAQ VDGI AJBADOAPLA, YPE AJBADOAPLA, HAX
+X UTYU LGIAQ VDGI ZYE RWESIAPU.

Select or download this

perl -ne "print if m/^..(.)\1$/;" Words.knu

Select or download this

@ECHO OFF
perl -ne "print if m/^%1$/;" Words.knu

Select or download this

perl -ne "print if m/^[a-z][a-z]([a-z])\1$/;" Words.knu

Select or download this

perl -ne "print if m/^([a-z])(?!\1)([a-z])(?!\1)(?!\2)([a-z])\1$/;" Wo
+rds.knu

Select or download this
```
([a-z])
(?!\1)([a-z])
```

Select or download this

([a-z])
(?!\1)([a-z])
(?!\1)(?!\2)([a-z])

Select or download this

([a-z])
(?!\1)([a-z])
(?!\1)(?!\2)([a-z])
(?!\1)(?!\2)(?!\3)([a-z])

Select or download this

([a-z])
(?!\1)([a-z])
(?!\1)(?!\2)([a-z])
(?!\1)(?!\2)(?!\3)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)([a-z])

Select or download this

([a-z])
(?!\1)([a-z])
(?!\1)(?!\2)([a-z])
(?!\1)(?!\2)(?!\3)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)([a-z])

Select or download this

([a-z])
(?!\1)([a-z])
(?!\1)(?!\2)([a-z])
...
(?!\1)(?!\2)(?!\3)(?!\4)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)(?!\6)([a-z])

Select or download this

([a-z])
(?!\1)([a-z])
(?!\1)(?!\2)([a-z])
...
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)(?!\6)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)(?!\6)(?!\7)([a-z])

Select or download this

([a-z])
(?!\1)([a-z])
(?!\1)(?!\2)([a-z])
...
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)(?!\6)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)(?!\6)(?!\7)([a-z])
(?!\1)(?!\2)(?!\3)(?!\4)(?!\5)(?!\6)(?!\7)(?!\8)([a-z])

Select or download this

perl -ne "print if m/^(.)..\1..\1..\1$/;" Words.knu

Select or download this

perl -ne "print if m/^..d..ent$/;" Words.knu

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: CUFP [id://636818]
Approved by bingos
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others about the Monastery: (6)

As of 2024-04-19 06:15 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found