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
