Sign in
apache
/
spamassassin
/
b4a1293a359967bddc1c8a70b05117169209cbdf
/
.
/
masses
/
graphs
/
gen-score-freqs-gnuplot-table
blob: 419045bd269d5161b69895136ae3a9a19528c550 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
my
@buckets
=
();
my
$highest
=
0
;
while
(<>)
{
/^.\s+(\d+)\s+/
or
next
;
$buckets
[
$1
]++;
if
(
$1
>
$highest
)
{
$highest
=
$1
;
}
}
for
my
$i
(
0.
.
$highest
)
{
my
$count
=
$buckets
[
$i
];
$count
||=
0
;
print
"$i $count\n"
;
}