david wrote:
> David wrote:
>
> >> this normally can't be done cleanly and is generally not recommanded
> >> given there are other ways to accomplish bascially the same thing.
>
> Steve Grazzini wrote:
>
> >
> > But why use the symbol table at all? That's more dangerous
> didn't i already mention that? :-)
>
> david
> --
> $_='015001450154015401570040016701570162015401440'
> ,*,=*|=*_,split+local$";map{~$_&1&&{$,<<=1,$#.=qq~
> /[EMAIL PROTECTED]||3])=>~}}0..s,.,,g-01;*_=*#,s
> [[s/eval+w/.`9`/e]]n\\xng.print+eval(eval"qq`$_`")
Speaking of dangerous:
Greetings! E:\d_drive\ocf\discuss\prototype>perl -w
$_='015001450154015401570040016701570162015401440'
,*,=*|=*_,split+local$";map{~$_&1&&{$,<<=1,$#.=qq~
Use of $# is deprecated at - line 2.
/[EMAIL PROTECTED]||3])=>~}}0..s,.,,g-01;*_=*#,s
[[s/eval+w/.`9`/e]]n\\xng.print+eval(eval"qq`$_`")
^Z
Use of implicit split to @_ is deprecated at - line 1.
Useless use of concatenation (.) or string in void context at - line 3.
Use of uninitialized value in regexp compilation at - line 1.
Use of uninitialized value in join or string at - line 2.
Use of uninitialized value in join or string at - line 2.
....
Greetings! E:\d_drive\ocf\discuss\prototype>perl
$_='015001450154015401570040016701570162015401440'
,*,=*|=*_,split+local$";map{~$_&1&&{$,<<=1,$#.=qq~
/[EMAIL PROTECTED]||3])=>~}}0..s,.,,g-01;*_=*#,s
[[s/eval+w/.`9`/e]]n\\xng.print+eval(eval"qq`$_`")
^Z
hello world
Greetings! E:\d_drive\ocf\discuss\prototype>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
