- or download this
my ($srcip) = $whole_event_string =~ /^(\d+\.\d+\.\d+\.\d+)/;
- or download this
\d+ one or more digits
\. a dot
...
\d+ one or more digits
\. a dot
\d+ one or more digits
- 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