tangetools/blockip/greppct

13 lines
469 B
Plaintext
Raw Permalink Normal View History

2017-01-07 20:33:04 +00:00
#!/usr/bin/perl
# www.pi.dk 107.150.59.98 - - [29/Nov/2016:11:29:01 +0100] "GET /test/?16EE2%20%20%E5%AF%8C%E5%B1%B1%E3%83%8B%E3%83%A5%3%83%BC%E3%83%90%E3%83%A9%E3%83%B3%E3%82%B9996%E8%B2%A9%E5%A3%B2%E5%BA%97%20%20%E3%83%8B%E3%83%A5%E3%83%BC%E3%83%90%E3%83%A9%E3%83%B3%E3%82%B9576%E6%BF%80%E5%AE%89
my $antalpcttegn = shift;
while(<>) {
my @ip = split / /,$_;
my @v = split /"/,$_;
my $c = $v[1]=~y/%/%/;
$c > $antalpcttegn and print $ip[1],"\n";
}