Confused about string matching

[columb]

So, I'm working with data lines which end with a return code and an optional non numeric message code. What I have so far is

my @bits = split /\s+/;
if ( $bits[-1] =~ /^\d+$/ )
  { $retcode = $bits[-1]; }
else
  { $retcode = $bits[-2]; }

No problem with that, it works but why can't I use

my @bits = split /\s+/;
$bits[-1] =~ /^\d+$/ and $retcode = $bits[-1] or $retcode = $bits[-2];

or

my @bits = split /\s+/;
$bits[-1] =~ /^\d+$/ ? $retcode = $bits[-1] : $retcode = $bits[-2];

Both of those always set retcode to $bits[-2]. An explanation would be greatly appreciated.

Thanks.

On the internet no one knows you're a dog

Columb Healy

 

[feherke]

Hi

Maybe I misunderstand you, but your first and second code works for me. The third has bad syntax, should be :

[navy]$retcode[/navy] [teal]=[/teal] [navy]$bits[/navy][teal][-[/teal][purple]1[/purple][teal]][/teal] [teal]=~[/teal] [green][i]/^\d+$/[/i][/green] [teal]?[/teal] [navy]$bits[/navy][teal][-[/teal][purple]1[/purple][teal]][/teal] [teal]:[/teal] [navy]$bits[/navy][teal][-[/teal][purple]2[/purple][teal]];[/teal]

Feherke.

http://free.rootshell.be/~feherke/