----- 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... :) ./iko www.geocities.com/iko94 -- Berhenti langganan: [EMAIL PROTECTED] Arsip dan info: http://linux.or.id/milis