tools/svn2manifest.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use English;
   6
   7 my @added_files   = `svn status|grep ^A|cut -c 8-500`;
   8 my @deleted_files = `svn status|grep ^D|cut -c 8-500`;
   9
  10 open my $MANIFEST, '<', 'MANIFEST';
  11 my $manifest = do {
  12     local $INPUT_RECORD_SEPARATOR;
  13     <$MANIFEST>;
  14 };
  15 close $MANIFEST;
  16
  17 my @manifest = split(/\n/, $manifest);
  18 foreach my $added_file (@added_files) {
  19     push @manifest, $added_file;
  20 }
  21 foreach my $deleted_file (@deleted_files) {
  22     @manifest = grep { $_ . "\n" ne $deleted_file } @manifest;
  23 }
  24 open $MANIFEST, '>', 'MANIFEST';
  25 print $MANIFEST join "\n", @manifest;
  26 close $MANIFEST;