Re: Ratio nombre de lignes de citation / nombre de lignes de réponse

Dans le message <tdgnlt$kia$1@ns507557.dodin.fr.nf>, jdd a écrit le 16
août 2022 à 20 h 29 :

La config est au début de ce fichier.

>
on ne dirait pas

Marc Schaefer m'avait répondu ce qui suit lorsque je lui avais demandé
comment fonctionnait ce filtre :

=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
voici la config utilisée (c'est sauf erreur celle par défaut):

my %config = (checkincludedtext => 1,
              includedcutoff => 40,
              includedratio => 0.6,
              quotere => '^[>:]',
              antiquotere => '^[<]',  # so as not to reject dict(1)
output
             );

Et voici le code:

    if ($config{checkincludedtext}) {
        my ($lines, $quoted, $antiquoted) = analyze($body);
        if ($lines > $config{includedcutoff}
                && $quoted - $antiquoted > $lines *
$config{includedratio}) {
            $rval = "Article contains too much quoted text";
        }
    }

sub analyze {
    my ($lines, $quoted, $antiquoted) = (0, 0, 0);
    local $_ = shift;

    do {
        if ( /\G$config{quotere}/mgc ) {
            $quoted++;
        } elsif ( /\G$config{antiquotere}/mgc ) {
            $antiquoted++;
        }
    } while ( /\G(.*)\n/gc && ++$lines );

    return ($lines, $quoted, $antiquoted);
}
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
--
🇺🇦 Michel Vauquois - <http://michelvauquois.fr> 🇺🇦
Les fous paient pas d'impôts: ils sont peut-être fous mais ils sont pas cons, ah
ça non !
(Brèves de comptoir - Jean-Marie Gourio)