Re^4: keep track of array indexes

The answer is the same: Use a hash.

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use List::Util qw{ shuffle };

my @words = qw( this is my string );
my @order = 0 .. $#words;

my %ord;
@ord{@words} = 0 .. $#words;

@words = shuffle(@words);
@order = @ord{@words};

print do { local $" = "\t"; "@words\n", "@order\n" };
say join ' ',
    map $words[$_],
    sort { $order[$a] <=> $order[$b] }
    @order;
[download]

($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^4: keep track of array indexes Select or Download Code

Replies are listed 'Best First'.
Re^5: keep track of array indexes by LanX (Saint) on Jan 03, 2016 at 05:08 UTC
Nobody seemed to care, but words are not necessarily unique. So instead of hashing one index we need to store an array of indices per word. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]
Re^6: keep track of array indexes by choroba (Cardinal) on Jan 03, 2016 at 17:58 UTC
Only a slight modification needed. `#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; use List::Util qw{ shuffle }; my @words = qw( this is a string with a word ); my @order = 0 .. $#words; my %ord; push @{ $ord{ $words[$_] } }, $_ for 0 .. $#words; # <-- Here... @words = shuffle(@words); @order = @ord{@words}; print do { local $" = "\t"; "@words\n" }; say join "\t", map "[@$_]", @order; @order = map shift @$_, @order; # <-- and here. say join ' ', map $words[$_], sort { $order[$a] <=> $order[$b] } @order;` [download] ($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^7: keep track of array indexes by LanX (Saint) on Jan 03, 2016 at 18:03 UTC
Of course, I had no doubt you know how to do it! ;) Just wanted to point out that the inverse of a function isn't necessarily a function again. :) Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]
Re^5: keep track of array indexes by Cristoforo (Curate) on Jan 03, 2016 at 00:05 UTC
Hello choroba. I have a question about your last line where you say `@order`. Not sure why it works out. Why does this work instead of saying `0..$#order`? Maybe I'm missing something obvious. Update Wow, just took stepping away from the problem to see that both ways supply the same set of array indices. Knew it had to be obvious.	[reply] [d/l] [select]