in reply to comparing multiple arg values against multiple files
sub y { my @arg = @_; print join ':', (@arg[0..2]); }
In the large, it sounds like you are doing this: <code> sub y { my @arg = @_; if (compare($arg[0],$file[0]) { if (compare($arg1,$file1) { print '...'; } } else { print 'dont care about the second'; } } <code>
The compare() pseudo-function above could be a short as Perl function/operator or as long as subroutine or method call depending on how you clarify the definition of your problem.
|
|---|