jumlah kata pada file teks.pl

# Program untuk menghitung jumlah kata dalam sebuah berkas teks

# Membuka berkas teks
open my $file_handle, '<', 'teks.txt' or die "Tidak dapat membuka berkas: $!";

# Inisialisasi variabel untuk menghitung jumlah kata
my $jumlah_kata = 0;

# Membaca setiap baris dalam berkas
while (my $baris = <$file_handle>) {
    # Memecah baris menjadi kata-kata
    my @kata_kata = split /\s+/, $baris;

    # Menambah jumlah kata
    $jumlah_kata += scalar @kata_kata;
}

# Menutup berkas
close $file_handle;

# Menampilkan jumlah kata
print "Jumlah kata dalam berkas: $jumlah_kata\n";