May 24, 2010, 2:49 PM
Post #2 of 2
The short answer is:
Re: [tifrah2008] change join command and add counter
[In reply to]
print PARAM join( ';', $UNITNAME, join( ',', @APPL_NAMES ), join( ',', @HOSTNAMES ) ), ',', scalar keys @HOSTNAMES, "\n";
however, I would prefer to see this long statement factored into more logical pieces.
my $appl_names = join q(,), @APPL_NAMES;
my $host_names = join q(,), @HOSTNAMES;
The use of the q functions is not really necessary, but it does help to distinguish between characters to be output and the syntax of the join and print statements.