head	1.1;
branch	1.1.1;
access;
symbols
	john2:1.1.1.1.0.8
	lapyu1:1.1.1.1.0.6
	john1:1.1.1.1
	lapyu-work:1.1.1.1.0.4
	john-work:1.1.1.1.0.2
	SIXALPHA:1.1.1.1
	TEXLIVE:1.1.1;
locks; strict;
comment	@# @;


1.1
date	2000.10.03.04.02.46;	author plaice;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2000.10.03.04.02.46;	author plaice;	state Exp;
branches;
next	;


desc
@@



1.1
log
@Initial revision
@
text
@#! /usr/bin/perl -w

use strict;

my($LignePrec, $LigneCour);

if (@@ARGV == 0) {
  print STDERR "doublons2: Syntaxe : doublons2 fichier [fichier ...]\n";
  exit (1);
}

foreach (@@ARGV) {
  unless (open (FICHIER, $_)) {
    print STDERR "doublons2: Impossible d'ouvrir le fichier $_ !\n";
    next;
  }
  if (eof FICHIER) {
    print STDERR "doublons2: Le fichier $_ est vide !\n";
    close (FICHIER);
    next;
  }
  unless (open (FICHIER_NODOUBL, ">$_-nodoubl")) {
    print STDERR "doublons2: Impossible de crer le fichier $_-nodoubl !\n";
    print STDERR "doublons2: Impossible de continuer !\n";
    close (FICHIER);
    exit (2);
  }

  $LignePrec = <FICHIER>;
  print FICHIER_NODOUBL $LignePrec;

  until (eof FICHIER) {
    $LigneCour = <FICHIER>;
    unless ($LigneCour eq $LignePrec) {
      print FICHIER_NODOUBL $LigneCour;
    }
    $LignePrec = $LigneCour;
  }

  close (FICHIER);
  close (FICHIER_NODOUBL);
}
@


1.1.1.1
log
@sun2.dante.de download 2/10/2000 of TeXLive (Omega 1.11)
@
text
@@
