#! /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 créer 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); }