Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^3: Comparision Utility PERL

by hippo (Canon)
on Feb 09, 2018 at 09:16 UTC ( #1208790=note: print w/replies, xml ) Need Help??


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?
        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
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

      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; } }

      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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1208790]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2018-07-18 01:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (383 votes). Check out past polls.

    Notices?