How to compare array items

[sali444]

Hi
Help Me Please

#compare @a & @b elements.
#if $a[x] = $b[y] then add to @neo
#print sorted list of @neo elements

@a = qw(BB Ninja an FFF);
@b = qw(ali reza cd an);
@neo = qw();
my $sza = @a;
my $szb = @b;

for($j=0; $j <= $szb; $j++)
{
    for($i=0;$i <= $sza;$i++)
    {
    $c1 = $a[$j];
    $c2 = $b[$i];
        if($c1==$c2) 
        {
        unshift(@neo,$c2);
        print $c1."  ==  ".$c2."\n";
        }
    }
}
print join("\n",sort @neo);

[toolic]

Add "use warnings;" to your code, then eliminate all the warning messages that are generated.

Then add "use strict;' and declare all variables with "my".

Read: http://www.perlmonks.org/?node_id=111088

If your code does not behave as desired, post your actual output and your expected output.

Use CODE tags around your code when you ask questions.

[chaarmann]

You forgot to tell us where your problem is.

Or did you just copy your homework assignment, which you are not allowed here? (the comment in the first lines leads to that assumption)

[sali444]

i want add joint elements to @neo.
and print ...

[chaarmann]

i want add joint elements to @neo.
and print ...

You already did this in your code:
"unshift(@neo,$ c2);" adds the element provided in $c2.
And "print join("\n",sort @neo);" already prints the whole sorted array.

[numberwhun]

Sorry I didn't notice this thread sooner.

Please DO NOT post questions in the "Insights" forum. That is reserved solely for tutorials and articles. Please post all questions under the answers forum(s).

Regards,

Jeff