Pengenalan Hashes Pada Perl

Perl Programming

Pada tutorail Perl kali ini, kita akan membahas lebih detail tentang Data Hashes Pada Bahasa Pemrograman Perl. Data Hashes adalah kumpulan data yang mempunyai pasangan key dan value. Variable hashes ditandai dengan tanda persen '%'.

Di bawah ini adalah contoh program penggunaan variable hashes di Perl.

#Nama File: hash_variable.pl

%data = ('Nursalim', 45, 'Naura', 30, 'Iski', 40);

# Mengakses variable hashes
print "\$data{'Nursalim'} = $data{'Nursalim'}\n";
print "\$data{'Naura'} = $data{'Naura'}\n";
print "\$data{'Iski'} = $data{'Iski'}\n";

Jika program diatas Anda jalankan maka akan menampilkan output berikut ini:

C:\>perl D:\perl\hash_variable.pl
$data{'Nursalim'} = 45
$data{'Naura'} = 30
$data{'Iski'} = 40

Membuat Hashes

Ada beberapa cara untuk membuat variable hashes di Perl, yaitu:

• Memberikan nilai langsung pada key nya.
  
  Contoh Program
  
  

  #File name : hash_declare_1.pl
  
  $data{'Nursalim'} = 45;
  $data{'Naura'} = 30;
  $data{'Iski'} = 40;
  
  print "$data{'Nursalim'}\n";
  print "$data{'Naura'}\n";
  print "$data{'Iski'}\n";
  
  

  
  Jika Anda jalankan program diatas, maka akan menampilkan output sebagai berikut:
  
  

  C:\>perl D:\perl\hash_declare_1.pl
  45
  30
  40
  
  

  
  
• Memberikan key dan value langsung pada list datanya.
  
  Contoh Program
  
  

  #Nama File: hash_variable.pl
  
  %data = ('Nursalim', 45, 'Naura', 30, 'Iski', 40);
  
  # Mengakses variable hashes
  print "\$data{'Nursalim'} = $data{'Nursalim'}\n";
  print "\$data{'Naura'} = $data{'Naura'}\n";
  print "\$data{'Iski'} = $data{'Iski'}\n";
  
  

  
  Jika Anda jalankan program diatas, maka akan menampilkan output sebagai berikut:
  
  

  C:\>perl D:\perl\hash_variable.pl
  $data{'Nursalim'} = 45
  $data{'Naura'} = 30
  $data{'Iski'} = 40
  
  

• Memberikan tanda '=>' sebagai alias pada key dan value nya
  
  Contoh Program
  

  #Nama File: hash_declare_3.pl
  
  %data = ('Nursalim' => 45, 'Naura' => 30, 'Iski' => 40);
  
  # Mengakses variable hashes
  print "\$data{'Nursalim'} = $data{'Nursalim'}\n";
  print "\$data{'Naura'} = $data{'Naura'}\n";
  print "\$data{'Iski'} = $data{'Iski'}\n";
  
  

  
  Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:
  
  

  C:\>perl D:\perl\hash_declare_3.pl
  $data{'Nursalim'} = 45
  $data{'Naura'} = 30
  $data{'Iski'} = 40
  

Mengakses Elemen Hashes

Untuk mengakses sebuah elemen dari hash, Anda dapat menggunakan tanda dolar '$'. Perhatikan contoh program berikut ini:

#Nama File: hash_variable.pl

%data = ('Nursalim', 45, 'Naura', 30, 'Iski', 40);

# Mengakses variable hashes
print "\$data{'Nursalim'} = $data{'Nursalim'}\n";
print "\$data{'Naura'} = $data{'Naura'}\n";
print "\$data{'Iski'} = $data{'Iski'}\n";

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:

C:\>perl D:\perl\hash_variable.pl
$data{'Nursalim'} = 45
$data{'Naura'} = 30
$data{'Iski'} = 40

Menampilkan Key dan Value

Untuk menampilkan key dan value pada sebuah hash, Anda dapat menggunakan fungsi keys dan values.

Perhatikan dua contoh program di bawah ini:

Contoh Program #1 Menampilkan key

#Nama File: hash_key.pl

%data = ('Nursalim', 45, 'Naura', 30, 'Iski', 40);

@nama = keys %data;

# Mengakses variable hashes
print "$nama[0]\n";
print "$nama[1]\n";
print "$nama[2]\n";

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:

C:\>perl D:\perl\hash_key.pl
Naura
Iski
Nursalim

Contoh Program #2 Menampilkan value

#Nama File: hash_value.pl

%data = ('Nursalim', 45, 'Naura', 30, 'Iski', 40);

@umur = values %data;

# Mengakses variable hashes
print "$umur[0]\n";
print "$umur[1]\n";
print "$umur[2]\n";

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai beritku:

C:\>perl D:\perl\hash_value.pl
45
40
30

Mengecek Sebuah Key

Anda dapat mengecek apakah sebuah hashes mempunyai key/values atau tidak dengan cara menggunakan fungsi exists.

Contoh Program

#Nama File: hash_exists.pl

%data = ('Nursalim', 45, 'Naura', 30, 'Iski', 40);

if( exists($data{'Nursalim'} ) ){
   print "Umur Nursalim adalah $data{'Nursalim'} tahun\n";
}
else{
   print "Data tidak ditemukan\n";
}

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:

C:\>perl D:\perl\hash_exists.pl
Umur Nursalim adalah 45 tahun

Menampilkan Ukuran Hashes

Di bawah ini adalah contoh program untuk menampilkan ukuran sebuah data hashes:

#Nama File: hash_size.pl

%data = ('Nursalim' => 45, 'Naura' => 30, 'Iski' => 40);

@keys = keys %data;
$size = @keys;
print "1 - ukuran data hashes adalah $size\n";

@values = values %data;
$size = @values;
print "2 - ukuran data hashes adalah $size\n";

Jika Anda jalankan program diatas, maka akan menampilkan output sebagai berikut:

C:\>perl D:\perl\hash_size.pl
1 - ukuran data hashes adalah 3
2 - ukuran data hashes 3

Menambahkan Dan Menghapus Elemen

Untuk menambahkan sebuah data baru pada hashes, Anda dapat menggunakan operator penugasan (assignment operator). Sedangkan untuk menghapus data/atau elemen yang ada, Anda dapat menggunakan fungsi delete().

Contoh Program

#Nama File: hash_add_remove.pl

%data = ('Nursalim' => 45, 'Naura' => 30, 'Iski' => 40);
@keys = keys %data;
$size = @keys;
print "1 - Ukuran hash adalah $size\n";

# Menambahkan data Doni pada hashes
$data{'Doni'} = 35;
@keys = keys %data;
$size = @keys;
print "2 - Ukuran hash adalah $size\n";

# Menghapus data Doni pada hashes
delete $data{'Doni'};
@keys = keys %data;
$size = @keys;
print "3 - Ukuran hash adalah $size\n";

Jika Anda jalankan program diatas, maka akan menampilkan output sebagai berikut:

C:\>perl D:\perl\hash_add_remove.pl
1 - Ukuran hash adalah 3
2 - Ukuran hash adalah 4
3 - Ukuran hash adalah 3

Sekian tutorial singkat tentang Pengenalan Hashes Pada Bahasa Pemrograman Perl. Semoga bermanfaat & Happy Learning Perl Programming.

Salam,

Nursalim

Bagikan

Jangan lewatkan

Pengenalan Hashes Pada Perl

4/ 5

Oleh Kris Kimcil

Kris Kimcil 23.02 Komentar