This will open both files and check each line of file2 against each line
of file1 (and it alerts you to any problems, is easier to read, best
pratice safe (hopefully ;p), ect etc):
#!/usr/bin/perl
use strict;
use warnings;
open my $file1_fh, '<', 'file1' or die "file1 open failed: $!";
open my $file2_fh, '<', 'file2' or die "file2 open failed: $!";
while(<$file1_fh) {
He he, whups :) make that
while(<$file1_fh>) {
my $line = $_;
chomp $line;
while(<$file2_fh>) {
my $match_against = $_;
chomp $match_against;
print "Got the string\n" if $line =~ m{$match_against}xms;
}
}
close $file1_fh;
close $file2_fh;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
