Perl Tutorial

Fundamentals

Input and Output

Control Flow

Arrays and Lists

Hash

Scalars

Strings

Object Oriented Programming in Perl

Subroutines

Regular Expressions

File Handling

Context Sensitivity

CGI Programming

Misc

Comparing Scalars in Perl

In Perl, scalars are the primary data type for single values. These values can be numbers, strings, or references. Comparing scalars, therefore, is an essential operation, and Perl provides various operators for this purpose.

1. Numeric Comparisons:

When you're dealing with numbers, you'd use:

Equal: ==
Not equal: !=
Greater than: >
Less than: <
Greater than or equal: >=
Less than or equal: <=

my $x = 5;
my $y = 10;

if ($x == $y) {
    print "$x is equal to $y\n";
} elsif ($x > $y) {
    print "$x is greater than $y\n";
} else {
    print "$x is less than $y\n";
}

2. String Comparisons:

For strings:

Equal: eq
Not equal: ne
Greater than: gt
Less than: lt
Greater than or equal: ge
Less than or equal: le

my $str1 = "apple";
my $str2 = "banana";

if ($str1 eq $str2) {
    print "$str1 is equal to $str2\n";
} elsif ($str1 gt $str2) {
    print "$str1 comes after $str2 in lexicographical order\n";
} else {
    print "$str1 comes before $str2 in lexicographical order\n";
}

Note that string comparisons are based on the lexicographical order, not the string's length.

3. Combined Comparisons using cmp:

Perl provides a special operator cmp for strings which returns -1, 0, or 1 depending on whether the first string is lexicographically less than, equal to, or greater than the second string:

my $result = $str1 cmp $str2;

if ($result == 0) {
    print "$str1 is equal to $str2\n";
} elsif ($result > 0) {
    print "$str1 comes after $str2\n";
} else {
    print "$str1 comes before $str2\n";
}

For numbers, there's the <=> operator which works similarly:

my $num_result = $x <=> $y;

if ($num_result == 0) {
    print "$x is equal to $y\n";
} elsif ($num_result > 0) {
    print "$x is greater than $y\n";
} else {
    print "$x is less than $y\n";
}

4. Smart Match Operator (given Perl 5.10 and later):

The smart match operator ~~ can be used to compare two scalars based on their context:

use feature 'say';
use feature 'switch';

given ($x) {
    when ($y) { say "$x is equal to $y"; }
    default   { say "$x is not equal to $y"; }
}

However, note that the smart match operator and given/when construct have been marked experimental in recent versions of Perl. They can still be used but might produce warnings.

Summary:

Comparing scalars in Perl depends on the type of the scalar: numbers or strings. Perl offers a variety of operators to help with comparisons in different contexts. Remember to choose the appropriate comparison operators based on whether you're working with numeric or string scalars.

Comparing strings in Perl:

Description: Basic string comparison in Perl.

Code:

my $string1 = "Perl";
my $string2 = "Python";

if ($string1 eq $string2) {
    print "Strings are equal.\n";
} else {
    print "Strings are not equal.\n";
}

Numeric comparison of scalars in Perl:

Description: Compare scalar values numerically.

Code:

my $num1 = 10;
my $num2 = "10";

if ($num1 == $num2) {
    print "Numeric values are equal.\n";
} else {
    print "Numeric values are not equal.\n";
}

Using comparison operators in Perl:
- Description: Utilize standard comparison operators (==, !=, <, >, <=, >=) in Perl.
- Code:
```
my $value1 = 42;
my $value2 = 30;

if ($value1 > $value2) {
    print "$value1 is greater than $value2.\n";
}
```

Case-insensitive string comparison in Perl:

Description: Perform case-insensitive string comparison.

Code:

my $str1 = "Perl";
my $str2 = "perl";

if (lc($str1) eq lc($str2)) {
    print "Case-insensitive comparison: Strings are equal.\n";
}

Scalar equality and inequality in Perl:

Description: Check for scalar equality and inequality.

Code:

my $value1 = "hello";
my $value2 = "world";

if ($value1 eq $value2) {
    print "Scalars are equal.\n";
} elsif ($value1 ne $value2) {
    print "Scalars are not equal.\n";
}

Comparing scalars in Perl with eq and ne:

Description: Use eq and ne for string equality and inequality.

Code:

my $str1 = "Perl";
my $str2 = "Python";

if ($str1 eq $str2) {
    print "Strings are equal.\n";
} elsif ($str1 ne $str2) {
    print "Strings are not equal.\n";
}

Perl smart matching for scalar comparison:
- Description: Utilize the smart match operator (~~) for scalar comparison.
- Code:
```
my $value = 42;

if ($value ~~ [1, 2, 3, 42, 5]) {
    print "$value is in the list.\n";
}
```

Perl string vs numeric comparison:

Description: Demonstrate the difference between string and numeric comparison.

Code:

my $string_num = "42";
my $numeric_num = 42;

if ($string_num == $numeric_num) {
    print "Numeric comparison: Equal.\n";
} else {
    print "Numeric comparison: Not equal.\n";
}

Customizing scalar comparison in Perl:

Description: Customize comparison with a custom subroutine.

Code:

sub custom_compare {
    my ($value1, $value2) = @_;
    # Custom comparison logic
    return $value1 =~ /perl/i && $value2 =~ /perl/i;
}

if (custom_compare("Perl Script", "PERL Programming")) {
    print "Custom comparison: Strings are similar.\n";
}