|
Last change
on this file since 754 was
754,
checked in by pfusik, 12 years ago
|
|
svn2new: tool to create new.m3u from svn log.
|
|
File size:
512 bytes
|
| Line | |
|---|
| 1 | my $r = shift or die "Usage: perl svn2new.pl STARTING_SVN_REVISION\n"; |
|---|
| 2 | my @i = `svn log -qv -r $r:HEAD ../asma`; |
|---|
| 3 | my (%a, %d); |
|---|
| 4 | for (@i) { |
|---|
| 5 | if (m{^ A /trunk/asma/(\S+\.sap)(?: \(from /trunk/asma/(\S+\.sap)\))?}) { |
|---|
| 6 | $a{$1} = 1 if !$2 || delete $a{$2}; |
|---|
| 7 | } |
|---|
| 8 | elsif (m{^ D /trunk/asma/(\S+\.sap)}) { |
|---|
| 9 | $d{$1} = 1; |
|---|
| 10 | delete $a{$1}; |
|---|
| 11 | } |
|---|
| 12 | } |
|---|
| 13 | open F, ">new.txt" or die; |
|---|
| 14 | print F "$_\n" for sort keys %a; |
|---|
| 15 | open F, ">deleted.txt" or die; |
|---|
| 16 | print F "$_\n" for sort keys %d; |
|---|
| 17 | printf "New: %d Deleted: %d\n", scalar %a, scalar %d; |
|---|
Note: See
TracBrowser
for help on using the repository browser.
