- #!/usr/bin/perl -w
- my $c_file = $ARGV[0];
- my $c_file_out = $ARGV[1];
- open(CF,"<$c_file");
- my @cf = <CF>;
- close CF;
- my $cf = join '',@cf;
- $cf =~ s/((?<=\n)|^)[ \t]*\/\*.*?\*\/\n?|\/\*.*?\*\/|((?<=\n)|^)[ \t]*\/\/[^\n]*\n|\/\/[^\n]*//gs;
- open(OUT,">$c_file_out");
- print OUT "$cf";
- close OUT;
来源: http://www.phpxs.com/code/1006219/