Re: Passing logical operators on as content of scalar

You might be interested in the comparison operator <=>:

#!/usr/bin/perl
use warnings;
use strict;

my $number1 = '2011';
my $number2 = '2011';
my $selectioncriterium = '==';

sub smaller { "$_[0] is smaller than $_[1]" }

my %dispatch = (
     0 => sub { "$_[0] equals $_[1]" },
     1 => sub { smaller($_[1], $_[0]) },
    -1 => sub { smaller($_[0], $_[1]) },
);

print $dispatch{ $number1 <=> $number2 }->($number1, $number2), "\n";
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: Passing logical operators on as content of scalar Select or Download Code

Replies are listed 'Best First'.
Re^2: Passing logical operators on as content of scalar by soonix (Chancellor) on Feb 08, 2018 at 19:59 UTC
`print $number1, " is ", ("less than", "equal to", "greater than")[($number1 <=> $number2) ++ 1], " ", $number2, "\n";` [download]	[reply] [d/l]
Re^3: Passing logical operators on as content of scalar by tybalt89 (Monsignor) on Feb 08, 2018 at 20:19 UTC
`print $number1, " is ", ("equal to", "greater than", "less than")[$number1 <=> $number2], " ", $number2, "\n";` [download] No need to add one :)	[reply] [d/l]
Re^4: Passing logical operators on as content of scalar by soonix (Chancellor) on Feb 08, 2018 at 21:14 UTC
I had thought about that, but decided that it would be easier to grasp without negative indices :-)	[reply]
Re^4: Passing logical operators on as content of scalar by afoken (Chancellor) on Feb 10, 2018 at 18:52 UTC
Nice trick, but it calls for an explaining comment. Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply]