Join function

truthseeker66 has asked for the wisdom of the Perl Monks concerning the following question:

When I execute this I expect see
'five-@-four-@-one-@-three-@-two'

#!/usr/bin/perl
use strict;
use warnings;

my@array = qw(one two three four five);
print "The original array contains @array \n\n";
my$string = join ("-@-", sort@array);
print "The string contains $string \n";
[download]

But why do I see?
'The string contains five-four-one-three-two'

Comment on Join function Download Code

Replies are listed 'Best First'.
Re: Join function by toolic (Bishop) on Oct 09, 2012 at 20:29 UTC
Double quotes interpolate variable values, and @- is a special variable. Use single quotes instead: `my $string = join ('-@-', sort@array); # My output # The string contains five-@-four-@-one-@-three-@-two` [download] UPDATE: Here is a quote from perlop which I think is a handy bit of trivia: "Punctuation" arrays such as @* are usually interpolated only if the name is enclosed in braces @{*}, but the arrays @_ , @+ , and @- are interpolated even without braces.	[reply] [d/l]
Re^2: Join function by truthseeker66 (Novice) on Oct 10, 2012 at 13:16 UTC
yes, it works. Thanks.	[reply]