equal
deleted
inserted
replaced
30 die "Cannot find $filelist\n"; |
30 die "Cannot find $filelist\n"; |
31 } |
31 } |
32 my %ziptimes; |
32 my %ziptimes; |
33 if(defined $zipfile) |
33 if(defined $zipfile) |
34 { |
34 { |
35 open(ZIP,"7z l $zipfile 2>&1|") or die "Error: Couldn't look in $zipfile\n"; |
35 open(ZIP,"7za l $zipfile 2>&1|") or die "Error: Couldn't look in $zipfile\n"; |
36 # print "time,file\n"; |
36 #print "time,file\n"; |
37 while( my $line = <ZIP>) |
37 while( my $line = <ZIP>) |
38 { |
38 { |
39 if($line =~ m/^(\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2})\s\S{5}\s+(\d+)\s+\d+\s+(.+)$/) #ignoring packed size... |
39 if($line =~ m/^(\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2})\s\S{5}\s+(\d+)\s+\d+\s+(.+)$/) #ignoring packed size... |
40 { |
40 { |
41 my $name = $3; |
41 my $name = $3; |
42 my $size = $2; |
42 my $size = $2; |
43 my $time = $1; |
43 my $time = $1; |
44 $name =~ s/\\/\//g; |
44 $name =~ s/\\/\//g; |
45 $name = lc($name); |
45 $name = lc($name); |
46 $ziptimes{$name} = $time; |
46 $ziptimes{$name} = $time; |
47 # print "$time,$name\n"; |
47 #print "$time,$name\n"; |
48 } |
48 } |
49 } |
49 } |
50 close ZIP; |
50 close ZIP; |
51 } |
51 } |
52 my %files; |
52 my %files; |