מדריך שפת Perl

ספר אלקטרוני מאת: ניר אדר

אופרטורים של השוואה

ב-Perl הערכים "", 0 ו-undef מוגדרים כ-False וכל ביטוי אחר מוגדר כ-True. (הגדרה מדוייקת יותר תינתן בהמשך).

ב-Perl ניתן להשתמש באופרטורים גם על ידי סימני האופרטורים >, < וכו' וגם על ידי מילים בעלות אותה משמעות.

הטבלה הבאה מרכזת את אופרטורי ההשוואה השונים של השפה.

אנו מניחים בטבלה כי אנו מריצים את הביטוי $left <OP> $right, כאשר OP היא הפעולה הנדונה בכל שורה בטבלה.

האופרטור	סימון	סימון מילולי	ערך מוחזר
קטן מ-	>	lt	1 אמ"מ $left קטן מ-$right
קטן או שווה	<=	le	1 אמ"מ $left קטן או שווה מ-$right
גדול מ-	<	gt	1 אמ"מ $left גדול מ-$right
גדול או שווה	>=	ge	1 אמ"מ $left גדול או שווה מ-$right
שווה	==	eq	1 אמ"מ $left שווה ל-$right
שונה	!=	ne	1 אמ"מ $left שונה מ-$right
השוואה	<=>	cmp	-1 אמ"מ $left קטן מ-$right, 0 אמ"מ $left שווה ל-$right 1 אמ"מ $left גדול מ-$right

דוגמא:

use strict;
use warnings;

my $a = 5; my $b = 50;
$a < $b;                 # evaluates to 1
$a >= $b;                # evaluates to ""
$a <=> $b;               # evaluates to -1

my $c = "hello"; my $d = "there";
$d cmp $c;               # evaluates to 1
$d ge $c;               # evaluates to 1
$c cmp "hello";          # evaluates to ""