in reply to grep only lines having matched pattern
use strict; use warnings; use Regexp::Common qw(time); my $DATE = $RE{time}{tf}{-pat => 'mm-dd-yyyy'}; my @data = <DATA>; my @wanted = grep {/^$DATE(?!-[1-9])/} @data; print @wanted; __DATA__ 03-15-2021-1 21.1.0-s103 2021/03/15:14:16:39 21.1 21.10-s103 03-15-2021-2 21.1.0-s103 2021/03/15:14:16:39 21.1 21.10-s103 03-15-2021 21.1.0-s102 2021/03/15:04:00:09 21.1 21.10-s102
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: grep only lines having matched pattern
by Marshall (Canon) on Apr 02, 2021 at 02:11 UTC |