Tugas 6 Kalender Jawa

Buatlah file yang ingin anda ketahui tanggal lahirnya, simpan dengan file lahir.txt, seperti dibawah ini:

agus 17 2 1987
farid 12 8 1988
erik 27 6 1988
yoyok 15 4 1987
doni 2 11 1988
wawan 18 2 1987
dimas 17 11 1988
sigit 13 12 1989
romy 14 7 1988
dedi 25 3 1986
yopi 3 4 1990
yusuf 16 5 1988
ahmadi 30 4 1988
faruk 27 7 1990
evan 19 3 1989

dan rumusnya simpanlah di file yang beda dengan nama tanggal.txt

{
thn=$4-1;
bln=$3-1;
thk=thn/4;
if(thn%4==1){b=0.25}
if(thn%4==2){b=0.50}
if(thn%4==3){b=0.75}
d=thk-b;
thb=thn-d;

if(bln==0 && $4%4!=0){a=0}
if(bln==1 && $4%4!=0){a=31}
if(bln==2 && $4%4!=0){a=59}
if(bln==3 && $4%4!=0){a=90}
if(bln==4 && $4%4!=0){a=120}
if(bln==5 && $4%4!=0){a=151}
if(bln==6 && $4%4!=0){a=181}
if(bln==7 && $4%4!=0){a=212}
if(bln==8 && $4%4!=0){a=243}
if(bln==9 && $4%4!=0){a=273}
if(bln==10 && $4%4!=0){a=304}
if(bln==11 && $4%4!=0){a=334}

if(bln==0 && $4%4==0){a=0}
if(bln==1 && $4%4==0){a=31}
if(bln==2 && $4%4==0){a=60}
if(bln==3 && $4%4==0){a=91}
if(bln==4 && $4%4==0){a=121}
if(bln==5 && $4%4==0){a=152}
if(bln==6 && $4%4==0){a=182}
if(bln==7 && $4%4==0){a=213}
if(bln==8 && $4%4==0){a=244}
if(bln==9 && $4%4==0){a=274}
if(bln==10 && $4%4==0){a=305}
if(bln==11 && $4%4==0){a=335}

jum=(thb*365)+(d*366)+a+$2;

if(jum%5==1){f="Pahing"}
if(jum%5==2){f="Pon"}
if(jum%5==3){f="Wage"}
if(jum%5==4){f="Kliwon"}
if(jum%5==0){f="Legi"}

if(jum%7==1){printf("%s %d %d %d Lahir Minggu %s\n",$1,$2,$3,$4,f)}
if(jum%7==2){printf("%s %d %d %d Lahir Senin %s\n",$1,$2,$3,$4,f)}
if(jum%7==3){printf("%s %d %d %d Lahir Selasa %s\n",$1,$2,$3,$4,f)}
if(jum%7==4){printf("%s %d %d %d Lahir Rabu %s\n",$1,$2,$3,$4,f)}
if(jum%7==5){printf("%s %d %d %d Lahir Kamis %s\n",$1,$2,$3,$4,f)}
if(jum%7==6){printf("%s %d %d %d Lahir Jumat %s\n",$1,$2,$3,$4,f)}
if(jum%7==0){printf("%s %d %d %d Lahir Sabtu %s\n",$1,$2,$3,$4,f)}
}

Setelah selesai, buka terminal anda dan ketikkan program awk anda, seperti berikut:

andy@andy-laptop ~:$ awk -f tanggal.txt lahir.txt

Kemudian output tersebut akan menampilkan kalendernya sebagai berikut :

andy@andy-laptop ~:$ awk -f tanggal.txt lahir.txt

TUGAS 5 : kalender georgian

