Help with Compare script

Need a script to compare two lists
gaurav sharmaAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

wilcoxonCommented:
my @list1 = (5,3,7,2,4);
my @list2 = (3,6,8,2,1);
my %hash1 = map { $_ => 1 } @list1;
foreach my $k (@list2) {
    if (exists $hash1{$k}) {
        print "$k found in both lists\n";
        delete $hash1{$k};
    } else {
        print "$k not found in list1\n";
    }
}
print map { "$_ not found in list2\n" } keys %hash1;

Open in new window

0
gaurav sharmaAuthor Commented:
I have two text files workspace.txt and invalids.txt .Attached are both the text files. The perl script :

1. Needs to have the paths to the workspace.txt and invalids.txt as arguments like

    compare_perl.pl  /path/to/invalids.txt /path/to/workspace.txt  



2.  Check if each string in workspace.txt is present in invalids.txt. If a match is found in the invalids.txt then print
     the corresponding line in invalids.txt

3. The above check in invalids.txt is to look for string between the dot(.)and colon(') at the end.
       
      For instance in the file invalids.txt consider the line  'PACKAGE BODY: TRON2000.ts_k_jrp_300901sfsfs0_mma'      
      for comparison only consider the string

      ts_k_jrp_300901sfsfs0_mma


4. If a match is found then print the complete corresponding line in invalids.txt  like


     'PACKAGE BODY: TRON2000.ts_k_jrp_300901sfsfs0_mma' is invalid

      or else just print the text from workspace.txt is valid ....in this case print

      ts_k_jrp_300901sfsfs0_mma is valid


4 . Finally while comparison ignore the last row in invalids.txt n this case the line

    2 rows
invalids.txt
workspace.txt
0
gaurav sharmaAuthor Commented:
Desired output :

Since the only first string in workspace.txt matches the string in the invalids.txt the desired output should be

 'PACKAGE BODY: TRON2000.ts_k_jrp_300901sfsfs0_mma' is invalid
we_fg_hj_k_mma is valid
fd_hf_ks_kd_mma is valid
fg_cb_vn_kd_kl_mma is valid
qw_kj_lk_oi_lm_mma is valid
qw_df_vc_bh_lk_mma is valid
ts_k_jrp_3dfdssd01140_mma is valid
rtewtwert_dfsg_dafasd_mma is valid
adf_afaf_afa_afA_mma is valid
0
Cloud Class® Course: CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

gaurav sharmaAuthor Commented:
@WILCOXON: Thanks for your response. I was trying to clearly explain what I need.
0
wilcoxonCommented:
Based on your description, this should do what you want:
use strict;
use warnings;
use Fatal qw(open close);
my $finv = shift or die "Usage: $0 <invalids_file> <workspace_file>\n";
my $fwrk = shift or die "Usage: $0 <invalids_file> <workspace_file>\n";
open IN, $finv or die "could not open $finv: $!";
my %chk;
while (<IN>) {
    chomp;
    next if m{^\d+\s+rows?\s*$};
    if (m{\.(.*)'\s*$}) {
        $chk{$1} = $_;
    }
}
close IN;
open IN, $fwrk or die "could not open $fwrk: $!";
while (<IN>) {
    chomp;
    if (exists $chk{$_}) {
        print "$chk{$_} is invalid\n";
    } else {
        print "$_ is valid\n";
    }
}
close IN;

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
gaurav sharmaAuthor Commented:
The script works perfectly fine. Thank you for quick response. I had one last correction to make in the requirements. The strings in invalids.txt are all uppercase.  
Before checking if the string in workspace.txt exists in invalids.txt , convert the all the strings in workspace.txt to uppercase.
0
gaurav sharmaAuthor Commented:
@Wilcoxon: Let me know if you need anything
0
wilcoxonCommented:
It should work to just change line 19 to:
if (exists $chk{uc($_)}) {

Open in new window

0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Perl

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.