How to find odd/even numbers in perl

[thendal]

Hi!

How to find a given number is odd or even,any help is appriciated

Thanks in advance

 

[goBoating]

Hello thendal,
Divide by 2 and see if there is anything after the decimal with the 'modulus' operator, %

#!perl
$value = 4;
$odd_num = $value % 2;
if ($odd_num) { print "$value is odd\n"; }
else { print "$value is even\n"; }

$value = 5;
$odd_num = $value % 2;
if ($odd_num) { print "$value is odd\n"; }
else { print "$value is even\n"; }

'hope this helps....




keep the rudder amid ship and beware the odd typo

 

[tanderso]

You could compact that a bit:

my $value = 4;
if ($value%2) {print "$value is even";}
else {print "$value is odd";}
Sincerely,

Tom Anderson
CEO, Order amid Chaos, Inc.

http://www.oac-design.com

 

[thendal]

Thanks a lot goboating and tom anderson,

with love to perl
Thendal