Re^2: print a file from Bottom to Top (reverse order)

Thank you very much for your code. it works as expected. my file is actually maillog file. It's sometimes huge. So File::ReadBackwards is much better. But, the problem is I am trying to insert below lines in to that code.

if (/Passed CLEAN/) { #search string Passed CLEAN
      print "$_ \n"; # print ALL lines containing Passed CLEAN

   }
[download]

But, still no success. I am learning perl. I am still a novice. I googled how to insert it, But, still not lucky.

Comment on Re^2: print a file from Bottom to Top (reverse order) Download Code

Replies are listed 'Best First'.
Re^3: print a file from Bottom to Top (reverse order) by Laurent_R (Canon) on Jun 20, 2018 at 18:45 UTC
Changing just a couple of small things to haukex's solution above should give you what you need: `use warnings; use strict; use File::ReadBackwards; my $bw = File::ReadBackwards->new('/var/log/maillog') or die $!; while (defined( my $line = $bw->readline )) { print $line if $line =~ /Passed CLEAN/; } $bw->close;` [download]	[reply] [d/l]
Re^4: print a file from Bottom to Top (reverse order) by theravadamonk (Scribe) on Jun 22, 2018 at 15:45 UTC
Thanks a lot for your kind reply. I get what I expect from your INPUT. I thank all who participated in this mail tread.	[reply]
Re^3: print a file from Bottom to Top (reverse order) by AnomalousMonk (Archbishop) on Jun 20, 2018 at 19:04 UTC
Given Laurent_R's comprehensive reply, let's move on to the next question: How do I match one or more arbitrary whitespace characters between the `'Passed'` and the `'CLEAN'` in the pattern match? Please see the `+` quantifier in perlre, and `\s` in perlre and Whitespace in perlrecharclass. In general, please see perlretut. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]