On Thu, Aug 16, 2001 at 12:25:42PM -0400, Selector, Lev Y wrote: > Ronald, > Thank you. > This was good. > Here how it was done, right? > ========================================================== > > $s1 = '}_).} "*}_} }./}(}_ }}_, (}_+}_,*"'; > $s2 = '/- + *,+ < + :- /:- << :- @'; > $s3 = ' `` @ `` ` @ ` ` ` '; > > $s4 = $s1 & ~$s2 | $s3; > > print "$s4\n"; Almost. The last step is actually eval $s4; I'm using the (?{}) regex syntax, as Abigail and Japhy did earlier, which evaluates the contents of the braces as Perl code. In order for this to work without use re 'eval' or equivalent, the contents of the braces have to be known at compile time. Ronald
- Re: JAPHs with no unsightly letters or numbers Michael J Assels
- Re: JAPHs with no unsightly letters or numbers Robin Houston
- Re: JAPHs with no unsightly letters or numbers Larry Shatzer
- Re: JAPHs with no unsightly letters or numbers Ilmari Karonen
- Re: JAPHs with no unsightly letters or numbers Andrew . Savige
- Re: JAPHs with no unsightly letters or numbers Ronald J Kimball
- Re: JAPHs with no unsightly letters or numbers Robin Houston
- Re: JAPHs with no unsightly letters or numbers Ronald J Kimball
- RE: JAPHs with no unsightly letters or numbers Bicknell, Frank
- RE: JAPHs with no unsightly letters or numbers Selector, Lev Y
- RE: JAPHs with no unsightly letters or numbers Ronald J Kimball
- RE: JAPHs with no unsightly letters or numbers Selector, Lev Y
- RE: JAPHs with no unsightly letters or numbers Andrew . Savige
- Re: JAPHs with no unsightly letters or numbers Andrew . Savige