Re^5: TK "textvariable" not updating with @var but ok with $var

sub change_var1_1 {
    change_var1_2(\@var1);
    $status = "change_var1_1 called $var1[3], $var1[5]";
}
sub change_var1_2 {
    my $var=shift;
    $var->[3] = 6;
    $status = "change_var1_2 called $var->[3]";
}
[download]

Comment on Re^5: TK "textvariable" not updating with @var but ok with $var Download Code

Replies are listed 'Best First'.
Re^6: TK "textvariable" not updating with @var but ok with $var by mark4 (Acolyte) on Feb 05, 2017 at 15:58 UTC
(My termemology may be off here, I'm a hardware guy :)) I see, You can send the pointer to the array to the subroutine so that the subroutine knows which array to modify. This works for me !! Also, my appologies for caling it @var1. It actually highlights my 'wrong' thinking that you can treat an array just like a variable. (and this may be what you were saying, i.e. pointing out my 'wrong' thinking.) This code was actually a stripped down example (believe it or not) and as I replaced the original variables and arrays, I just picked @var1 and $var2. Thanks for your help, I understand now. Also, for my purpouses, This works just as well: (Note, I global replaced 'var1' with 'fee') `my @some_arry_to_modify_by_the_sub; my @some_other_arry_to_modify_by_the_sub_with_the_same_structure_but_ +different_data; #some call like ---> change_fee_1(@some_arry_to_modify_by_the_sub); #or ---> change_fee_2(@some_arry_to_modify_by_the_sub) sub change_fee_1 { change_fee_2(@_); $status = "change_fee_1 called $_[3], $_[5]"; } sub change_fee_2 { $_[3] = 6; $status = "change_fee_2 called $_[3]"; }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^6: TK "textvariable" not updating with @var but ok with $var
by mark4 (Acolyte) on Feb 05, 2017 at 15:58 UTC


my @some_arry_to_modify_by_the_sub;
my  @some_other_arry_to_modify_by_the_sub_with_the_same_structure_but_
+different_data;

#some call like ---> change_fee_1(@some_arry_to_modify_by_the_sub);
#or ---> change_fee_2(@some_arry_to_modify_by_the_sub)

sub change_fee_1 {
    change_fee_2(@_);
    $status = "change_fee_1 called $_[3], $_[5]";
}


sub change_fee_2 {
    $_[3] = 6;
    $status = "change_fee_2 called $_[3]";
}
[download]

[reply]
[d/l]