#!/usr/bin/perl -w
use strict;
my $argc = @ARGV;
if($argc != 1) { die "Usage: fileChanged.pl <path>\n"; }
if( -f "files.txt") {
unlink "files.txt";
}
my $p4 = "p4";
my $changes = "changes";
my $path = "$ARGV[0]";
my $range = '@>=2007/01/01,@<=2008/01/01';
my @changeNums = ();
foreach (`$p4 $changes -m10 '$path...$range'`) {
chomp;
my @line = split(/ /,$_);
shift @line;
my $changeNum = shift @line;
push @changeNums,$changeNum;
}
#open(STDOUT,">>out.txt");
my $fileHashRef = {};
my $describe = "describe -s";
foreach my $changeNum (@changeNums) {
#print "$p4 $describe $changeNum\n";
my $count = 0;
foreach (`$p4 $describe $changeNum`) {
chomp;
print STDOUT "$_\n";
if(/^\.\.\.\s(.+)$/) {
$count++;
$fileHashRef->{$changeNum}{$changeNum . "_f" . $count} = $1;
}
}
}
#close(STDOUT);
open(OUT,">>files.txt");
foreach my $changelistNum (keys %$fileHashRef) {
foreach my $num (sort keys %{$fileHashRef->{$changelistNum}}) {
print OUT "ChangeNum: $num, File: $fileHashRef->{$changelistNum}{$num}\n";
}
}
close(OUT);