Re^5: Simplify code in Perl with "unless" conditionnal

If you want to replace @browsers with @random_array, you need to do it everywhere. You only used the random array to get the indices, which are in fact the same as in the original. Replace all mentions of @browsers by @random_array (except the one where you shuffle it, of course).

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^5: Simplify code in Perl with "unless" conditionnal Download Code

Replies are listed 'Best First'.
Re^6: Simplify code in Perl with "unless" conditionnal by Chaoui05 (Scribe) on May 30, 2016 at 13:22 UTC
I did it but nothing changes. Have i to do it with "shuffle" or there is another way ? Lost in translation	[reply]
Re^7: Simplify code in Perl with "unless" conditionnal by choroba (Cardinal) on May 30, 2016 at 13:31 UTC
What do you mean by "nothing changes"? I'm getting different output on each run: `#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; use List::Util qw{ shuffle }; my @browsers = ('firefox', 'chrome', 'internet explorer'); my %screen = map { $_ => "$_\'s screen" } @browsers; my @random_array = shuffle(@browsers); for my $b1_idx (0 .. $#random_array - 1) { my $b1 = $screen{ $random_array[$b1_idx] }; for my $b2_idx ($b1_idx + 1 .. $#random_array) { my $b2 = $screen{ $random_array[$b2_idx] }; say "About to compare $b1 with $b2"; } }` [download] Read more... (841 Bytes) ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^8: Simplify code in Perl with "unless" conditionnal by Chaoui05 (Scribe) on May 30, 2016 at 13:50 UTC
I wanted to say i have the same output. But it's ok indeed! It's just because sometimes, i have different sizes between browser screenshots. Compare & difference methods work with exact same size screenshots in Selenium::Screenshot package. Thanks for reply choroba ! Lost in translation	[reply]
Re^8: Simplify code in Perl with "unless" conditionnal by Chaoui05 (Scribe) on May 30, 2016 at 13:56 UTC
I have got one question . Why did you add 1 in line below: `for my $b2_idx ($b1_idx + 1 .. $#random_array) {` [download] +1 Lost in translation	[reply] [d/l]
Re^9: Simplify code in Perl with "unless" conditionnal by choroba (Cardinal) on May 30, 2016 at 14:00 UTC
Re^10: Simplify code in Perl with "unless" conditionnal by Chaoui05 (Scribe) on May 30, 2016 at 14:47 UTC


There's more than one way to do things
	PerlMonks