Search Results

Another way in Perl language. Just for alternative solution,

#!/usr/bin/perl -w
# Usage: perl regex.pl file.log
use strict;

my $file = shift;
my $fh = undef;

open ($fh, '<', $file) or die...