[O mne] [Foto] [Haluze] [NET] [Šopa] [Priatelia]
Tento program rieši problém, ak chcete urobiť z mail-file s veľa správami samostatný súbor pre každú správu.
Použitie programu cat $MAIL | rozdel.pm. Tento príkaz si môžeš uložiť do shellového príkazového súboru a ušetríš si túto rúru. Zároveň tam môžeš ošetriť napríklad to, že pri rozdeľovaní súboru programu PINE ti vznikne 0. správa, ktorá nemá obsah, je tam len pre potrebu lamerského mailovacieho programu ;-).
#!/usr/bin/perl
print "delenie sprav; (c)1999 Somebody\npouzitie: cat tvoj_mailbox | rozdel.pm\n";
$id=1; $e=0;
if (-f $id.".elm") { die "subor ${id}.elm uz existuje !"; }
open S, ">".$id.".elm" or die "nemozem otvorit subor ${id}.elm: $!";
while (<>) {
if ($e && $_=~/^From/) {
close S;
print "sprava $id ulozena do ${id}.elm\n";
$id++;
if (-f $id.".elm") { die "subor ${id}.elm uz existuje !"; }
open S, ">".$id.".elm" or die "nemozem otvorit subor ${id}.elm: $!";
}
$e=($_=~/^\n$/);
print S;
}
close S;
print "sprava $id ulozena do ${id}.elm\n";
print "koniec delenia sprav\n";