Re^2: Match 2 strings in same line

Replies are listed 'Best First'.
Re^3: Match 2 strings in same line by kennethk (Abbot) on Nov 25, 2013 at 17:07 UTC
What's in `$logsIncDate`? The most obvious case is that your string contains Metacharacters, and so they need to be escaped: `if($line =~ m/\Q$logsIncDate\E/ and $line =~ m/SW_MATM-4-MACFLAP_NOTIF +/){ push(@eigrp, "$line\n"); }` [download] #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^4: Match 2 strings in same line by hmb104 (Sexton) on Nov 25, 2013 at 17:21 UTC
my $logsIncDate = `date +"%b %d %H"`; my @eigrp = (); open SwitchLogs, $logFile or die "Could not open $logFile: $!"; while (<SwitchLogs>) { chomp; my $line = $_; if($line =~ m/$logsIncDate/ && $line =~ m/SW_MATM-4-MACFLAP_NOTIF/ +){ push(@eigrp, "$line\n"); $sendemail = 1; } } [download] All I want to do is to match the date/time in a line that contain the specified string. So the above code should catch the below one line: `Nov 25 10:59:13 10.1.162.11/10.1.162.11 1410: Nov 25 16:59:12.724: %SW +_MATM-4-MACFLAP_NOTIF: Host 30ff.0c00.d4be in vlan 162 is flapping be +tween port Fa0/13 and port Fa0/10` [download]	[reply] [d/l] [select]
Re^5: Match 2 strings in same line by kennethk (Abbot) on Nov 25, 2013 at 17:29 UTC
The result of `date +"%b %d %H"` has a trailing newline, which is not present in your string. You need to remove that, perhaps with chomp: chomp(my $logsIncDate = `date +"%b %d %H"`); [download] Also, why are you chomping your input, only to re-append a newline on storage? Seems like you could avoid unnecessary operations (and more opportunities for confusion and bugs) with `while (my $line = <SwitchLogs>) { if($line =~ m/$logsIncDate/ && $line =~ m/SW_MATM-4-MACFLAP_NOTIF/ +){ push(@eigrp, $line); $sendemail = 1; } }` [download] #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^6: Match 2 strings in same line by hmb104 (Sexton) on Nov 25, 2013 at 17:33 UTC
Re^5: Match 2 strings in same line by Tux (Canon) on Nov 25, 2013 at 17:30 UTC
Hint: the last character of `$logsIncDate` is a newline. Maybe you should consider using POSIX::strftime instead Enjoy, Have FUN! H.Merijn	[reply] [d/l]
Re^3: Match 2 strings in same line by davido (Cardinal) on Nov 25, 2013 at 17:18 UTC
Yes, I was only able to answer based on the code you showed. The problem with the code you showed was the missing `$line` from the second regexp match. If there's still a problem after applying that change (which is still necessary), then you will have to move on to other issues, such as using `\Q` at the start of the first regexp. Dave	[reply] [d/l] [select]