http://qs1969.pair.com?node_id=11127987

++eyepopslikeamosquito's post (a reply in an unrelated SoPW thread) inspired me to look at Acme::EyeDrops.

After playing around with that module for a bit, I realised that some of the obfucation code images looked a bit like blown-up versions of emoji. It then occurred to me that not only could I get large, very easy to see, representations of emoji, but I could also use those images to get back the original Unicode® emoji character. Here's a couple of examples.

Firstly, a very straightforward one that only required one shape. 

$ perl -C -e 'print "\x{1f56f}\n"'
🕯

$ cat candle.txt
                                 (
                     (       (
                           (         (
                (    (         (            (
                                       (
             (      (       (    (          (    (
                             ''
                )      )      )))   )    )     )   )
           )                  )))))
                  )          =~("\(".           (
                       (    '?')).'{'   .    (
                (           '`')|'%')
                             .('['^  (   '-')
                      )    .    (     '`'|'!')
                                .  ('`'|"\,").
                             '"'.('['^"\.").(
                        '['^'(').('`'|('%')).(
                    '{'^'[').('`'|'/').(('[')^
                    '+').('`'|'%').('`'|'.').(
                    '{'^'[').('['^'*').("\["^
                    ',').'\\'.'{'.':'.(('[')^
                    '(').('['^'/').('`'|'$').(
                   '{'^'[').':'.('`'|'%').('`'
                  |'.').('`'|'#').('`'|"\/").(
                  '`'|'$').('`'|')').(('`')|
                  '.').('`'|"'").'('.(('{')^
                     '.').('{'^'/').('`'^'&'
                     ).'-'.(':'&'=').')'.''.
                     '\\'.'}'.';'.('!'^'+').
                     ('['^'+').('['^(')')).(
                     '`'|')').('`'|'.').('['
                     ^'/').('{'^'[').('\\').
                     '"'.'\\'.'\\'.('['^'#')
                     .'\\'.'{'.('^'^('`'|'/'
                     )).('`'|'&').('^'^('`'|
   (                 '+'))).('^'^('`'|'(')).
('`'|'&')            .'\\'.'}'.'\\'.('\\').(        (     (
  '`'))|('.')).      '\\'.'"'.';'.('!'^'+').  (    '"')."\}".
   ')');$:='.'^"\~"; $~='@'|'(';$^=')'^"\[";   $/='`'|'.';$,='('
   ^+   '}';$\='`'|'!';$:=')'^'}';$~='*'|'`'  ;$^='+'^'_';$/="\&"|
         ((  '@'));$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';
               ($^)   =')'^'[';$/='`'|"\."; $,   =     (     (
                (         '(')))^"\}";
                      $\='`'|'!';$:=
                  ')'^'}';$~='*'|'`'
                ;$^='+'^'_';$/='&'
                  |((  '@'   ));

[download]
$ perl -Mre=eval candle.txt
🕯

And a tad more complicated one that required two shapes. 

$ perl -C -e 'print "\x{1f459}\n"'
👙

