On 6 Mar 00, at 7:47, Erga Munggaran wrote:
> Hi mailist reader,
> Saya mau melakukan convert dari satu file tekc ke file teks lain
> dengan merubah pola isinya. Dari: Kebayoran Kelas 1 Bahasa
> Indonesia 07:0008:0009:0010:00 Kebayoran Kelas 2 Sejarah
> 09:0010:0011:00 Cileduk Kelas 1 Sejarah
> 08:3009:00
>
> Menjadi:
> insert into jadwal values("", "Kebayoran", "Kelas 1", "Bahasa
> Indonesia", "07:00", "08:00", "09:00", "10:00"); insert into jadwal
> values("", "Kebayoran", "Kelas 2", "Sejarah", "09:00", "10:00",
> "11:00", "-"); insert into jadwal values("", "Cileduk", "Kelas 1",
> "Sejarah", "08:30", "09:00", "-", "-");
#!/usr/bin/perl -n
print qq|insert into jadwal values("", | .
join (', ',map{$_?qq|"$_"|:'"-"'} unpack("A13A12A21A5A5A5A5", $_)) .
");\n";
Ini dipanggil dari command line aja bisa (cuma satu baris :-), gak
usah bikin skrip.
Regards,
Edwin.
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
