Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re^10: partial matching of lines in perl

by AnomalousMonk (Bishop)
on Jun 15, 2020 at 19:24 UTC ( #11118107=note: print w/replies, xml ) Need Help??

in reply to Re^9: partial matching of lines in perl
in thread partial matching of lines in perl

If I have the input files

1.he is man 2.don't you 3.xyzzy 4.what goes on
he is z what are try to do
and I run the script
# 15jun20waw use strict; use warnings; my $file1 = 'file1.txt'; my $file2 = 'file2.txt'; open my $h2, '<', $file2 or die "cannot open file2"; my @a2 = <$h2>; close $h2; chomp @a2; my $match = join '|', @a2; $match = qr/$match/; open my $f3,'>',"do.txt" or die "$!"; open my $h1, '<', $file1 or die "cannot open file1"; my @a1 = <$h1>; close $h1; print grep {$_ !~ $match} @a1; # print $f3 grep {$_ !~ $match} @a1;
I get the following output:
c:\@Work\Perl\monks\Sidd@786>perl 2.don't you 4.what goes on

If I comment out the
    # print grep {$_ !~ $match} @a1;
line and uncomment the
    print $f3 grep {$_ !~ $match} @a1;
line, I get an output file do.txt with the content

2.don't you 4.what goes on
(and no output in the command window).

When you run your code with these input files, what do you get?

Give a man a fish:  <%-{-{-{-<

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11118107]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2020-10-01 18:29 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (18 votes). Check out past polls.