Re: How do I display only matches

put this between chomp and print

next if $row =~ /REGEX/;

Of course this must be inverted

next unless $row =~ /REGEX/;

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re: How do I display only matches Select or Download Code

Replies are listed 'Best First'.
Re^2: How do I display only matches by AnomalousMonk (Archbishop) on Sep 24, 2019 at 01:53 UTC
Shouldn't that be `next unless $row =~ /REGEX/;` or maybe `next if $row !~ /REGEX/;` Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^3: How do I display only matches by tem2 (Novice) on Sep 24, 2019 at 03:28 UTC
`use strict; use warnings; my $filename = 'dirtest.txt'; open(my $fh, '<:encoding(UTF-8)', $filename) or die "Could not open file '$filename' $!"; while (my $row = <$fh>) { chomp $row; next if $row =~ /.{20}\\[a-zA-Z]\s[\r\n]/; print "$row\n"; }` [download] The following is the file content: `Directory of D:\ \Q\X 09/20/2019 07:57 PM <DIR> . 09/20/2019 07:57 PM <DIR> ..` [download] The regex works for this content in online regex https://regex101.com/r/LFrvLp/11 But when I run the script, EVERY row is displayed, it should only be the FIRST row as it is the only row with a backslash in position 21.	[reply] [d/l] [select]
Re^4: How do I display only matches by AnomalousMonk (Archbishop) on Sep 24, 2019 at 05:08 UTC
Please see this. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]