Iko Riyadi wrote:
----- Original Message -----
From: "Yanu Widodo" <[EMAIL PROTECTED]>
To: <linux-programming@linux.or.id>
Sent: Wednesday, July 26, 2006 10:33 AM
Subject: [linux-programming] cara menentukan field dalam awk
Dear Linux Expert,
misalnya saya ada file test.txt seperti ini
0,060723,aa,102335,aa
0,060723,aa,102336,aa
1,060723,ac,102337,xx
1,060723,ad,102338,xx
0,060723,aa,102339,aa
0,060723,aa,102340,aa
saya ingin mencetak field ke-1, ke-2, ke-5 dengan awk
caranya gimana ya ?! [sekalian link tutorial awk/perl programming by
example kalau ada]
trims,
yanu
maaf, ini kalo pake perl :
#!/usr/bin/perl
$FILEKU="test.txt";
$FILEHASIL="hasiltest.txt";
print "[+] mulai proses...\n\n";
&buka();
foreach $elemen (@ary) {
$elemen=~s/(.+?)\,(.+?)\,(.+?)\,(.+?)\,(.+?)/$1\,$2\,$5/;
print $elemen;
#&tulis($elemen);
}
&tulis(@ary);
print "\n\n[+] akhir proses...\n\n";
sub buka {
open (FH,"<$FILEKU");
@ary=<FH>;
close FH;
}
sub tulis {
open (FHKU,">$FILEHASIL");
#print @_;
print FHKU @_;
close FHKU;
}
#EOF
kalo pake awk mah, saya kurang tau... :)
wah bisa jalan nih ...
trims help-nya ...
salam,
yanu
--
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis
