Hello Anonymous Monk,
The fastest and minor modification to apply is simply concatenate the IP(s) with a column. For example: my $ip = '127.0.0.1|127.0.0.2'; you can easily add as many IP(s) you want following the same pattern. There are many ways to achieve what you want but this is the easiest and less modifications needed based on the code above. See the output bellow based on testing on my local configurations. If you need further assistance let us know.
Output using the code above:
$ perl test.pl
/home/tinyos/Monks/TestDir/2018-01-03/sys.log:1:127.0.0.1 This is insi
+dent 1 in 2018-01-05
/home/tinyos/Monks/TestDir/2018-01-03/sys.log:2:127.0.0.2 This is insi
+dent 2 in 2018-01-05
/home/tinyos/Monks/TestDir/2018-01-03/sys.log:4:127.0.0.1 This is seco
+nd insident 4 in 2018-01-05
/home/tinyos/Monks/TestDir2/2018-01-03/sys.log:1:127.0.0.1 This is ins
+ident 1 in 2018-01-05
/home/tinyos/Monks/TestDir2/2018-01-03/sys.log:2:127.0.0.2 This is ins
+ident 2 in 2018-01-05
/home/tinyos/Monks/TestDir2/2018-01-03/sys.log:4:127.0.0.1 This is sec
+ond insident 4 in 2018-01-05
Hope this helps, BR.
Seeking for Perl wisdom...on the process of learning...not there...yet!
|