$ cat bikini.txt
       ''=~('('.                          '?'.'{'.(
      ((       ((                        ((       ((
      ((        ((                      ((         ((
     ((          ((                     (          ((
     ((          ((                    ((          ((
     ((          ((                    ((          ((
      ((         ((                    ((          (
      ((         ((                    ((         ((
       ((        ((                     (         (
       ((        (                      ((       ((
        (       ((                      ((       ((
        (       ((                       ((      ((
        (       (                        ((      ((
        (      ((                         ((     ((
       ((      (                          ((      (
       ((     ((                           (      ((
       ((     ((                           ((    '`'
      ))))    )                            ))    ))))
     )))))   ))                             ))  ))))))
    )))))))  ))                             ))  )))))))
   ))))))))) ))                             )) )))))))))
  )))))))))))))                             )))))))))))))
  )))))))))))))                             ))))))))|'%').
 ('['^'-').('`'|                           '!').('`'|"\,").
'"'.('['^'.').('['^                      '(').('`'|('%')).(
'{'^'[').('`'|"\/").(                 '['^'+').('`'|('%')).(
'`'|'.').('{'^'[').("\["^         '*').('['^',').'\\'.('{').
':'.('['^'(').('['^('/')).(    '`'|'$').('{'^'[').':'.("\`"|
'%').('`'|'.').('`'|'#').('`'|'/').('`'|'$').('`'|')').('`'
 |'.').('`'|"'").'('.('{'^'.').('{'^'/').('`'^'&').('-').(
  ':'&'=').')'.'\\'.'}'.';'.('!'^'+').('['^'+').('['^')')
   .('`'|')').('`'|'.').(         '['^'/').('{'^('[')).
      '\\'.'"'.('\\').               '\\'.('['^'#').
         '\\'.'{'.                      ('^'^('`'


|'/')).('`'|'&').('^'^('`'|'*')).('^'^('`'|'+')).((';')&
'=').'\\'.'}'.'\\'.'\\'.('`'|'.').'\\'.'"'.';'.('!'^'+')
.'"'.'}'.')');$:='.'^'~';$~='@'|'(';$^=')'^'[';$/=('`')|
'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^="\+"^
'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~';$~="\@"|
'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:="\)"^
   '}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\
      =','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/
         ='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^
           '}';$~='*'|'`';$^='+'^'_';$/="\&"|
             '@';$,='['&'~';$\=','^"\|";$:=
               '.'^'~';$~='@'|'(';$^=')'^
                '[';$/='`'|'.';$,=('(')^
                 '}';$\='`'|'!';$:=')'^
                  '}';$~='*'|('`');$^=
                   '+'^'_';$/='&'|'@'
                    ;$,='['&"\~";$\=
                     ','^'|';$:='.'
                     ^'~';$~=('@')|
                      '(';$^="\)"^
                      '[';$/="\`";

[download]
$ perl -Mre=eval bikini.txt
👙

In case you were wondering why one is coloured and the other isn't: CANDLE (U+1F56F) does not have the Emoji_Presentation property, so it defaults to text style; BIKINI (U+1F459) does have that property, so it defaults to emoji style. If this interests you, see "Text vs Emoji, v13.1" for specific information, and "Unicode® Emoji Charts v13.1" for links to more general discussions.

Finally, in case it wasn't obvious, this was intended as a bit of tongue-in-cheek fun. My eyesight is not so poor that I need foot-high images to tell one emoji from another. 👁️ 😕 👓 😃

— Ken

Replies are listed 'Best First'.
Re: Emoji can be hard to see on the command line
by eyepopslikeamosquito (Archbishop) on Feb 07, 2021 at 00:56 UTC

    Thanks Mr Oath, your post made my day! (BTW, I trust non-ockers would not understand a nickname of "Mr Oath" for Ken :). It never occurred to me that a new bikini shape could be created by combining shape "bra" with shape "undies"! I'll look for other opportunities to combine shapes and will probably add a new bikini shape to the next release of A::E.

    In case you're interested, many of the original A::E shapes were added in response to specific incidents in the Perl community; the "bra" shape after Elaine -HFB- Ashton donated a black Victoria's Secret bra for auction at YAPC::Europe 2003 ... gleefully snapped up by Leon (acme) Brocard. IIRC, the "undies" shape was added after `/anick promised to walk down the main street of Ottawa in his underpants swinging a five iron if he got beaten by a nemesis in one of the early Perl golf competitions.

    BTW, I've noticed emojis appearing with increasing frequency at PM. They are presumably less wasteful than my experimental attempt to spice up a post with HTML Image Miniatures back in 2007.

[reply]
      "Thanks Mr Oath, your post made my day!"

      Glad to have been of service.

      If you're referring to this "Mr Ken Oath", I am indeed a fat Australian, but not that one. The last time I was caught in a fire, I was trapped on the top floor of a building, with no woman or children to murder, nor even a dog to kick. I almost died; but I did make the Channel 7 news, so that was good. 🔥 🥵 🔥

      I had thought of making a "burn the candle at both ends", but I couldn't see a way to rotate the candles independently. There may well be other interesting combinations hidden away in there; let me know if you discover any. I have absolutely no artistic talent myself, so I couldn't help with making new shapes; however, I am very impressed with what I've seen others create.

      Yes, I've also noticed increasing use of emoji at PM. At first it was just the odd smiley here and there, then some posts had multiple emoji; now I see hippo's signature is just: 🦛

      As they're just text, they don't take up any substantial space (as an image would). Perhaps with enough <big> tags wrapped around them, they could appear as images: 

      🦘

      But that seems like far more effort than I'd want to go to on any sort of regular basis. Also, that's two bytes for the roo, and 165 bytes for all of the <big> tags. 😬

      — Ken

[reply]
[d/l]
[select]

Back to Obfuscated Code