use Perl

• Nice! (Score:1)

  by nicholas (3034)

  Nice one!

  That's even simpler than the examples I found - you've demonstrated the problem without the hash lookup.

  (Patches welcome [mailto])
  • Re:Nice! (Score:1)

    by broquaint (2964)

    The code was adapted from japhy [perlmonks.org]'s New Obfuscation Trick! [perlmonks.org]. You'll get it whenever you use brace to quote/dereference something in an interpolated string e.g

    $foo = "a string";
    
    print "[${";
    foo}]
    
    $bar = qq<[${>;
    foo}]
    
    print $bar;
    
    @baz = qw( a list of strings );
    
    print qq([@{);
    baz}]
    
    $str = "dereferenced";
    $strstr = 'str';
    
    print "[${";
    $strstr}]
    
    %hash = qw( ichi ni );
    print "[$hash{"
    ichi}]
    
    __output__
    
    [a string]
    [a string]
    [a list of strings]
    [dereferenced]
    [ni]

    Would love to knock up a patch but wouldn't have the f

    --
    

    broquaint out