in reply to Comparing arrays ...
#!/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
|
|---|