exclamation mark

                     $_
                    =qq|
                   QT--OM
                  Z"----KI
                 DZ;----SMP
                ZJRT----;QRT
               A;JS------VLRT
              ";|;s.-*.    .g;
               s|\n||g;s. ..g;
                push @_,"y(ZT
                 DKVLQMAPJRI
                  OS);TRSJC
                   KPNLOHE
                    UIA;;"
                     ;$_

              [0]=~s,(\n| ),,g;
              $_=~y/;/ /;eval$_
              [0];$_=~s/\"\s*$/
              \\n\"/; eval lc ;
[download]

Well not very obfusicated, but my first try. Anyway it passes to use strict and -w :)
Maybe someone can help me with getting the japh-initial Letters uppercase ?

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]

Comment on exclamation mark Select or Download Code

Replies are listed 'Best First'.
(ar0n) Re: exclamation mark by ar0n (Priest) on Apr 11, 2001 at 16:36 UTC
Cool! Looks more like a flame (as in fire) to me, though. ucfirst uppercases the first letter of a string: `$_ = "JUST ANOTHER PERL HACKER"; # Don't use CAPS-lock at home, kids. print join " ", map { ucfirst lc } split;` [download] [ ar0n ]	[reply] [d/l]
Re: (ar0n) Re: exclamation mark by physi (Friar) on Apr 11, 2001 at 17:15 UTC
Thx :) but the major problem is to find the right place for the `ucfirst` ;-) And yes you`re right, it's more the top of a Candle. Maybe I should add more code to it, to see the candle grow :) `----------------------------------- --the good, the bad and the physi-- -----------------------------------` [download]	[reply] [d/l] [select]
Re: exclamation mark by jynx (Priest) on Apr 12, 2001 at 08:12 UTC
First of all, i wanted to ask that you include a #!perl line at the top for easy downloading and running. Since i'm here i thought i'd look at lower casing the non-first characters of words in a string. These aren't as useful a method as `ucfirst lc` for general cases, but they seem interesting and i wanted to play some golf (sorry, i'll try to control myself next time ;-). `print join ' ', map { $_{w}=0; join '', map { ++$_{w} == 1 ? $_ : chr( (ord)+(1<<5) ) } split '' } split;` [download] -or- `# If you wanted to stay away from push you could also write: $_[$#_+1] +=$_ s/(.)(.)/$1 . lc($2)/e and push @_,$_ for split; print "@_$/";` [download] There are (much*) better ways to do this, but these are the first that come to mind for obfuscation (and they run under `strict` and `-w`). You'll probably want to tweak for your style of coding... Hope That Helps, jynx	[reply] [d/l] [select]