Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
doctor
#perl 5.22.1 package Doctor; use JSON; our $name=""; sub new{ my($pkg,$Props) = @_; my $self = {}; for my $key (keys %$Props){ $self{$key}=$$Prop{$key} }; return bless $self, $pkg; }; sub profile{ my($self,$profile)=@_; for my $key (keys %$profile){ $self{profile}{$key}=$$profile{$key} } if @_ > 1; return $self->{profile} } sub get{ my $self=shift; my $tree="{".join ("}{",split(/\:/,shift)); if (eval {'exists $self'.$tree}){return eval { 'exists $self'.$tree } }; sub toJSON{ }; } 1; package main; use strict; use warnings;
run
|
edit
|
history
|
help
0
Test 41/2
Array_range_operators
Perl
Hash Refrence for memory optimization
testing dereference of anonymous routines
Perl Lang
Attractive Numbers
Hash
Password Validation
Simple Perl Interview Question