Perl - Operator

Apa itu Operator?

Jawaban sederhana dapat diberikan menggunakan ekspresi 4 + 5 sama dengan 9 . Di sini 4 dan 5 disebut operan dan + disebut operator. Bahasa Perl mendukung banyak jenis operator, tetapi berikut ini adalah daftar operator penting dan paling sering digunakan -

  • Operator Aritmatika
  • Operator Kesetaraan
  • Operator Logis
  • Operator Penugasan
  • Operator Bitwise
  • Operator Logis
  • Operator Kutipan
  • Operator Miscellaneous

Mari kita lihat semua operator satu per satu.

Operator Aritmatika Perl

Asumsikan variabel $ a menampung 10 dan variabel $ b menampung 20, maka berikut ini adalah operator aritmatik Perl -

Tunjukkan Contoh

Sr.No. Operator & Deskripsi
1

+ ( Addition )

Menambahkan nilai di kedua sisi operator

Example - $ a + $ b akan memberi 30

2

- (Subtraction)

Mengurangi operan tangan kanan dari operan tangan kiri

Example - $ a - $ b akan memberikan -10

3

* (Multiplication)

Mengalikan nilai di kedua sisi operator

Example - $ a * $ b akan memberi 200

4

/ (Division)

Membagi operan tangan kiri dengan operan tangan kanan

Example - $ b / $ a akan memberi 2

5

% (Modulus)

Membagi operan tangan kiri dengan operan tangan kanan dan mengembalikan sisanya

Example - $ b% $ a akan memberi 0

6

** (Exponent)

Melakukan kalkulasi eksponensial (daya) pada operator

Example - $ a ** $ b akan memberikan 10 pangkat 20

Operator Kesetaraan Perl

Ini juga disebut operator relasional. Asumsikan variabel $ a menampung 10 dan variabel $ b menampung 20, maka mari kita periksa operator persamaan numerik berikut -

Tunjukkan Contoh

Sr.No. Operator & Deskripsi
1

== (equal to)

Memeriksa apakah nilai dua operan sama atau tidak, jika ya maka kondisinya menjadi benar.

Example - ($ a == $ b) tidak benar.

2

!= (not equal to)

Memeriksa apakah nilai dari dua operan sama atau tidak, jika nilai tidak sama maka kondisi menjadi benar.

Example - ($ a! = $ B) benar.

3

<=>

Memeriksa apakah nilai dari dua operan sama atau tidak, dan mengembalikan -1, 0, atau 1 bergantung pada apakah argumen kiri secara numerik kurang dari, sama dengan, atau lebih besar dari argumen kanan.

Example - ($ a <=> $ b) mengembalikan -1.

4

> (greater than)

Memeriksa apakah nilai operan kiri lebih besar dari nilai operan kanan, jika ya maka kondisi menjadi benar.

Example - ($ a> $ b) tidak benar.

5

< (less than)

Memeriksa apakah nilai operan kiri kurang dari nilai operan kanan, jika ya maka kondisinya menjadi benar.

Example - ($ a <$ b) benar.

6

>= (greater than or equal to)

Memeriksa apakah nilai operan kiri lebih besar dari atau sama dengan nilai operan kanan, jika ya maka kondisi menjadi benar.

Example - ($ a> = $ b) tidak benar.

7

<= (less than or equal to)

Memeriksa apakah nilai operan kiri kurang dari atau sama dengan nilai operan kanan, jika ya maka kondisi menjadi benar.

Example - ($ a <= $ b) benar.

Di bawah ini adalah daftar operator ekuitas. Asumsikan variabel $ a menampung "abc" dan variabel $ b menampung "xyz" lalu, mari kita periksa operator persamaan string berikut -

Tunjukkan Contoh

Sr.No. Operator & Deskripsi
1

lt

Mengembalikan nilai benar jika argumen kiri stringwise kurang dari argumen kanan.

Example - ($ a lt $ b) benar.

2

gt

Mengembalikan nilai benar jika argumen kiri stringwise lebih besar dari argumen kanan.

Example - ($ a gt $ b) salah.

3

le

