Re: Replace $a with $b if $a ne $b

why not:

$a = $b if($a ne $b);
[download]

You should not be using $a and $b however, as they are "special" variables used by sort

They say that time changes things, but you actually have to change them yourself.

—Andy Warhol

Comment on Re: Replace $a with $b if $a ne $b Download Code

Replies are listed 'Best First'.
Re^2: Replace $a with $b if $a ne $b by ikegami (Patriarch) on May 06, 2005 at 18:27 UTC
You should not be using $a and $b however, as they are "special" variables used by sort Doesn't matter. `sort` `local`izes `$a` and `$b`. `$a = 1; print((sort { $b cmp $a } qw( a b c z y x )), $/); print($a, $/); # Prints "1"` [download]	[reply] [d/l] [select]
Re^3: Replace $a with $b if $a ne $b by tilly (Archbishop) on May 07, 2005 at 05:01 UTC
Does too matter. Try this code on perl 5.8.x. `my $a = 1; print((sort { $b cmp $a } qw( a b c z y x )), $/); print($a, $/); # Prints "1"` [download]	[reply] [d/l]
Re^2: Replace $a with $b if $a ne $b by dfgk (Initiate) on Feb 06, 2013 at 10:19 UTC
`$a=$b if ($b ne $a);` how can i do this another way, like a: `+=,*=,.=,\|\|=,..., etc` ps: because my variable $a is very long, for example: `$a{aaaaaaa1}{aaaaaaa2}{aaaaaaa3}=$b if ($b ne $a{aaaaaaa1}{aaaaaaa2}{aaaaaaa3});` Thanks beforehand!	[reply] [d/l] [select]
Re^3: Replace $a with $b if $a ne $b by tobyink (Canon) on Feb 06, 2013 at 10:49 UTC
Just do: `$a = $b;` [download] The `if` clause is fairly redundant (unless you're concerned about one of the variables being a blessed object which overloads stringification). `package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name`	[reply] [d/l] [select]