Re^6: partial matching of lines in perl

use strict;
use warnings;
my $file1 = 'C:/Users/Siddharth/Desktop/goodfile.txt'; 
  my $file2 = 'C:/Users/Siddharth/Desktop/badfile.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,'<',"C:/Users/Siddharth/Desktop/do.txt" or die "$!";
open  my $h1, '<', $file1 or die "cannot open file1";
my @a1 = <$h1>;
close $h1;
my $fh = grep {$_ !~ $match} @a1;
print $f3 $fh;
[download]

2020-06-21 Athanasius added code tags.

Comment on Re^6: partial matching of lines in perl
Download Code

Replies are listed 'Best First'.
Re^7: partial matching of lines in perl by Sidd@786 (Initiate) on Jun 15, 2020 at 13:42 UTC
please tell me the problem occuring in this program,because it is giving nothing in the output file.Input file contents are same as told earlier.	[reply]
Re^8: partial matching of lines in perl by Corion (Patriarch) on Jun 15, 2020 at 13:47 UTC
You have `use warnings;` [download] at the top of your program. When you run your program, Perl will tell you at least one problem in your program immediately: `perl -wle 'open my $fh, "<", "test.txt"; print $fh "hello"' Filehandle $fh opened only for input at -e line 1.` [download] If you don't get this output, please either post the real code you are using or find a way to see the output of your program.	[reply] [d/l] [select]