(Fwd) Re: [programming] Regex di perl

[Edwin Pratomo]

------- Forwarded message follows -------
Send reply to:  	linux-programming at linux.or.id
From:           	"Edwin Pratomo" <ed.pratomo at computer.org>
To:             	linux-programming at linux.or.id
Date sent:      	Mon, 6 Mar 2000 09:43:34 +0700
Priority:       	normal
Subject:        	Re: [programming] Regex di perl

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 linux-programming-unsubscribe at linux.or.id
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat linux-programming-owner at linux.or.id


------- End of forwarded message -------