# supprimer les commentaires à la C et en fin de ligne

use strict;
use warnings;

sub supprToutCommG($){ #arg. nom de fichier
	my ($fich) = @_;
	open(ENTREE, "<$fich");
	
	my $erc = '/[*]([^/*]|[/]|[*]+[^/*])*[*]+/'; # sans '\'
	my $erfl = '//[^\n]*\n'; # idem
	my $er = "$erc|$erfl"; # disjonction ou réunion...
	
	my @tablignes = <ENTREE>;
	my $txt = join('', @tablignes);
	$txt =~ s=$er= =g; # avec '=' comme séparateur
	print $txt;
}#supprToutCommG

supprToutCommG($ARGV[0]);