كيف أقارن متغيّرين نصيّين Strings على Perl؟

هناك العديد من الطّرق للمقارنة بين السلاسل النّصيّة في Perl :

cmp

اختصار لـ Compare وتعني قارن:

'a' cmp 'b' # -1
'b' cmp 'a' #  1
'a' cmp 'a' #  0

eq
اختصار لـ Equal وتعني يُساوي:

'a' eq  'b' #  0
'b' eq  'a' #  0
'a' eq  'a' #  1

• ne 

اختصار لـ Not-Equal وتعني لا تساوي:

'a' ne  'b' #  1
'b' ne  'a' #  1
'a' ne  'a' #  0

lt
اختصار لـ Less than وتعني أصغر من:

'a' lt  'b' #  1
'b' lt  'a' #  0
'a' lt  'a' #  0

le

اختصار لـ Less than or equal to وتعني أصغر من أو تُساوي:

'a' le  'b' #  1
'b' le  'a' #  0
'a' le  'a' #  1

gt

اختصار لـ Greater than وتعني أكبر من:

'a' gt  'b' #  0
'b' gt  'a' #  1
'a' gt  'a' #  0

ge

اختصار Greater than or equal to وتعني أكبر من أو تساوي:

'a' ge  'b' #  0
'b' ge  'a' #  1
'a' ge  'a' #  1

على لغة Perl يمكننا مقارنة متغيرين نصيين كالآتي:

if ( fc($x) eq fc($y) ) {
 print '  متساويتينy و x قيمة كل من ' ;
}

وهناك أيضا عوامل مقارن المتغيرات:

• "<" : تُرجع قيمة true في حالة كان المتغير الأول أكبر من المتغير الثاني.
• ">": تُرجع قيمة true في حالة كان المتغير الأول أصغر من المتغير الثاني.
• "<=":تُرجع قيمة true في حالة كان المتغير الأول أكبر من أو يساوي المتغير الثاني.
• ">=": تُرجع قيمة true في حالة كان المتغير الأول أصغر من أو يساوي المتغير الثاني.
• هناك أيضا : "lt":"gt" ,"le", "ge", "==" , "!=" ,"<=>" يمكن التعرّف على وظيفتها من خلال الرابط