Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Punctuation JAPH

by chipmunk (Parson)
on Nov 29, 2000 at 03:48 UTC ( #43797=obfuscated: print w/replies, xml ) Need Help??

The JAPH in this .sig contains no letters, no digits, no parentheses, no brackets, no braces, no spaces, and no tabs.
$~='`';$_=$:=$~|'%';$;=$^='/'|$~;$;++;$\=$~|"'";$;++;$:.=++$;;$/=++$;; +$\++;$_.= '#'|$~;$,=++$/;$_.="$\$^$\"";++$,;$_.='@'|'*'&~'!';$_.="$,$;$/$\"";$_. +='!.'|$~. $~;$_.="$^$/$\$:$\"";$_.='@'|':'&~'*';$_.=$:;$_.=$^&'|';$_.=$".$\;$_.= +"$~$~$~"| '!#+';++$.;$.++;`$_$:,>&$.`; # Ronald J Kimball <rjk@linguist.dartm +outh.edu>
[This is a shortened version of the JAPH I posted to the Fun With Perl list earlier this year. It was inspired by a post from Michael Assels.]

Replies are listed 'Best First'.
Re: Punctuation JAPH
by djw (Vicar) on Nov 30, 2000 at 19:02 UTC
    /me claps

    I'm still having trouble reading other people's code as I'm still very new to Perl. So everyone's code but mine seems a bit obfuscated.... but your JAPH obfuscation seems impressive! kewl

    Thanks,
    djw

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://43797]
Approved by root
help
Chatterbox?
[Tux]: Corion++ hippo++
[ovedpo15]: it isn't homework. its a module I use at work. The process to add additional module isn't worth it. p.s never heard a university course which teach perl
[marto]: there are many, to this day.
[ovedpo15]: @Corion Yes I use the regex you showed me. its very good regex. although now i need to know that substring unit that comma
marto mad corrections to one around 18 months ago
[ovedpo15]: my code checks the value after that comma, if it isn't valid it will remove it. so I would like to remove the substring after that comma meaning getting the string before comma.
[hippo]: Are you sure that Text::CSV_XS isn't already installed at your work? It's such a useful module that it might well be there.
[marto]: pointing out the advantages of cpan modules is well worth in, as both developer and $client/$company benefit greatly
[Tux]: $src =~ m{^(.*),(.*)$/ and $2 !~ $valid and $src = $1;
[Tux]: s,/,},

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2018-05-27 10:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?