in reply to Re: Comparing the filepaths and versions in two hashes
in thread Comparing the filepaths and versions in two hashes

INPUT: List1: //depot/asic/tools/perl/scripts/examples/modem.c#7

//depot/asic/tools/perl/files/examples/file.txt#2

//depot/asic/tools/perl/proc/examples/apps.c#14

Eg.//depot/asic/tools/perl/files/examples/fpower.cpp#2

List2: //depot/asic/tools/perl/scripts/examples/modem.c#6

//depot/asic/tools/perl/files/examples/file.txt#2

//depot/asic/tools/perl/proc/examples/apps.c#12

Eg.//depot/asic/tools/perl/files/examples/fpower.cpp#2 

while (<IN>) {
    next unless ( m:(.+?)#(\d+)$: );


    if ( exists( $pathname_versions{$1} ))
    {
        #pathname exists in list1
        # compare the versions of the matching pathnames ,if the versi
+on is lower in list2 print the 
    #pathnames with both versions.Eg //depot/asic/tools/perl/scripts/e
+xamples/modem.c#7-> 6.
    #Basically this block should find all the lower version pathnames 
+in list2 compared to list1

        if ( exists( $pathname_versions{$1}{$2} ))
        {
            # we have a match on version# as well, so...
        #just print "duplicate file found" with the pathname and versi
+on
        #Eg.//depot/asic/tools/perl/files/examples/fpower.cpp#2
        }
        else
        {
            # version number wasn't seen in list1, so...
        #this case hardly araises,there will always be a version# asso
+ciated
        #we can just print "No version number"
        }
    }
   else
    {
        #working on logic what if the pathnames doesn't match
    }

}

[download]

Replies are listed 'Best First'.
Re^3: Comparing the filepaths and versions in two hashes
by Anonymous Monk on Dec 11, 2010 at 23:58 UTC 
    <a href="?node_id=174051">How do I post a question effectively?</a>
says not to hide your question in code tags, or code comments

    [download]
[reply]
[d/l]
Re^3: Comparing the filepaths and versions in two hashes
by perl_mystery (Beadle) on Dec 12, 2010 at 22:56 UTC

    1.What's wrong with the below code.I am getting the below error

    syntax error at orphan_overwrite.pl line 25, near "}{" syntax error at orphan_overwrite.pl line 35, near "}" Execution of orphan_overwrite.pl aborted due to compilation errors.

    2.Is the if condition"if ($2 < pathname_versions{$1}{$2} )" valid?Does pathname_versions{$1}{$2} give the version value in List1 ?How do I access the value for the matched path in list1 and compare? 

    #!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

@ARGV == 2 and -f $ARGV[0] or die "Usage: $0 list1 list2\n";
my ( $list1, $list2 ) = @ARGV;

my %pathname_versions;

open( IN, $list1 ) or die "$list1: $!";
while (<IN>) {
    next unless ( m:(.+?)#(\d+)$: );
    $pathname_versions{$1}{$2} = undef;

}
    print  Dumper( \%pathname_versions );
open( IN, $list2 ) or die "$list2: $!";
while (<IN>) {
    next unless ( m:(.+?)#(\d+)$: );
    #print "\nLIST 2:$1 $2";
    if ( exists( $pathname_versions{$1} ))
    {
        if ($2 < pathname_versions{$1}{$2} ) {#if the version in list2
+ is less than version for the same path in list1
            print "$1 pathname_versions{$1}{2}->$2";
        }

        if ( exists( $pathname_versions{$1}{$2} )) {
            # we have a match on version# as well, so...
        }
        else {
            # version number wasn't seen in list1, so...
        }
    }
}

    [download]
[reply]
[d/l]

      Details matter.  In 

        pathname_versions{$1}{$2}

      [download]

      you omitted the '$' sigil.

[reply]
[d/l]

In Section Seekers of Perl Wisdom