linux-scalability-benchmarks / gatling / acc.pl

The default branch has multiple heads

#!/usr/bin/perl
while (<>) {
  chomp;
  my @x=split(" ");
  if ($x[0] =~ m/^\d{4}-\d\d-\d\d$/) {
    my $tmp = "$x[0]|$x[1]";
    shift @x;
    $x[0]=$tmp;
  }
  if ($x[1] =~ /^(GET|POST|HEAD)/) {
    if ($x[1] =~ /SSL/) {
      $x[3] = "https://" . $x[7] . $x[3];
    } else {
      $x[3] = "http://" . $x[7] . $x[3];
    }
  }
  if ($x[1] eq "accept") {
    $ip{$x[2]} = $x[3];
  } elsif ($#x == 7) {
    $x[2] = $ip{$x[2]};
    $x[2] = "0.0.0.0" if ($x[2] eq "");
    next if ($x[2] eq "82.146.42.231");
    print join(" ",@x),"\n";
  }
}
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.