Chas. Owens wrote:
On Mon, Jul 12, 2010 at 07:25, Rob Coops<rco...@gmail.com> wrote:
snip
In other words you are using a function inside a function. If you split this
into two lines.
my @split_result = split /:/;
print $outfile join(" ", "socks5", @split_result)
snip
By that logic it should read
my @split_result = split /:/;
my $join_result = join " ", "socks5", @split_result;
print $outfile $join_result;
or more verbosely:
my @split_result = split /:/;
unshift @split_result, "socks5";
my $join_result = join " ", @split_result;
print $outfile $join_result;
or the ridiculously magicless:
my @split_result = split /:/, $_, 0;
unshift @split_result, "socks5";
my $join_result = join " ", @split_result;
print $outfile $join_result;
Or:
my @split_result = ( 'socks5', split /:/ );
print $outfile "@split_result";
John
--
Any intelligent fool can make things bigger and
more complex... It takes a touch of genius -
and a lot of courage to move in the opposite
direction. -- Albert Einstein
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
