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