?

Log in

No account? Create an account

Previous Entry | Next Entry

~xH3Yx~~x3V3RYON3x~~xIx~~xWROT3x~~xAx~~xBITx~~xOFx~~xOBSFUCAT3Dx~
~xP3RLx~~xTHATx~~xTRANSLAT3Zx~~x3V3Nx~~xTH3x~~xB3STx~~xWRITT3Nx~
~xPROS3x~~xINTOx~~xSOM3THINGx~~xTHATx~~xBL3NDZx~~xINx~~xMOR3x~
~xWITHx~~xTH3x~~xAV3RAG3x~~xLIV3JOURNALx~~xPOSTx~!!!!!!!!!!!1111oneoneone~xR3M3MB3R,x~~xIFx~~xYOUx~~xN33Dx~~xANYx~~xCUSTOMx~
~xP3RLx~~xPROGRAMMING,x~~xMYx~~xCONTACTx~~xINFORMATIONx~~xIZx~
~xINx~~xMYx~~xUS3RINFOx~!!!!!!!!!!!1111oneoneone!!!!!!!!!!!1111oneoneone

:-)!!!!!!!!!!!1111oneoneone

Sorry about your eyes...
What that said was:

Hey everyone I wrote a bit of obsfucated perl that translates even the best written prose into something that blends in more with the average livejournal post
Remember, if you need any custom perl programming, my contact information is in my userinfo

:-)


#!/usr/bin/perl
while($_=uc <STDIN>){$_=~s/S /Z /g;$_=~s/\s*([A-Z,0-9]+)\s*/~x$1x~/g;$_=~s/E/3/g;$_s=~s/I/1/g;$_=~s/$/!!!!!!!!!!!1111oneoneone/;print $_; };

(The next program reverses the effect)
#!/usr/bin/perl
while($_=<STDIN>){$_=~s/!+1+oneoneone//g;$_=~s/~x([A-Z,0-9]+)x~/ $1 /g;$_=~s/Z /S /g;$_=~s/3/E/g;$_s=~s/1/I/g;print lc $_; };

Comments

( 11 comments — Leave a comment )
ex_tetra908
Nov. 19th, 2004 03:35 pm (UTC)
hey, how hard is it to write a perl script to take info from a webpage and mail it to ya?
noweb4u
Nov. 19th, 2004 03:36 pm (UTC)
it's about 5 minutes of work
ex_tetra908
Nov. 19th, 2004 03:47 pm (UTC)
what about for someone who doesn't know perl?
noweb4u
Nov. 19th, 2004 04:03 pm (UTC)
Fun way to kill an evening to pick up the basics, then about 10 minutes.
ex_tetra908
Nov. 19th, 2004 04:11 pm (UTC)
hmmm, can you recomend a good book?
noweb4u
Nov. 19th, 2004 04:23 pm (UTC)
My favorite is "Programming Perl", but others have said that "Learning Perl" is good. It all depends on whether you learn from reference material like I do, or whether you learn from instructional material.

Either way, if you intend to program more than a few programs, you'll want to have a copy of "Programming Perl" on your desk as a reference. It contains wonderful examples on how to initiate TCP/IP connections, how to write servers, how to sort data, how to manipulate files and data, etc. And it describes every function with an example use printed below the description.
ex_tetra908
Nov. 19th, 2004 04:26 pm (UTC)
cool thanks
noweb4u
Nov. 19th, 2004 04:31 pm (UTC)
no problem, and if you ever have a question, you can hit me here, or on IRC (irc.cwru.edu/#mi2600)
ibm
Nov. 19th, 2004 06:08 pm (UTC)
just a heads up, but the fact that this post is one Very Long Line breaks the shit out of Safari's rendering. my friends page is now 3-4 screens wide to accomodate that line of text. :)
noweb4u
Nov. 19th, 2004 07:19 pm (UTC)
I write to publish. Does that look better?
mynameisnotreal
Nov. 20th, 2004 04:15 pm (UTC)
You've taken the art out of lamerspeak dude...
( 11 comments — Leave a comment )