#!/usr/bin/perl+
−
+
−
# Copyright (c) 2009 Symbian Foundation Ltd+
−
# This component and the accompanying materials are made available+
−
# under the terms of the License "Eclipse Public License v1.0"+
−
# which accompanies this distribution, and is available+
−
# at the URL "http://www.eclipse.org/legal/epl-v10.html".+
−
#+
−
# Initial Contributors:+
−
# Symbian Foundation Ltd - initial contribution.+
−
# +
−
# Contributors:+
−
#+
−
# Description:+
−
# Compare two 7z listings, looking for files present in both+
−
+
−
use strict;+
−
+
−
my %first_files;+
−
my $line;+
−
my $file_index = -1;+
−
+
−
while ($line=<>)+
−
  {+
−
  +
−
  if ($line =~ /^Listing archive/)+
−
    {+
−
    $file_index++;+
−
    print "$file_index: Processing $line";+
−
    next;+
−
    }+
−
+
−
  # 2009-04-30 11:26:58 D....            0            0  epoc32\cshlpcmp_template+
−
  # 2009-03-20 22:22:18 .....        72192        16307  epoc32\cshlpcmp_template\cshelp2000.dot+
−
  +
−
  next if (length($line) < 54);+
−
  +
−
  my $dir_attribute = substr($line, 20, 1);  +
−
  if ($dir_attribute eq ".")+
−
    {+
−
    chomp $line;+
−
    my $fullpath = substr($line, 53);+
−
    +
−
    if ($file_index == 0)+
−
      {+
−
      # first file+
−
      $first_files{$fullpath} = $line;+
−
      next;+
−
      }+
−
    if (defined $first_files{$fullpath})+
−
      {+
−
      print "Duplicate filename: $fullpath\n";+
−
      print "\t$first_files{$fullpath}\n\t$line\n";+
−
      next+
−
      }+
−
    }+
−
  }+
−
+
−