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

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
file1.txt:

1.he is man 2.don't you 3.xyzzy 4.what goes on
and
file2.txt:
he is z what are try to do
and I run the script
pm_11118096_1.pl:
# pm_11118096_1.pl 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 pm_11118096_1.pl 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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11118107]
help
Chatterbox?
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
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (18 votes). Check out past polls.

    Notices?