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";
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";
Komentar