Mengembalikan nilai benar jika argumen kiri stringwise kurang dari atau sama dengan argumen kanan.

Example - ($ a le $ b) benar.

4

ge

Mengembalikan nilai benar jika argumen kiri stringwise lebih besar dari atau sama dengan argumen kanan.

Example - ($ a ge $ b) salah.

5

eq

Mengembalikan nilai benar jika argumen kiri stringwise sama dengan argumen kanan.

Example - ($ a eq $ b) salah.

6

ne

Mengembalikan nilai benar jika argumen kiri stringwise tidak sama dengan argumen kanan.

Example - ($ a ne $ b) benar.

7

cmp

Mengembalikan -1, 0, atau 1 bergantung pada apakah argumen kiri stringwise kurang dari, sama dengan, atau lebih besar dari argumen kanan.

Example - ($ a cmp $ b) adalah -1.

Operator Penugasan Perl

Asumsikan variabel $ a menampung 10 dan variabel $ b menampung 20, maka di bawah ini adalah operator penugasan yang tersedia di Perl dan penggunaannya -

Tunjukkan Contoh

Sr.No. Operator & Deskripsi
1

=

Operator penugasan sederhana, Menetapkan nilai dari operan sisi kanan ke operan sisi kiri

Example - $ c = $ a + $ b akan memberikan nilai $ a + $ b ke $ c

2

+=

Tambahkan AND operator penugasan, Ini menambahkan operan kanan ke operan kiri dan menetapkan hasilnya ke operan kiri

Example - $ c + = $ a setara dengan $ c = $ c + $ a

3

-=

Kurangi AND operator penugasan, Ini mengurangi operan kanan dari operan kiri dan menetapkan hasilnya ke operan kiri

Example - $ c - = $ a setara dengan $ c = $ c - $ a

4

*=

Kalikan DAN operator penugasan, Ini mengalikan operan kanan dengan operan kiri dan menetapkan hasilnya ke operan kiri

Example - $ c * = $ a setara dengan $ c = $ c * $ a

5

/=

Bagi AND operator penugasan, Ini membagi operan kiri dengan operan kanan dan menetapkan hasilnya ke operan kiri

Example - $ c / = $ a setara dengan $ c = $ c / $ a

6

%=

Modulus AND operator penugasan, Dibutuhkan modulus menggunakan dua operan dan menetapkan hasilnya ke operan kiri

Example - $ c% = $ a setara dengan $ c = $ c% a

7

**=

Operator eksponen DAN penugasan, Melakukan kalkulasi eksponensial (daya) pada operator dan menetapkan nilai ke operan kiri

Example - $ c ** = $ a setara dengan $ c = $ c ** $ a

Operator Perl Bitwise

Operator bitwise bekerja pada bit dan melakukan operasi bit demi bit. Asumsikan jika $ a = 60; dan $ b = 13; Sekarang dalam format biner akan menjadi sebagai berikut -

$ a = 0011 1100

$ b = 0000 1101

-----------------

$ a & $ b = 0000 1100

$ a | $ b = 0011 1101

$ a ^ $ b = 0011 0001

~ $ a = 1100 0011

Ada operator Bitwise berikut yang didukung oleh bahasa Perl, asumsikan jika $ a = 60; dan $ b = 13

Tunjukkan Contoh

Sr.No. Operator & Deskripsi
1

&

Biner AND Operator menyalin sedikit ke hasil jika ada di kedua operan.

Example - ($ a & $ b) akan menghasilkan 12 yaitu 0000 1100

2

|

Biner OR Operator menyalin sedikit jika ada di operan eather.

Example - ($ a | $ b) akan menghasilkan 61 yaitu 0011 1101

3

^

Operator Biner XOR menyalin bit jika diatur dalam satu operan tetapi tidak keduanya.

Example - ($ a ^ $ b) akan menghasilkan 49 yaitu 0011 0001

4

~

Operator Pelengkap Binary Ones adalah unary dan memiliki efek bit 'membalik'.

Example - (~ $ a) akan memberikan -61 yaitu 1100 0011 dalam bentuk komplemen 2 karena bilangan biner bertanda.

5

<<

Operator Binary Left Shift. Nilai operan kiri dipindahkan ke kiri dengan jumlah bit yang ditentukan oleh operan kanan.

Example - $ a << 2 akan menghasilkan 240 yaitu 1111 0000

6

>>

Operator Pergeseran Kanan Biner. Nilai operan kiri dipindahkan ke kanan dengan jumlah bit yang ditentukan oleh operan kanan.

Example - $ a >> 2 akan menghasilkan 15 yaitu 0000 1111

Operator Logical Perl

Ada operator logika berikut yang didukung oleh bahasa Perl. Asumsikan variabel $ a bernilai true dan variabel $ b bernilai false maka -

Tunjukkan Contoh

Sr.No. Operator & Deskripsi
1

and

Disebut Logical AND operator. Jika kedua operan benar maka kondisi menjadi benar.

Example - ($ a dan $ b) salah.

2

&&

Operator C-style Logical AND menyalin sedikit ke hasil jika ada di kedua operan.

Example - ($ a && $ b) salah.

3

or

Disebut Logical OR Operator. Jika salah satu dari dua operan bukan nol maka kondisi menjadi benar.

Example - ($ a atau $ b) benar.

4

||

Operator C-style Logical OR menyalin sedikit jika ada di operan eather.

Example - ($ a || $ b) benar.

5

not

Disebut Logical NOT Operator. Gunakan untuk membalikkan keadaan logis operannya. Jika kondisi benar maka operator NOT akan membuat salah.

Example - tidak ($ ​​a dan $ b) benar.

Operator Kutipan

Ada operator seperti Kutipan berikut yang didukung oleh bahasa Perl. Dalam tabel berikut, {} mewakili pasangan pembatas yang Anda pilih.

Tunjukkan Contoh

Sr.No. Operator & Deskripsi
1

q{ }

Mengapit string dengan tanda kutip tunggal

Example - q {abcd} menjadi 'abcd'

2

qq{ }

Mengapit string dengan tanda kutip ganda

Example - qq {abcd} menghasilkan "abcd"

3

qx{ }

Mengapit string dengan tanda kutip terbalik

Example - qx {abcd} menghasilkan `abcd`

Operator Miscellaneous

Ada operator miscellaneous berikut yang didukung oleh bahasa Perl. Asumsikan variabel a menampung 10 dan variabel b menampung 20 maka -

Tunjukkan Contoh

Sr.No. Operator & Deskripsi
1

.

Operator biner dot (.) Menggabungkan dua string.

Example - Jika $ a = "abc", $ b = "def" maka $ a. $ B akan menghasilkan "abcdef"

2

x

Operator pengulangan x mengembalikan string yang terdiri dari operan kiri diulang beberapa kali yang ditentukan oleh operan kanan.

Example - ('-' x 3) akan memberikan ---.

3

..

Operator rentang .. mengembalikan daftar nilai yang dihitung (naik per satu) dari nilai kiri ke nilai kanan

Example - (2..5) akan memberikan (2, 3, 4, 5)

4

++

Operator Auto Increment meningkatkan nilai integer satu

Example - $ a ++ akan memberikan 11

5

--

Operator Auto Decrement menurunkan nilai integer satu kali

Example - $ a-- akan memberikan 9

6

->

Operator panah banyak digunakan dalam mendereferensi metode atau variabel dari suatu objek atau nama kelas

Example - $ obj -> $ a adalah contoh untuk mengakses variabel $ a dari objek $ obj.

Diutamakan Operator Perl

Tabel berikut mencantumkan semua operator dari prioritas tertinggi hingga terendah.

Tunjukkan Contoh

left	terms and list operators (leftward)
left	->
nonassoc	++ --
right	**
right	! ~ \ and unary + and -
left	=~ !~
left	* / % x
left	+ - .
left	<< >>
nonassoc	named unary operators
nonassoc	< > <= >= lt gt le ge
nonassoc	== != <=> eq ne cmp ~~
left	&
left	| ^
left	&&
left	|| //
nonassoc	..  ...
right	?:
right	= += -= *= etc.
left	, =>
nonassoc	list operators (rightward)
right	not
left	and
left	or xor