Re^3: Change variable multiple times within a single string?

That is not correct! The value of the variable $yes_or_no will only be changed on the occurrence of 'A' or 'B' in the string. That is what if exists $decision{$_}; is for, there is no entry of for '1' in the hash.

Printing the variable in each line is only showing the current value. The OP had not really said what he wanted to do while running through the string, so I made something up.

In a way, the print statement is completely superfluous, as the script would set the variable according to the wishes of the OP, but it would not be observable...

Comment on Re^3: Change variable multiple times within a single string? Download Code

Replies are listed 'Best First'.
Re^4: Change variable multiple times within a single string? by 2teez (Vicar) on Apr 27, 2013 at 18:09 UTC
~ Printing the variable in each line is only showing the current value.. That is excatly my point. Since, what to print when '1' is seen is not known, I `think` is better to leave it out. Your output: `A (yes) 1 (yes) #? 1 (yes) #? 1 (yes) #? B (no) 1 (no) #? 1 (no) #? 1 (no) #? A (yes) 1 (yes) #? 1 (yes) #? 1 (yes) #? B (no) 1 (no) #? 1 (no) #? 1 (no) #?` [download] Output with a little modification: `A (yes) B (no) A (yes) B (no)` [download] OR one can provide for '1' in hash like so: `my %decision = ( A => 'yes', B=> 'no', '1'=>'', );` [download] Then the output shows: `A (yes) 1 () 1 () 1 () B (no) 1 () 1 () 1 () A (yes) 1 () 1 () 1 () B (no) 1 () 1 () 1 ()` [download] Just saying..... If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Change variable multiple times within a single string?
by 2teez (Vicar) on Apr 27, 2013 at 18:09 UTC

~ Printing the variable in each line is only showing the current value..

That is excatly my point. Since, what to print when '1' is seen is not known, I think is better to leave it out.
Your output:

A (yes)
1 (yes)  #?
1 (yes)  #?
1 (yes)  #?
B (no)
1 (no)   #?
1 (no)   #?
1 (no)   #?
A (yes)
1 (yes)  #?
1 (yes)  #?
1 (yes)  #?
B (no)
1 (no)   #?
1 (no)   #?
1 (no)   #?
[download]

A (yes)
B (no)
A (yes)
B (no)
[download]

my %decision = ( A => 'yes', B=> 'no', '1'=>'', );
[download]

A (yes)
1 ()
1 ()
1 ()
B (no)
1 ()
1 ()
1 ()
A (yes)
1 ()
1 ()
1 ()
B (no)
1 ()
1 ()
1 ()
[download]

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

[reply]
[d/l]
[select]