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
[programming] mengganti variabel
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
