Help for this page

Select Code to Download


  1. or download this
    my ($srcip) = $whole_event_string =~ /^(\d+\.\d+\.\d+\.\d+)/;
  2. or download this
    \d+ one or more digits
\.  a dot
...
\d+ one or more digits
\.  a dot
\d+ one or more digits
  3. or download this
    #!/usr/bin/perl
use strict;
...
2.3.4.5 - Unauth [09/Oct/2004: 11:12:06 -0700] "GET / HTTP/1.1" 200 19
+79
3.4.5.6 - Unauth [09/Oct/2005: 12:12:06 -0700] "GET / HTTP/1.1" 200 19
+79
4.5.6.7 - Unauth [09/Oct/2006: 13:12:06 -0700] "GET / HTTP/1.1" 200 19
+79