[geeks] Satellite Dishes - old style...

[alex j avriette]

>> Just a thought.  Wonder how they do it.

> I might be able to find out... but I do recall some people
> cheated by using a different quote character, so I suspect
> it just looked for '>' characters.

#!/usr/bin/perl

# quotechecker.pl

use warnings;
use strict;

use constant QUOTE_PCT => .5;

my $lines;
my %beg_chars = map { ++$lines; substr($_, 0, 1), 1 } (<>);
if (keys %beg_chars < $lines * QUOTE_PCT) {
   print "probably too much quoting\n";
   exit 255;
}
else {
   exit 0;
}

# yer welcome. alex