Re: Polymorphism JAPH

Nice! works like a charm.
But to be pickey, like merlyn said before, the proper way to write the origional JAPH = j Just another Perl hacker,
Note the , and the cases. ;-)
So with the help i got earlyer of this site i took the liberty of changing your nice script a little:
o=H->new (1,"\152\165\163\164",2,"\141\156\157\164\150\145\162",3,"\120\145\162\154",4,"\150\141\143\153\145\162\54"); print "$o->{
(i only break your nice lay-out now :-)

*update* ok, as cog wrote below.... it is:

o=H->new(1,"\112\165\163\164",2,"\141\156\157\164\150\145\162",3,"\120
+\145\162\154",4,"\150\141\143\153\145\162\54"); print "$o->{
$_}"
[download]

"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.

Comment on Re: Polymorphism JAPH Select or Download Code

Replies are listed 'Best First'.
Re^2: Polymorphism JAPH by cog (Parson) on Apr 14, 2005 at 09:47 UTC
the proper way to write the origional JAPH = just another Perl hacker, The proper way actually has the "j" uppercased, and doesn't have a trailing space (you don't mention this, by I see the obfu prints it). `print "Just another Perl hacker,";` That prints it out the proper way.	[reply] [d/l]
Re^2: Polymorphism JAPH by cristian (Hermit) on Apr 14, 2005 at 13:39 UTC
`Realy the script search show the polymorphism and inheritance this explained with 4 level of call new sub object. I generate 4 level de inheritance for J A P H , is for the art.It's for what look more nice. The idea es practice OO with JAPH - Just another Perl hacker,` [download]	[reply] [d/l]