avoiding the hash

[Anonymous Monk]

Hi monks, I wondered if there was a way of pairing up the numbers from two arrays (e.g. $array[[0]] with $array2[[0]] etc for the whole array of unknown size) without using a hash. The reason is that I need to keep my data in the same order as the arrays hold it. Cheers.

[smitz]

Yuk:

for (0 .. scalar(@array1)) {
    $temparray[$_] = $array[$_] . '|' . $array2[$_];
}

then you can split @temparray on the bar (|)

Smitz
this reply makes me feel dirty

[Anonymous Monk]

perfect - thankyou!

[Skeeve]

will fail as soon as you have '|' in any of array's elements.

[zby]

He says numbers. The first time I too thought he needs an escape function.

[smitz]

I wondered if there was a way of pairing up the numbers from two arrays

I assumed numbers in this case matched \d

Smitz

Update Messed up my Regex, thanks nkuvu

[zby]

You can put them into a string:

$array[0] . "|" . $array2[0]

Or you can put them into an array:

my $newarray[0] = [$array[0], $array2[0]];

Update: Got rid of the escape function: they are just numbers. Got rid of the temporary variable.

[Skeeve]

You simply want to avoid it because of the order? So why not not-avoid and do it this way:

@hash{@array}=@array2;
foreach $v (@array) {
  print $hash{$v};
}

You have paired them in %hash and keep the sequence in @array.

[Corion]

Which is OK as long as @array dosen't contain duplicates ...

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web

[Skeeve]

*sigh* There is always a downside :-/

[bart]

You want a hash, but one that maintains the order? Just like in PHP? Then perhaps look into one of those many hash modules on CPAN. The FAQ only mentions Tie::IxHash, and seen its age, I gather it must be one of the more robust modules for this purpose.

[Anonymous Monk]

Your playing with fire, this an intrinsicly dangerous thing, mainly because no concrete coupling will exist between the two separate arrays and so your data could easily get out of sequence. I think what you are looking for is : 1) An Array of Arrays (perls way of doing higher dimentional data structures) 2) A routine to take your pair of arrays and combine them (re-index) into the array of arrays.