Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

InfiniteSilence's scratchpad

by InfiniteSilence (Curate)
on Jun 02, 2004 at 04:20 UTC ( #359145=scratchpad: print w/replies, xml ) Need Help??

Slight rewrite of EEMimiru's scratchpad:
#!usr/bin/perl use strict; use warnings; #use diagnostics; # let's create a character my %higher_level_struct = ( 'Mimiru'=>{ 'hitpoints'=>10, 'attack' =>5, 'armor' =>2 } ); =head1 BADREUSE my %mimiru = ( "name" => "Mimiru", "hitpoints" => 10, "attack" => 5, "armor" => 2, ); sub score { print "Name: ", $mimiru{"name"}, "\n"; print "Hit Points: ", $mimiru{"hitpoints"}, "\n"; print "Attack Power: ", $mimiru{"attack"}, "\n"; print "Armor Rating: ", $mimiru{"armor"}, "\n"; } =cut sub score { my $whoName = shift @_; my $whoRef = $higher_level_struct{$whoName}; #don't use globals li +ke this print $whoRef->{'hitpoints'}; } # later on a combat system will go here score('Mimiru');
Log In?

What's my password?
Create A New User
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2016-09-29 22:00 GMT
Find Nodes?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:

    Results (562 votes). Check out past polls.