tugas ke 5 ini menampilkan hari lahir dengan menggunakan program AWK
Program ini untuk menentukan nama hari pada tanggal dengan sistem kalender Georgian.
Masukan berupa beberapa tanggal lahir, misalkan yang disimpan dengan file lahir.txt, Contoh input data nama orang :
ari 23 9 1989
aming 10 2 2009
arip 12 5 1990
beni 16 12 1987
cici 4 7 1989
deni 8 9 1984
demian 20 11 1988
rizuki 28 8 1987
limbad 29 6 1989
jo 17 2 1978
abu 17 3 1984
mike 14 1 1987
bayu 5 5 1990
sonia 13 6 1988
zakaria 5 11 1985

Kemudian untuk syntax-nya sebagai proses, dengan membuat file dengan nama tanggalan.txt. Syntax :

{
#-hari-
hari[1] = "minggu"; hari[2] = "senin"; hari[3] = "selasa"; hari[4] = "rabu"; hari[5] = "kamis"; hari[6] = "jumat"; hari[0] = "sabtu";
#--jumlah--
jmlhri[0]=0; jmlhri[1]=31; jmlhri[2]=28; jmlhri[3]=31; jmlhri[4]=30; jmlhri[5]=31; jmlhri[6]=30; jmlhri[7]=31; jmlhri[8]=31; jmlhri[9]=30; jmlhri[10]=31; jmlhri[11]=30; jmlhri[12]=31;

jum = 0
tahun= $4-1
x = tahun % 4
z = tahun /4
if ( x==1 ){
a=z-0.25}
if ( x==2 ){
a=z-0.5}
if ( x==3 ){
a=z-0.75}
thnkab = a*366
thnb = (thn - a)*365
jumhari = thnkab + thnb

if ($4 % 4== 0){

for (i=1; i< $3; i++){
jum += jmlhri[i] }
if ( $3 > 2){
tot = jumhari + jum + $2 +1}
else {
tot = jumhari + jum + $2 -1 }
}

else{
for (i = 1; i< $3; i++){
jum += jmlhri[i] }
tot = jumhari + jum + $2 -1
}

tothar = tot % 7


printf ("%-10s %-5d %-5d %-5d %-10s\n", $1, $2, $3, $4, hari[tothar]);
}

Membuat Bujur Sangkar Ajaib menggunakan AWK

Pada tugas 4 yaitu membuat bujur sangkar ajaib dengan menggunakan AWK ini langkah awal buat dahulu file dengan nama ajaib.txt

