On 21-Apr-1999 07:20AM, Erga wrote:
> Awalnya:
>
> Jono 04/20/99 13:40 13:50 Pergi kepasar
> Jono 04/20/99 14:00 14:30 Ada dirumah
> Jono 04/20/99 14:30 15:00 Tidur siang
>
> Menjadi:
>
> insert into kegiatan values ("Jono",1999/04/20, "13:40","13:50","Pergi
> kepasar");
> insert into kegiatan values ("Jono",1999/04/20,"14:00","14:30","Ada dirumah");
> insert into kegiatan values ("Jono",1999/04/20, "14:30","15:00","Tidur siang");
>
> Bagaimana caranya menggunakan script menggunakan awk????
> Untuk tanggal dikonversi dari 04/20/99 menjadi 1999/04/20.
Wah kok pake awk sih? pake perl dong! :))
#!/usr/bin/perl -p
chomp;
@kolom=split ' ',$_,5;
print "insert into kegiatan values (\"$kolom[0]\",",
($kolom[1]=~/..\/..\/[789]./?"19":"20"),
join('/',reverse(split('/',$kolom[1]))),
",\"$kolom[2]\",\"$kolom[3]\",\"$kolom[4]\");\n";
__END__
pakenya:
$ script < data
tapi konversi tanggalnya masih agak ngasal.. silakan dibetulin
sendiri sesuai selera :)
--
Ronny Haryanto <[EMAIL PROTECTED]> -- Today's fortune is:
Are you sure (Y/Y)?
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
Hosted by http://www.Indoglobal.com
