Hi,
Could someone please explain to me why the following outputs an empty
string rather than *?
get();
sub get($)
{ my $fields = shift;
my @fields = grep $_ ne 'domain', @$fields;
my $select_fields = $fields ? join(',', map { 'users.' . $_ } @fields) :
'*';
print $select_fields\n;
On Tue, Aug 13, 2013 at 4:09 PM, Andrew Beverley a...@andybev.com wrote:
my $select_fields = $fields ? join(',', map { 'users.' . $_ } @fields)
: '*';
my $select_fields = @fields ? join(',', map { 'users.' . $_ } @fields)
: '*';
?
Maybe a lesson in variable naming there ;-)
Paul
On 14 August 2013 00:09, Andrew Beverley a...@andybev.com wrote:
Hi,
Could someone please explain to me why the following outputs an empty
string rather than *?
get();
sub get($)
{ my $fields = shift;
my @fields = grep $_ ne 'domain', @$fields;
my $select_fields = $fields ?
On Aug 13, 2013 7:35 PM, Paul Makepeace pa...@paulm.com wrote:
On Tue, Aug 13, 2013 at 4:09 PM, Andrew Beverley a...@andybev.com wrote:
my $select_fields = $fields ? join(',', map { 'users.' . $_ }
@fields)
: '*';
my $select_fields = @fields ? join(',', map { 'users.' . $_ }
On Tue, Aug 13, 2013 at 4:09 PM, Andrew Beverley a...@andybev.com wrote:
get();
sub get($)
(You probably know this but calling get() like that, i.e. before it's
declared, is denying perl the chance to enforce the subroutine
prototype.)