# supprimer les commentaires à la C et en fin de ligne
# essai du quantificateur "non-gourmand" '*?'

use strict;
use warnings;

sub supprToutCommG($){ #arg. nom de fichier
	my ($fich) = @_;
	open(ENTREE, "<$fich");
	
	my $erc = '/\*(.*?)\*/'; # sans '\' devant '/' - Attention au point !
	my $erfl = '//.*?\n'; # idem
	my $er = "$erc|$erfl"; # disjonction ou réunion...
	
	my @tablignes = <ENTREE>;
	my $txt = join('', @tablignes);
	$txt =~ s=$er= =sg; # avec '=' comme séparateur
	# et le suffixe 's' pour étendre le pouvoir du point, 
	# et le suffixe  'g' pour supprimer toutes les occurrences
	print $txt;
}#supprToutCommG

supprToutCommG($ARGV[0]);