perl

zahheb · 08-19-2012, 12:58 AM

package Employee;
sub position {
my $obj = shift;
@_ ? $obj->{position} = shift # modify attribute
: $obj->{position}; # retrieve attribute
}

i am not able to understand @_ ? : ......what does it mean??

thanks

es0teric · 08-19-2012, 01:20 AM

That's a conditional statement, like "if ... else..."

Check out near the bottom of this page:
http://www.tutorialspoint.com/perl/perl_conditions.htm

gregAstley · 08-19-2012, 10:07 AM

Quote:

Originally Posted by zahheb

package Employee;
sub position {
my $obj = shift;
@_ ? $obj->{position} = shift # modify attribute
: $obj->{position}; # retrieve attribute
}

i am not able to understand @_ ? : ......what does it mean??

thanks

learning perl myself, but as mentioned above it's c-like shorthand for an if else statement - you could of course re-write it as
if(@_)
{
$obj->{position} = shift # modify attribute
}
else
{
$obj->{position}; # retrieve attribute
}