comment on

I think I mostly figured out the hash thing. (The answer is always hashes, isn't it!) Thanks guys! BUT for instance I have a variable called CMB, for example, that uses a dice rolling subroutine, that gives me random numbers before the hash. (Can you tell what I'm doing? :P) I'm having a problem with this giving me the same dice roll every time. Let's say A = 14 because I rolled a 14. But, after this value goes in the hash, it gets stuck at 14. So if I want to be able to stay in the program and keep typing in numbers, I will always get a 14 for A. Before it goes in the hash, I can keep getting new numbers for the rolls, but I want to get new numbers afterwards as well. Any help for this?

 sub roll{
my ($a)=@_;
#chop($a);
($b,$constant)=split(/\+|\-/,$a);
($number,$dice)=split(/[dD]/, $b);
if ($constant==''){
    $constant=0;
}
if($a=~ m/\-/){
    $constant*=(-1);
}
$count=0;
for ($c=1; $c<=$number; $c++){
$d[$c]=int(rand($dice))+1;
$count += $d[$c];
}
$count += $constant;
if ($count<0){
$count=0;
}
return "$count";
}


$A=roll("1d20");
$B=roll("1d20");
$C=roll("1d20");

print "BEFORE HASH:$A\t$B\t$C\n";

%hash= (
A => "$A",
B => "$B",
C => "$C",
);



print "What would you like to know?\n\n";


$type=<STDIN>;
chomp($type);

until ($type eq "Q"){

#print "You typed .$type.\n";

print "\n\n$type: $hash{$type}\n";


print "What would you like to know?\n\n";
$type=<STDIN>;
chomp($type);
}
[download]

In reply to Re^2: Using user input to return variable typed. by myelinviolin
in thread Using user input to return variable typed. by myelinviolin

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


more useful options
	PerlMonks