On Wed, Jul 26, 2006 at 03:46:16PM +0700, Iko Riyadi wrote: > > 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] > > maaf, ini kalo pake perl : > > [...32 baris perl...]
Sebetulnya tidak perlu panjang lebar, cukup one-liner aja. Ini salah
satu caranya:
perl -F, -ane 'print "$F[0],$F[1],$F[4]"' test.txt
> kalo pake awk mah, saya kurang tau... :)
awk -F, '{print $1 "," $2 "," $5}' test.txt
Perl banyak mendapat inspirasi dari berbagai unix tools seperti sed
dan awk, makanya bisa rada mirip.
Ronny
signature.asc
Description: Digital signature
