Lebih tepat ke milis linux-programming, saya pindahin. On 07-Mar-2000, Pipit wrote: > Ada yang tahu program/script untuk menghapus header-header > /footer yang tidak diperlukan dari suatu mailbox ? > Karena (contoh) *arsip* milis ini, kalau di hilangkan header > (tertentu) dan footer-nya kan lumayan menghemat. > > -------------------------------------------------------------------------- > Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] > Informasi arsip di http://www.linux.or.id/milis.php3 > Pengelola dapat dihubungi lewat [EMAIL PROTECTED] A. quick and dirty: (warning: untested!) #!/usr/bin/perl -i.bak -n print if not (/^-{40,}$/ || /^Utk berhenti langganan, kirim email ke .*linux\.or\.id$/ || m[^Informasi arsip di http://www\.linux\.or\.id/milis\.php3$] || /^Pengelola dapat dihubungi lewat .*linux\.or\.id$/); Simpen, misalnya strip.pl, chmod +x, lalu pakenya: strip.pl path-file-mbox-nya nanti file aslinya dia backup dulu dg extension bak. Kekurangannya: nggak menghandle MIME dg baik, jadi nggak dijamin nggak ngerusak struktur email. B. lebih nggak ngawur: pake module Mail::Internet dan MIME::Entity. This is left as an excercise for the readers :) 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]
