This appears straightforward. Go through the first file and make a hash table with keys like you expect that lines in the 2nd file will look like (it appears that you know exactly to the character what they will be if it is a "match"). Go through each line in the 2nd file and print the match if you have seen this line data in file1 before. You didn't show it, but I don't see any reason why the NAME05 line wouldn't match like the NAME10 line does.
#!/usr/bin/perl -w
use strict;
open(FILE, "data_file.txt") || die "Could not open file data_file";
open(FILE2, "data_file2.txt") || die "Could not open file data_file2";
my %file1;
while (<FILE>)
{
chomp;
tr/,/ /;
$file1{$_}=1;
}
while (<FILE2>)
{
chomp;
print "$_ *** matched\n" if $file1{$_};
}
__END__
Prints:
DATA03 08 NAME10 *** matched
DATA02 12 NAME05 *** matched
data_file1:
DATA01,01,NAME02
DATA02,12,NAME05
DATA03,08,NAME10
data_file2:
DATA11 11 NAME22
DATA03 08 NAME10
DATA02 12 NAME05
__END__
Prints:
DATA03 08 NAME10 *** matched
DATA02 12 NAME05 *** matched
data_file1:
DATA01,01,NAME02
DATA02,12,NAME05
DATA03,08,NAME10
data_file2:
DATA11 11 NAME22
DATA03 08 NAME10
DATA02 12 NAME05
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.