Re: Split array and join with results

If I understand it correctly, you are assigning each color to each phone.
Reading the phones list from file into an array, I leave up to you.

@phones=qw(iph1 iph2 iph3);
@colors=qw(blue green red);

foreach $phn (@phones)
{
    foreach $colr (@colors)
        {
            print "\n$phn $colr";
        }
        print "\n===";
}
[download]

Does this help?

Comment on Re: Split array and join with results Download Code

Replies are listed 'Best First'.
Re^2: Split array and join with results by perlnoobster (Sexton) on Aug 22, 2012 at 15:07 UTC
hi, Thank you for replying! I sort of understand what you've done but the phone models are read from a text file and they can vary from anything from a few models to loads more so i cant hard code that into the code, can that be adapted into the coding? I'm currently using this array for the list of all the colours: `@colours = ( "baby blue", "baby pink", "black", "dark blue", "brown" +, "dark purple", "green", "orange", "hot pink", "light purple", "red" +, "white", "yellow"); foreach $colour (@colours) { print $colour; }` [download] I hope this makes sense?	[reply] [d/l]
Re^3: Split array and join with results by perlnoobster (Sexton) on Aug 22, 2012 at 15:15 UTC
to simply, how do i adapt the following: `@phones=qw(iph1 iph2 iph3);` so that it reads the phone titles from the text file: `chomp $results; push (@oid,$results[0]); $_ = defined($_) ? $_ : '' for @results;` [download] I hope that makes sense?	[reply] [d/l] [select]
Re^4: Split array and join with results by cheekuperl (Monk) on Aug 22, 2012 at 16:00 UTC
Assuming your text file contains one entry on each line like this: `iph1 iph2 iph3 ...` [download] You can simply slurp this file into an array like this: `@phones=<FILE_HANDLE>;` [download] Make sure you use chomp on the array elements appropriately! Does this make sense?	[reply] [d/l] [select]