13 lines
469 B
Perl
Executable file
13 lines
469 B
Perl
Executable file
#!/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";
|
|
}
|