<CODE> stuff here </CODE> is not the same as <CODE> stuff here </CODE>In addition to that, if you hit the d/l code link, perlmonks will print all the stuff in-between code tags, but it will also tack on 3 newlines at the end, but in this case, it doesn't matter.
Your code works as advertised, given that you didn't have beginning whitespace, and that the "d/l code" link was clicked.
If you go ahead and click "d/l code" on my post, you can see that it works.
++ Nice job (worked on win32 and cygwin)
undef$/ ; open ( d , $0 ) ; $_= <d> ; close ( d ) ;s/[^\n ]//g ; s/ /0/g ; s/\n/1/g ; for $i ( 0 .. 23 ) { $a = substr ( $_ , 5 * $i , 5 ) ; print ( chr ( $a=~/0{5}/?32:(96+oct("0b$a")) ) ) }; #################### ################# NOTE, THERE IS NOTHING BEFORE ################# undef$/ ; ################# IT IS THE FIRST LINE __END__ invoking perl f>>f yields (given you call your file f) just another perl hacker
____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.
In reply to Re: the meaning of space
by PodMaster
in thread the meaning of space
by mayaTheCat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |