On 10-Mar-2000, AH wrote:
> Saya bermaksud mengedit file mailbox versi OutLook Express agar bisa
> dibaca dg program mail Unix.
Try not to reinvent the wheel :)
Cari mbx2mbox di http://www.cs.virginia.edu/~dwc3q/code/index.html,
baca dulu petunjuknya di situ.
Kalo gak salah juga OE bisa export ke netscape? Itu mailboxnya
netscape mirip mbox, bisa dibaca di unix clients.
> 1> Untuk header mailbox
> 4A 4D 46 36 ... 52 65 63 65
> ^^^^^^^^^^^ ^^^^^^^^^^^
> J M F 6 R e c e
> ^^^^^^^^^^^^^^^
> hapus semua char
> 2> Antara mail yg satu dg yang lain punya baris karakteristik seperti:
> 0D 0A 00 ... 52 65 63 65
> ^^^^^^^
> hapus semua char
>
> Saya sudah bikin script perl :
> # First Remove the header
> $body =~ s/^\x4A\x4D\x46\x36[\x0-9A-F]+(\x52\x65\x63)/$1/gs;
> # Then Remove the chars between mails
> $body =~ s/(\x0D\x0A)\x00[\x-9A-F]+\x00(\x52\x65\x63)/$1$2/gs;
>
> Yg menjadi masalah di sini adalah karakter pencarian: [\x0-9A-F]+
> Untuk mencari sederetan karakter \x00 \x0F ... \xA6 \xAA .. dst
> Kelihatannya rumusan saya ini salah.
>
> Mungkin ada yg bisa bantu, pakar perl ?
Ganti [\x0-9A-F] dengan titik aja, mestinya cukup. Ingat "\x00" itu
satu character, jadi [\x0-9A-F] artinya set yang isinya karakter dg
kode ascii 0 (dari \x0) hingga angka 9 ditambah set yang isinya A
hingga F.
Kalo anda tahu jumlah character yg mesti dihapus, pake aja notasi
quantifier {..}, misalnya a{5} akan match exactly 5 a, lalu a{1,4}
akan match a, aa, aaa dan aaaa.
Lihat juga manual unpack() di perldoc, mungkin berguna.
Ronny
--------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
