sm-discuss AT lists.ibiblio.org
Subject: Public SourceMage Discussion List
List archive
- From: Vladimír Marek <vlmarek AT volny.cz>
- To: sm-discuss AT lists.ibiblio.org
- Subject: Re: [SM-Discuss] historyfix script
- Date: Mon, 17 May 2004 10:24:43 +0200
[...]
> #!/usr/bin/perl
hmm
[...]
> #$file =~ s/\n200([^\n])\n([^ \t]+)\n/\n \n200$1\n \n$2\n/gs;
> $file =~ s/^200([0-9]-[0-9]+-[0-9]+[ \t]+)\?([ \t]*)/200$1Anonymous$2/gm;
> $file =~ s/^200([^@\n]+)$/200$1 <anonymous\@sourcemage.org>/mg;
> $file =~ s/^200([0-9])[^0-9]?([0-9][0-9])[^0-9]?([0-9][0-9])/200$1-$2-$3/gm;
> #$file =~ s/^200(.*)\<?([^\t\< ]+\@[^\n\t \>]+)\>?(.*)$/"200" .
> &fixname($1) . "$3 <$2>"/gme; # blah
> $file =~ s/^200([^\n]*) \<?([^\t\< \n]+\@[^\n\t \>]+)\>?([^\n]*)$/"200" .
> &fixname($1) . "$3 <$2>"/gme; # blah
> $file =~ s/[ \t]+/ /mg;
> $file =~ s/^200([0-9]-[0-9]+-[0-9]+) (\<[^>\n]*\>) ?$/200$1 Anonymous $2/gm;
> $file =~ s/([-0-9 ]+?)[\t ]+([^ ][^\n]*[^ ])[\t ]+(\<[^\n]*\>)[\t
> ]*\n(.*?)\n\n(?:\n+|)/"$1 $2 $3\n" . &fixit($4) . "\n\n"/sge;
> $file =~ s/^([-0-9 ]+?)[\t ]+([^ ].*[^ ])[\t ]+(\<.*\>)[\t ]*$/$1 $2 $3/mg;
Ooooh ! :)
--
Neuron
Attachment:
pgp9R98tmSdG9.pgp
Description: PGP signature
-
[SM-Discuss] historyfix script,
Seth Alan Woolley, 05/15/2004
- Re: [SM-Discuss] historyfix script, Vladimír Marek, 05/17/2004
Archive powered by MHonArc 2.6.24.