in reply to From Array 2 string

Hi jeanluca, Try this,

use strict;
my @arr = qw(a b c d e f g h);
my $str;
$str .= shift(@arr) until (!(@arr));
print $str;

[download]

Using Join :

$str = join '', @arr;

[download]

Regards,
Velusamy R.

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

Replies are listed 'Best First'.
Re^2: From Array 2 string
by reasonablekeith (Deacon) on Nov 15, 2005 at 11:37 UTC
    That's a very strange example for join you've got going there. I'd guess the OP is just after... 
    my @arr = qw(a b c d e f g h);
my $str = join('', @arr);

    [download]
    Am I missing something?
    ---
    my name's not Keith, and I'm not reasonable.
[reply]
[d/l]

In Section Seekers of Perl Wisdom