Juanillo dijo [Fri, May 23, 2003 at 10:19:11PM +0200]: > Hola a todos > > Hace unos dias se me lleno la particion donde tenia las colas de correo. La > consecuencia es que los buzones de correo se me han quedado corruptos. > tal que asi: > > qwerqweroiqeywhrfhkasdñlfkahsñflhkasdñfcnxcvnñasldhkfñasdkhfñasdhfñas > qwerhqwñrhfoiqweytrjdfg,dmfbvgxzklchgw0gfiwerkhtñrlkehgrweoiytoerityoiy3 > iqwethdñsadfhasdñfhañsdlfhFrom [EMAIL PROTECTED] Thu .... etc > > La solucion es borrar las lineas anteriores a la linea donde esta el From y > despues borrar los caracteres de antes del From para que quede de nuevo asi: > (...)
Ummm... Tal vez no sea lo más rápido/eficiente, pero sí te asegura que el buzón quedará en un formato realmente válido: Asómate al módulo de Perl Mail::Box (libmail-box-perl). Puedes hacer un programilla como el siguiente: -------------------- #!/usr/bin/perl use warnings; use strict; use Mail::Box::Manager; my ($mgr, $viejo, $nuevo); $mgr = Mail::Box::Manager->new; $viejo = $mgr->open('/var/mail/tubuzon', access=>'r'); $nuevo = $mgr->open('/tmp/nuevobuzon', access=>'a', create=>1); foreach my $msg ($mbox->messages) { $mgr->copyMessage('pcm', $msg); } $mgr->closeAllFolders; -------------------- Claro está, Mail::Box te permite MUCHO más que eso :) Es un maravilloso modulito que conviene conocer. Saludos, -- Gunnar Wolf - [EMAIL PROTECTED] - (+52-55)5630-9700 ext. 1366 PGP key 1024D/8BB527AF 2001-10-23 Fingerprint: 0C79 D2D1 2C4E 9CE4 5973 F800 D80E F35A 8BB5 27AF