Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: The Latest Craze

by BooK (Curate)
on Feb 23, 2001 at 02:59 UTC ( #60380=note: print w/ replies, xml ) Need Help??


in reply to The Latest Craze

This is a really really good obfuscation. Not that difficult to work out, but very creative. Bravo.

On a side note, it worked well with my perl 5.005_3, but not with 5.6 (prints a blank line). The following adaptation does work with 5.6, but not with 5.005_03 (Global symbol "$uo" requires explicit package name at (eval 1) line 2.). Go figure.

eval'use strict;$uo';@_{split//,eCVJABDdEeSFeNeeGaeIHQecePMLR. TeeUeeeZYeKeeOXebWeeee}=split//,uc$@;print@_{sort+keys%_},"\n"


Comment on Re: The Latest Craze
Download Code
Re: Re: The Latest Craze
by japhy (Canon) on Feb 23, 2001 at 03:14 UTC
    Yeah, well it took me forever to figure out how to capture Perl's builtin warnings. It is quite difficult. I had to resort to capturing a fatal error message (I was using a different method, but it didn't work -- trying to get the "Useless use of variable in void context" message, but couldn't figure out HOW).

    Then it occurred to me -- how about I see if there's an error message that contains all the letters I need, and indeed there are several. (This is a sign that Larry played Zero-Wing.)

    And it irks me that Perl has changed the error handling/catching method in 5.6.0. Oh well.

    japhy -- Perl and Regex Hacker

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://60380]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2015-07-06 23:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (85 votes), past polls