can i treat a subroutine call as an array?

[doolittle]

Hi,

The 4th line of the following code fragment is a syntax error.

my @size = getvalue('SZ');
print $size[0]."\n"; #OK
print @{$sgf->SZ}[0]."\n"; #OK
print getvalue('SZ')[0]."\n"; #sysntax error

sub getvalue {
my $propertyname = shift;
return @{$sgf->$propertyname}
}

Can i re-phrase the 4th line in some clever way, or am i stuck with the
methods on lines 1 or 2?

Dan

 

[Paul Lalli]

The 4th line of the following code fragment is a syntax error.

my @size = getvalue('SZ');
print $size[0]."\n"; #OK
print @{$sgf->SZ}[0]."\n"; #OK
print getvalue('SZ')[0]."\n"; #sysntax error

sub getvalue {
my $propertyname = shift;
return @{$sgf->$propertyname}
}

Can i re-phrase the 4th line in some clever way, or am i stuck with the
methods on lines 1 or 2?

print ((getvalue('SZ'))[0] . "\n");

Paul Lalli

 

[xhoster]

Hi,

The 4th line of the following code fragment is a syntax error.

my @size = getvalue('SZ');
print $size[0]."\n"; #OK
print @{$sgf->SZ}[0]."\n"; #OK
print getvalue('SZ')[0]."\n"; #sysntax error

sub getvalue {
my $propertyname = shift;
return @{$sgf->$propertyname}
}

Can i re-phrase the 4th line in some clever way, or am i stuck with the
methods on lines 1 or 2?

In addition to Michele's answer to prettisize #1, you could also
prettisize #2:

print $sgf->SZ->[0], "\n";

Xho

 

[doolittle]

print +(getvalue('SZ'))[0]."\n";
print +(getvalue 'SZ')[0]."\n"; # if predeclared

BTW, you can also

y;.;,;;

Thanks for that.

Sorry to be a pest but why does the +(..) work?

just point me to the relevant docs, (i couldn't find anything under
additive operators)

y;.;,;;

is this a way of saying i could replace . with , if i wanted?

dan

 

[xhoster]

print +(getvalue('SZ'))[0]."\n";
print +(getvalue 'SZ')[0]."\n"; # if predeclared

BTW, you can also

y;.;,;;

Thanks for that.

Sorry to be a pest but why does the +(..) work?

It forces the paranthesis to not be "consumed" by the print
function being interpreted as a function

just point me to the relevant docs, (i couldn't find anything under
additive operators)

Look in perldoc perldiag for something like:
print (...) interpreted as function

(And of course, follow the references you provides)

is this a way of saying i could replace . with , if i wanted?

Yep. If you don't know why it is a Perl geekish way of saying that then:

perldoc -f y

y/// The transliteration operator. Same as "tr///".
See perlop.

Xho

 

[Scott Bryce]

Sorry to be a pest but why does the +(..) work?
just point me to the relevant docs, (i couldn't find anything under
additive operators)

Look under print.

http://perldoc.perl.org/functions/print.html

The + is one way to get around the "If it looks like a function, it is a
function" rule.

 

[Tad McClellan]

Look under print.

http://perldoc.perl.org/functions/print.html

The + is one way

A particularly poor way, when compared to the alternative way...

to get around the "If it looks like a function, it is a
function" rule.

The best way is to actually use parenthesis around the function's
argument list, even if you don't normally choose to put parens
around a function's arg list.