{ ordo[55,55]; #ordo bujur sangkar
n=$1; #input matriks
X=1; #nilai awal
Y=1; #interval
Z=1; #interval pindah

{ ordo[55,55]; #ordo bujur sangkar
n=$1; #input matriks
X=1; #nilai awal
Y=1; #interval
Z=1; #interval pindah

for(a=0; a<=n+2; a++) #menghitung letak kolom dan baris
{ for(b=0; b<=n+2; b++)
ordo[a,b] = 0;
}
a=1; b=(n+1) / 2;
X-=Y;
for(N=1; N<=n*n;)
{ if(ordo[a,b]==0)
{ X+=Y;
ordo[a,b] = X;
if(a==n) ordo[0,b] = X;
if(b==1) ordo[a,n+1] = X;
if(a==n && b==1 ) ordo[0,n+1] = X;
a--; b++; N++;
if(a==0&&b==n+1) continue;
else
{
if (a==0) a=n;
if(b==n+1) b=1;
}
}
else
{
a+=2;
b-=1;
X=X-Y+Z;
}
}
for(a=1; a<=n; a++)
T1+=ordo[a,n+1-a];

for(a=1; a<=n*5;a++)
printf(" ");
printf("%5d\n\n",T1);

for(a=1;a<=n+1;a++)
{
for(b=1; b<=n; b++)
{
printf("%5d", ordo[a,b]);
ordo[a,n+2] += ordo[a,b];
ordo[n+1,b] += ordo[a,b];
}
T2 += ordo[a,b];
if(a==n+1) ordo[a,n+2] = T2;
printf("%5d\n\n",ordo[a,n+2]);
}
}

Setelah rumus bujur sangkar ajaib diatas dimasukkan dalam dokument ajaib.txt maka dalam terminal bisa di tampilkan dengan menggunakan perintah :

andy@andy-desktop:~$ echo 7 | awk -f ajaib.txt

yang mana Echo 7 ini digunakan untuk membuat sebuat matiks ordo 7x7.

Contoh lain misalnya bujur sangkar ajaib ordo 5x5, maka rumus menjadi:

andy@andy-desktop:~$ echo 5 | awk -f ajaib.txt

Hasil untuk sebuah matriks ordo 7x7 seperti dibawah ini :

30 39 48 1 10 19 28 = 175

38 47 7 9 18 27 29 = 175

46 6 8 17 26 35 37 = 175

5 14 16 25 34 36 45 = 175

13 15 24 33 42 44 4 = 175

21 23 32 41 43 3 12 = 175

22 31 40 49 2 11 20 = 175
====================
175 175 175 175 175 175 175

Mencari Harga Barang & Diskon dengan AWK

Barang	Jumlah	Harga satuan
CPU	7	5500000
Printer	5	1500000
Scaner	8	2700000
Monitor	10	3500000
Hardisk	6	1200000
Mouse	12	100000
Webcam	15	1000000

untuk mencari Harga Barang dan Diskonnya dengan AWK menggunakan rumus Seperti Dibawah ini :

awk 'BEGIN{printf "%-10s %-10s %-10s %-10s %-10s %s\n",
"BARANG","JUMLAH","HARGA SATUAN","TOTAL","DISCOUNT",
"BAYAR"}
{if($2>=5 && $2 <10){printf 4="$2*$3,$5="0.1*$4,$6="$4-$5">
{if($2>=10){printf "%-10s %-10s %-10s %-10s %-10s %s\n", $1,$2,$3,$4=$2*$3,$5=0.2*$4,$6=$4-$5 }}' barang

Menghitung Nilai IPS

Pada Pertemuan kali ini, kita akan membuat program untuk menghitung nilai IP Sementara (IPS), program tersebut dibuat dengan menggunakan AWK. Seperti pada contoh programnya dibawah ini :

awk' { NA=0; NA=($5+$6+$7)/3}
{{if(81<=NA && NA<=100){print $1,$2, $3,$4,$5,$6,$7,NA, "A", $8= 4*$2}}
{{if(71<=NA && NA<=80){print $1,$2, $3,$4,$5,$6,$7,NA, "A", $8= 3*$2}}
{{if(61<=NA && NA<=70){print $1,$2, $3,$4,$5,$6,$7,NA, "A", $8= 2*$2}}
{{if(51<=NA && NA<=60){print $1,$2, $3,$4,$5,$6,$7,NA, "A", $8= 1*$2}}
{{if(0<=NA && NA<=50){print $1,$2, $3,$4,$5,$6,$7,NA, "A", $8= 0*$2}}
BEGIN {jumlah=0}
{jumlah=jumlah+$4}
END { print "Jumlah SKS= ", jumlah}
BEGIN { NT=0 }
{NT=NT+$8}
END{print " Nilai total = ", NT}
BEGIN { IPS =0 }
{ IPK=NT/jumlah}
END {print " IP Sementara=", IPS}' nilai

Nilai yang dimaksud merupakan file yang berisi data-data awal sebelum data tersebut terproses oleh program.

No-Nama-Mata Kuliah-Jumlah SKS-Nilai Tugas-Nilai UTS-Nilai UAS
1. Doni AWK 3 75 85 60
2. Erik Embeded 3 65 80 75
3. Evan Pemrograman 6 70 65 90
4. Suci OS 3 60 85 85
5. Zahratun Matematika 2 70 70 80

Tabel di atas, kita simpan pada file dengan nama nilai. Nama file ini sesuai dengan user. sehingga dalam program kita tinggal memanggil file ini.

Menampilkan Bilangan Prima dalam AWK

Pada Pertemuan kali ini kita akan membuat Program untuk "Menampilkan Bilangan Prima Dalam AWK", yang mana program yang kita gunakan menggunakan fungsi aturan assosiative array, seperti pada contoh programnya dibawah ini :

$ ls -l | awk 'BEGIN {
Bil[100];
}
END {
for (i=2;i<=97;i++ ){ if(i%i==0 && i%2!=0 && i%3!=0 && i%4=0 && i%5!=0 && i%6!=0 && i%7!=0 && i%8!=0 && i%9!=0 || i==3 || i==5 || i==7|| i==2) {print Bil[i],i;} } }'

ketika program dijalankan maka program akan menampilkan bilangan prima antara 2 sampai 100

Review AWK pertemuan 1

AWK diimplementasikan atau diluncurkan pada tahun 1977 oleh Al Aho, Peter Weinberger dan Brian Kernigan. Program ini merupakan bagian dari sebuah percobaan untuk bagaimana grep dan sed dapat digeneralisasi dengan angka sebaik dengan teks dengan suatu algoritma yang pendek. Pada tahun 1985 new awk atau awk telah ditambahkan unutk memperbesar fasilitas program dari awk. Pada w awk terdapat feature yaitu user defined function.

Hal – hal yang membedakan awk dengan nawk yaitu :

- Ekspresi yang dinamic, fungsi pengganti dan bentuk matching

- Penambahan funsi dan variable internal

- Operator dan statement – statement baru

- Input dapat lebih dari 1 file

- Dapat mengakses command line argument

- Memberikan pesan error yang lebih detail

Tujuan pemrograman AWK yaitu untuk memberikan UNIX suatu tujuan umum bahasa pemrogramn yang dapat menghandle text (string) semudah mengolah angka – angka. Dan AWK adalah adalah salah satu fasilitas UNIX yang sangat baik untuk melakukan hal tersebut. Area proses AWK yaitu proses berdasarkan baris – baris prosesnya. AWK merupakan suatu standart permograman untuk nawk ( new awk) yang memiliki fasilitas yang lebih besar dari awk program.

Sumber – sumber input pemrograman AWK yaitu :

· File – file : input AWK dapat dari file – file yang kita upload kedalam program untuk dijadikan sebagi input dalamprogram

· redirection (pembelokan) : input – input yang diberikan dapat dialihkan sebagai input yang lain.

· pipes (pipa) : proses pipa dimana output suatu proses akan dijadikan sebagai input untuk proses yang lain

· Standart input : input yang berasal dari keybord sebagai input unutk suatu proses.

Menjalankan program awk

Menjalankan program awk ada beberapa cara yaitu :

- awk ‘program’ input_file(s)

program dan input disediakan sebagai command line argument

- awk ‘program’

input dari standart input

- awk -f program_file_name input_files

program membaca dari sebuah file

AWK sebagai filter

Awk sebagai filter dengan menggunakan metode pipa yaitu input pertama akan diproses akan emnghasilkan output yang pertama output yang pertama ini sebagai filter dengan kapasitas yang terbatas, untuk memfilter kembali maka output yang pertama akan menjadi input yang kedu dari proses fileter yang ledih terinci. Sebagai contoh menampilkan pekerja berdasarkan jumlah gaji yang mereka dapat. Programnya :

awk ‘{ printf(“%6.2f %s\n”, $2 * $3, $0) }’ emp.data | sort

Errors

dalam awk error yang terjadi dalam proses penulisan program, awk dapat mendiagnosa nya dengan memberikan pesan error. Jika menggunakan awk maka error reportnya

awk '$3 == 0 [ print $1 }' emp.data

awk: syntax error near line 1

awk: bailing out near line 1

jika menggunakan nawk

nawk '$3 == 0 [ print $1 }' emp.data

nawk: syntax error at source line 1

context is

$3 == 0 >>> [ <<<

1 extra }

1 extra [

nawk: bailing out at source line 1

1 extra }

1 extra [

Penanganan atau error reportnya nawk lebih detail tentang lokasi error dari pada awk.

Struktur program AWK

Sebuh program awak terdiri dari :

· BEGIN

untuk prioritas eksekusi pembacaan input

· Pattern - action

proses data input, pattern dapat lebih dari satu sehingga dapat sebagai penghubung antar aksi atau perintah yang diberikan. Default pattern cocok unutk setiap recordnya sedangkan action unutk menampilkan record.

· END : proses input data telah berakhir

Seleksi

Pattern awk baik unutk proses seleksi baris yang spesifik dari input atau unutk proses yagn lain. Ada beberapa macan seksi :

q Seleksi dengan perbandingan

u $2 >=5 { print }

q Seleksi dengna perhitungan

u $2 * $3 > 50 { printf(“%6.2f for %s\n”, $2 * $3, $1) }

q Seleksi dari isi teks

u $1 == “Susie”

u /Susie/

q Kombinasi dari pattern

u $2 >= 4 || $3 >= 20

Validasi Data

Validasi data adalah suatu operasi yang umum. Awk adalah yang terbaik dalammelakukan validasi data :

u NF != 3 { print $0, “number of fields not equal to 3” }

u $2 <>

u $2 > 10 { print $0, “rate exceeds $10 per hour” }

u $3 <>

u $3 > 60 { print $0, “too many hours worked” }

Regular Expression in AWK

Pada dasarnya regular expression di awk sama dengan yagn kit gunakan. Dintarnya regular expression di awk yaitu :

u ^ $ - memulai/akhir dari field

u . – terdapat karakter

u [abcd] – klas karakter

u [^abcd] – negasi kelas karakter

u [a-z] – karakter range

u (regex1|regex2) – alternatif/pembelokan

u * - zero or more occurrences of preceding expression

u + - one or more occurrences of preceding expression

u ? - zero or one occurrence of preceding expression

u NOTE: the min max {m, n} or variations {m}, {m,} syntax is NOT supported

Variabel – variabel dalam AWK

dalam awk terdapat variabel – variabel default dari awk yaitu :

q NR – membaca jumlah record

q FNR – membaca jumlah record file yang sedang digunakan

q NF - Number of fields in current record

q FILENAME – nama dari input file

q FS - Field separator, space or TAB by default

q OFS - Output field separator, space by default

q ARGC/ARGV - Argument Count, Argument Value array

Array

Dalam awk terdapat array unutk menyimpan data yang memiliki nilai yang sama atau berhubungan. Format array dalam awk :

# reverse - print input in reverse order by line

{ line[NR] = $0 } # remember each line

END { i = NR # print lines in reverse order

while (i > 0) {

print line[i]

i = i - 1

}

}

Operator

operator dalam awak sama dengan operator dalm pemrograman pada umumnya yaitu terdiri dari operator logika dan aritmatikan biasa :

q = assignment operator; sets a variable equal to a value or string

q == equality operator; returns TRUE is both sides are equal

q != inverse equality operator

q && logical AND

q || logical OR

q ! logical NOT

q <, >, <=, >= relational operators

q +, -, /, *, %, ^

q String concatenation

Control Flow Statement

Dalam awk control flow atau looping sama dengan bahasa pemrogram yang lain yaitu terdapat if – else, do-while,for:

Ø If-Else

if (expression is true or non-zero){

statement1

}

else {

statement2

}

Ø While

while (expression is true or non-zero) {

statement1

}

Ø For

for(expression1; expression2; expression3) {

statement1

}

u This has the same effect as:

expression1

while (expression2) {

statement1

expression3

}

u for(;;) is an infinite loop

Ø Do While

do {

statement1

}

while (expression)