Compare Numbers/Strings in Perl

Today we discuss about comparing numbers/strings in Perl.


Compare Numbers:

Syntax : 
$a == $b (Equal check for numbers)
$a != $b (Not Equal check for numbers)

compare_numbers.pl
#!/usr/bin/perl
use strict;
use warnings;

my $num1 = 100;
my $num2 = 200;

if ($num1 == $num2) {
    print "Equal\n";
} else {
    print "Not Equal\n";
}

O/P:
Not Equal

Compare Strings:

Syntax : 
$a eq $b (Equal check for strings )
$a ne $b (Not Equal check for strings)

compare_strings.pl
#!/usr/bin/perl
use strict;
use warnings;

my $string1 = 'one';
my $string2 = 'two';

if ($string1 eq $string2) {
    print "Equal\n";
} else {
    print "Not Equal\n";
}

O/P:
Not Equal