Selasa, Agustus 14, 2007

Belajar Perl

Ass. Wr. Wb

Sedikit belajar Perl untuk melakukan pembacan file dan mengitung jumlah kata file tersebut, sebenarnya pake perintah wc di Linux dah bisa :D


#hashbang, hashpling atau pound bang
#!/usr/local/bin/perl

# Menggunakan module ParseWords
use Text::ParseWords;


$file="test.txt";

open(FILEINPUT,$file) or die "maap file ngak ada";
@kalimat=;
close(FILEINPUT);

#membagi kalimat menjadi per kata
@kata = &shellwords(@kalimat);
#Mengeprint jumlah kata
print "jumlah kata adalah ";
$cacah=scalar(@kata);
print $cacah;

print "\n";

Tidak ada komentar: