in reply to Re^2: Comparision Utility PERL
in thread Comparision Utility PERL

I have added a loop so that your comparison of one field against the row becomes a comparison of all fields against the row. That is what you wanted, no?

Have a look at each statement in that block one by one. If you don't understand anything there, try to find it in the documentation with perldoc. If you still don't understanding it you can say so here, specifying where you looked and how the documentation you read did not make it clear. You may also peruse the Tutorials here for further guidance.

Happy learning!

Replies are listed 'Best First'.
Re^4: Comparision Utility PERL
by vighneshmufc (Acolyte) on Feb 09, 2018 at 09:56 UTC
    ok ignore the file3 it was basically for just saving the result to a new file. where can i get the syntax for passing arrays as a command line argument?
[reply]
[reply]
        my $file1=$ARGV[0];
        my $file2=$ARGV1;
        my $file3=$ARGV2;
        my @cols = (0, 2);
        so instead of 0 and 2 i want it to be user defined so how do i declare it with this method instead of Getopt::Long and other such steps
[reply]
Re^4: Comparision Utility PERL
by vighneshmufc (Acolyte) on Feb 09, 2018 at 09:33 UTC
    i need to run this file as perl filename.pl file1 file2 file3 Col2 col3
    i am very new to this . Also i reduced the sample.
    i am not quite able to grasp what you meant because i need to use command line arguments
[reply]

      If you want the user to specify specific column numbers then you can pass that as an array in the range of the for loop instead of using all the columns. eg:

      my @cols = (0, 2); # You would actually get these from @ARGV but it do
+esn't matter here

# ...

    for my $fieldnum (@cols) {
        if ( exists $hash{ $fields[$fieldnum] } ) {
            print $fh "$row\n";
            next;
        }
    }

      [download]

      I'm going to ignore any mention of "file3" since this is the first time you have brought it up. See also How do I change/delete my post? lest your changes make no sense.

[reply]
[d/l]

In Section Seekers of Perl Wisdom