Rabu, 16 Desember 2015

Pengenalan Hashes Pada Perl

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 '%'.

Hashes In Perl


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

Subscribe via email

Suka dengan artikel di atas? Tambahkan email Anda untuk berlangganan.