Kde je archiv konference ???

oldfrog.mail.tex1 at volny.cz oldfrog.mail.tex1 at volny.cz
Fri Jan 24 14:17:52 CET 2003


>
>
>Asi na to existují nějaké nástroje, ale asi nestojí za to
>je hledat. Navrhuju tohle (je to filtr):
>
>#!/usr/bin/perl
>use warnings;
>use strict;
>use Date::Parse;
>use POSIX qw(strftime);
>$_ = <>;  # skip first ===== line
>$/ = ('=' x 79) . "\n";
>while (<>) {
>  s/=+\n\z//;
>  if (!/^From: ((.*)(\n\s+.*)*)\n/m) { warn "Cannot find From\n"; next; }
>  my $from = $1;
>  if (!/^Date: (.*?)\n/m) { warn "Cannot find Date\n"; next; }
>  my $date = $1;
>  $from =~ s/.*?([\w.-]+@[\w.-]+).*/$1/s;
>  print "From $from ".strftime('%a %b %e %T %Y +0100', strptime($date))."\n";
>  #s/\n\n/\nStatus: RO\n\n/;
>  print;
>}
>
Dekuji, stahl jsem Date::Parse, ale skript hlasi chybu:

-----------------error-----------------------------------------
on at of:~> ./cn cstex.1995-05
Bareword found where operator expected at ./cn line 6, near "3D"
        (Missing operator before D?)
Bareword found where operator expected at ./cn line 7, near "3D"
        (Missing operator before D?)
Bareword found where operator expected at ./cn line 11, near "3D"
        (Missing operator before D?)
Bareword found where operator expected at ./cn line 13, near "3D"
        (Missing operator before D?)
Bareword found where operator expected at ./cn line 14, near "3D"
        (Missing operator before D?)
syntax error at ./cn line 6, near "3D "
syntax error at ./cn line 7, near "3D "
syntax error at ./cn line 11, near "3D "
syntax error at ./cn line 13, near "3D "
syntax error at ./cn line 14, near "3D"
Execution of ./cn aborted due to compilation errors.
----------------------------------------------------------------

Vzhledem k tomu, ze jsem se (stale jeste) nestihl zaucit v perlu,
nevim, ktera bije :-). Napsal jsem ale makro do vimu, ktere mi
z archivu vybere zpravy podle subjektu a nahaze je do prazdneho
bufferu, takze jsem spokojen.

Prijemne TeXovani preje
OldFrog.







More information about the csTeX mailing list