Double quotes maintain the array context, so you could try the following:

{
    local $" = undef;
    print "Your result is: @array";
}
[download]

local $" = undef;

This produces warnings.

>perl -wMstrict -le
"my @ra = (1,2,3,4,5);
 { $\" = undef;  print qq{@ra}; }
"
Use of uninitialized value in join or string at -e line 1.
12345
[download]

Try something like assigning $" the empty string instead of undef:

>perl -wMstrict -le
"my @ra = (1,2,3,4,5);
 { $\" = '';  print qq{@ra}; }
"
12345
[download]

Or better yet, just use join('', @ra) as suggested by others.

Try something like assigning $" the empty string instead of undef:

>perl -wMstrict -le
"my @ra = (1,2,3,4,5);
 { $\" = ''; print qq{@ra}; }
"
[download]

You are correct about the use of undef but the local that CountZero used is necessary otherwise the change is global in scope.

$ perl -Mstrict -wle '
> my @arr = ( 1, 2, 3 );
> print qq{@arr};
> { $" = q{}; print qq{@arr} }
> print qq{@arr};'
1 2 3
123
123
$
[download]

I usually limit the scope to the print itself by using a do BLOCK.

$ perl -Mstrict -wle '
my @arr = ( 1, 2, 3 );
> print do{ local $" = q{}; qq{@arr} };'
123
$
[download]

I hope this is of interest.

Cheers,

JohnGG

You might want join
print join("",@array);

I think you might have misunderstood how interpolation and scalar versus list context works. However I would prefer to leave the explanation up to someone who is better at expressing their wisdom than myself.

Was that on purpose or a typo that you have a period (.) instead of a comma (,) between the string and your @array ?

If the former, you should read up about context. The concatenation operator (.) joins two scalars, so the array is in scalar context (i.e. the concatenation needs a scalar, so the array provides a scalar). An array provides its size in scalar context, in this case 4

The parameters of a print on the other hand (with the possible exception of the optional filehandle parameter) provide list context which is why a comma works

print "The array is ", @array, "\n";

or

print( "The array is ", @array, "\n");

print "The array is ", @array, "\n"; or print( "The array is ", @array, "\n");

use strict;
use warnings;

my @array=(1,1,1);

print "Reslut:",@array;
[download]

For the benefit of those whose eyesight isn't quite what it was, the difference between the original posting and this reply is that the dot/period has been replaced with a comma. :-)

(Oh, and "result" has been re-spelt more rudely!)

For the record, the same kind of approach can be expressed as:

print "Your result is: ";
print @array;
[download]

--
use JAPH;
print JAPH::asString();

@array = (1,2,3,4,5);
local $"= "";
print "Your result is @array";
[download]

I am not sure how using output list separator ($") is going to affect the rest of your program That is why i've put it local (assuming u r using a subroutine).

It is better to limit the scope of the change using a bare code BLOCK

{
    local $" = q{};
    print qq{@array};
}
[download]

or a do BLOCK

print do{ local $" = q{}; qq{@array} };
[download]

I hope this is useful.

Cheers,

JohnGG

my $n = @array;
my $count=0;
for (my $i=0; $i<$n; $i++){
    print $array[$count];
    $count++
}
[download]