If not equal : Comparison Operators « Language Basics « Perl






  1. Perl
  2. Language Basics
  3. Comparison Operators

If not equal

   

#!/usr/bin/perl -w

use strict;

print "please enter a number: ";
chomp(my $number = <STDIN>);
my $result = 0;

if ($number != 0) {
    $result = 100 / $number;
}

print "the result is: $result\n";








Related examples in the same category

1.Compare integer value
2.Compare string value
3.Compare the first four decimal places
4.Comparing Numbers for Equality
5.Comparing Numbers for Inequality
6.Equality Operators and Numeric Values
7.Equality Operators and String Values
8.Integer-comparison operators.
9.Not equals operator: ne
10.Perl's operators for numeric comparisons
11.String comparison operator
12.String- and numeric-comparison operators.
13.Use eq to compare strings
14.Using eq in statement
15.Using ne in if statement
16.cmp with or
17.eq, ne, lt, gt operators
18.three-way-comparison becomes cmp.
19.<=> returns 0, -1 , or 1
20.Relational Operators and Numeric Values
21.Comparison Operators listing
22.Don't use == when you should use eq!
23.Relational Operators and String Values
24.Relational Operators demo
25.The numeric comparison operator evaluates its operands