Re: merging arrays

Hi Anonymous Monk, It works for me as below:

use strict;
use warnings;

my @found_images = qw( hello i am fine);
my $pics_to_find = 2;

my @saved_images = qq(@found_images[0..$pics_to_find]);

#$,="\n";
#print @saved_images;

print $saved_images[0];

__END___
OutPut is :

hello i am
[download]

Use my @saved_images = @found_images[0..$pics_to_find]; also for crunch the array.

Updated

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Comment on Re: merging arrays Select or Download Code

Replies are listed 'Best First'.
Re^2: merging arrays by chromatic (Archbishop) on Jun 24, 2006 at 07:00 UTC
That doesn't work the way you think it works. Assign to `$"` to see what's in the array: `{ local $" = ')('; print "(@saved_images)\n"; }` [download] You really don't need the `qq()` in there.	[reply] [d/l] [select]