Documentation/en/I-D/.remove_obsolete.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

#!/usr/bin/env perl
#
# $FML: .remove_obsolete.pl,v 1.1 2001/08/22 22:24:37 fukachan Exp $
#

use strict;
use Carp;

print "cvs remove ";

my $prev = '';
for my $cur (sort <draft*txt>) {
    if (compare($prev, $cur)) {
	print "$prev ";
    }

    $prev = $cur;
}

print "\n";


sub compare
{
    my ($a, $b) = @_;
    my ($ta, $tb, $xa, $xb);

    if ($a =~ /(.*)\-\d+(\d)\.txt/) { $ta = $1; $xa = $2;}
    if ($b =~ /(.*)\-\d+(\d)\.txt/) { $tb = $1; $xb = $2;}

    return (($ta eq $tb) && ($xb - $xa) == 1) ? 1 : 0;
}