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

use strict;
use warnings;

sub extrToutComm($){ #arg. nom de fichier
	my ($fich) = @_;
	open(ENTREE, "<$fich");
	
	my $erc = '/[*](([^/*]|[/]|[*]+[^/*])*[*]*)[*]/'; # sans '\'
	my $erfl = '//[^\n]*\n'; # idem
	my $er = "$erc|$erfl"; # avec parenthèses
	
	my @tablignes = <ENTREE>;
	my $txt = join('', @tablignes);
#	my @tab = ($txt =~ m=$er=); # avec '=' comme séparateur
#	if( defined($tab[0]) ){
#		print ("$tab[0]\n");
#	}else{
#		print ("no match !\n");
#	}
    $txt =~ s=$er=[[$1]]=;
    print("$txt\n");
}#extrToutComm

extrToutComm($ARGV[0]);