Re: [programming] mengganti variabel
Coba yang ini : #!/usr/bin/perl $newdata = ; $LOGFILE = data.dat; open(LOGFILE) or die(Could not open file.); foreach $line (LOGFILE) { $data = $line; @dataku = split(/\t/, $data); # asumsi data dipisahkan tab = \t if (@dataku[2] $batas_tertentu) { # kolom ketiga $batas_tertentu @dataku[2]=999; } $newdata .= @dataku[0] . \t . @dataku[1] . \t . @dataku[2] . \t . @dataku[3] . \n; } close($LOGFILE); $file = 'data.dat'; # dengan syarat direktory dan file harus bisa ditulisi open FILE, $file or die gagal menambahkan ke $file: $!\n; print FILE $newdata; close FILE; -- boot -- On Wed, 9 Jan 2002 14:38:01 +0700 Paulus Allo [EMAIL PROTECTED] wrote: lsg ajah yah, saya punya data dlm bentuk: aaa bbb ccc ddd eee fff ggg hhh dst... saya ingin membuat script kecil agar andaikata data kolom ke-3 nilainya lebih dari suatu angka, maka semua data di baris itu di-set ke angka 999. gimana yah caranya menggunakan awk,sed,grep? abisnya saya baru belajar yg itu sih, kalau perl, mesti belajar lagi dong thanks yah. Paulus -- Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] Informasi arsip di http://www.linux.or.id/milis.php3
Re: [programming] mengganti variabel
awk '{if ($350) $3=999;print $1 $2 $3 $4}' namafile ganti angka 50 dengan angka sembarang On Wed, 9 Jan 2002, Paulus Allo wrote: lsg ajah yah, saya punya data dlm bentuk: aaa bbb ccc ddd eee fff ggg hhh dst... saya ingin membuat script kecil agar andaikata data kolom ke-3 nilainya lebih dari suatu angka, maka semua data di baris itu di-set ke angka 999. gimana yah caranya menggunakan awk,sed,grep? abisnya saya baru belajar yg itu sih, kalau perl, mesti belajar lagi dong thanks yah. Paulus -- Salam Yohanes [ http://www.negeriimpian.com ] the details matter quite a lot more than the design ever does. --Linus Torvalds-- -- Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] Informasi arsip di http://www.linux.or.id/milis.php3
Re: [programming] mengganti variabel
awk '{if ($350) $3=999;print $1 $2 $3 $4}' namafile ganti angka 50 dengan angka sembarang reply: maksud saya sebenarnya: misalkan saya ingin agar bila data kolom 3 lebih besar dari 50, maka semua data di baris ybs (kecuali pada kolom1) saya rubah menjadi 999. jadi kalau saya punya data: 5000 0.1 45 80 5010 0.25 55 90 5020 0.7 39 55 maka data keluarannya akan menjadi: 5000 0.1 45 80 5010 999 999 999 5020 0.7 39 55 apa bisa yah dgn awk? apa harus make yg lain?? thanks. Paulus -- Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] Informasi arsip di http://www.linux.or.id/milis.php3