creating array like this

[richardko]

hi,
can anyone suggest how i go about creating an array like this:
123 asd 1.22 asdd
32 ewq 2.32 asdd
43 rewq 2.12 ewet
51 erwt 34.2 ewet
23 erww 4.21 ewet
91 fdgs 3.43 ewet
123 refs 3.22 asdd
123 refs 4.32 asdd

The problem i had was when i tried to use the Sort::Fields module in the CPAN.

http://search.cpan.org/~jnh/Sort-Fields-0.90/Fields.pm#EXAMPLES

thanks

 

[spookie]

Use Array of Arrays

@AoA = (
        [ 123,"asd",1.22,"asdd" ],
        [ 32,"ewq",2.32,"asdd" ],
        [ 43,"rewq",2.12,"ewet" ]        
      );

--------------------------------------------------------------------------
I never set a goal because u never know whats going to happen tommorow.

 

[ishnid]

If it's for Sort::Fields, then it's a normal array, not an array of arrays that's necessary.

my @array = (
  '123   asd   1.22   asdd',
  '32    ewq   2.32   asdd',
  '43    rewq  2.12   ewet',
  '51    erwt  34.2   ewet',
  '23    erww  4.21   ewet',
  '91    fdgs  3.43   ewet',
  '123   refs  3.22   asdd',
  '123   refs  4.32   asdd'
);

A nice trick when putting test data in a script like this is to use the special DATA filehandle, i.e.:

#!/usr/bin/perl
use strict;

my @array = <DATA>;

# rest of your code here

__DATA__
123   asd   1.22   asdd
32    ewq   2.32   asdd
43    rewq  2.12   ewet
51    erwt  34.2   ewet
23    erww  4.21   ewet
91    fdgs  3.43   ewet
123   refs  3.22   asdd
123   refs  4.32   asdd

 

[richardko]

thank you for the valuable post. I have another question as to how i create an array with the example above without using a text file but from other source. For example I am using a DB_File module to read from a Berkeley database file which is like this:
1 -> Cyclops-Remote.html 199.00
2 -> EFG500K.html 10.00
4 -> 9906.html 12.00

1,2,4 are the key. "Cyclops-Remote.html", "199.00" are the value for key "1" and so forth.
After finding the "key" I use the code below to get the "value":
dbmopen(%key, "berkeley.db", undef) or die "dbmopen: $!";
@pages=("1","2","4");
foreach (@pagess){
push (@testarray,$key{$_});
}

My question is how can I create a "testarray" so that I can sort the list afterwards to be able to search by "Price" (10.00,12.00,199.00) or by the name of the file (9906.html,Cyclops-Remote.html,EFG500K.html) .
I am trying to create a search for my website where I should be able to sort the products by name,price,or other factors.

Any hint is appreciated.

Thank you