Sign in
apache
/
spamassassin
/
refs/tags/sa-update_3.4.2_20190712083151
/
.
/
masses
/
rule-dev
/
strip-high-scorers-from-log
blob: c5259ef77c0d4e742713907d64f6a9eee5f1461a [
file
] [
log
] [
blame
]
#!/usr/bin/perl
my
$score_cutoff
=
12
;
my
$lasttext
=
''
;
while
(<>)
{
/^#/
and
next
;
/^text: /
and $lasttext
=
$_
;
if
(
/^\S+\s+(\d+) /
)
{
my
$s
=
$1
;
if
(
$s
<
$score_cutoff
)
{
print
$lasttext
,
$_
;
}
}
}