Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: •Re: Array::Compare issues

by sunadmn (Curate)
on Oct 06, 2003 at 17:09 UTC ( #297004=note: print w/ replies, xml ) Need Help??


in reply to •Re: Array::Compare issues
in thread Array::Compare issues

Merlyn I have tested your sample code and I am now having an issue that I return no data. I would assume this should be returned to STDOUT but when ran like so

[root@nscache2 tmp] 115# ./compare1.pl db.bind1 db.bind2 file1 and not file2: file2 and not file1: [root@nscache2 tmp] 116#
I see nothing returned. Do you have any idea as to why this might be?? Here is my new code:
#!/usr/bin/perl -w use strict; # shift(@ARGV); my %found_in; while (<>) { # $found_in{$_} .= $ARGV; $found_in{$_}{$ARGV}++; } print "file1 and not file2:\n"; print grep { $found_in{$_} eq "file1" } keys %found_in; print "file2 and not file1:\n"; print grep { $found_in{$_} eq "file2" } keys %found_in; exit;
Thanks in advanced for any help. -Sunadmn


Comment on Re: &bull;Re: Array::Compare issues
Select or Download Code
Replies are listed 'Best First'.
•Re: Re: •Re: Array::Compare issues
by merlyn (Sage) on Oct 06, 2003 at 17:49 UTC
    Yes, my example specifically uses $ARGV, which will be sensitive to the names of the files being processed. Either rename your files to be file1 and file2, or change the strings in the two greps.

    -- Randal L. Schwartz, Perl hacker
    Be sure to read my standard disclaimer if this is a reply.

      Thanks Merlyn that did the trick just fine. -Sunadmn

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://297004]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (11)
As of 2015-07-08 04:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (94 votes), past polls