コメントはずし。あってる？

delcomment

コメントはずし。あってる？
JavaやC++のコメントはずし。行番号保存のはず？

以下のプログラム部分を選択してメモ帳に貼り付けるなどして保存して実行属性にすれば使えます

windowsの場合はcygwin入れて使いましょう。 
#!/usr/bin/perl

#delete C++/java type comments reserving line marks to reserve line number
#you can select LINEfirst or NORMAL operation
#but "//" or "/*" or "*/" 's in literal character or string will
#taken to be normal comment marks.

$type = "LINEfirst";  ## LINEfirst or NORMAL

$incomment=0;
while(<>) {
	while(1) {
		s!//.*$!! if $type eq "LINEfirst";
		while($incomment && ! /^$/) {
			if(s!\*/(.*)!!) { $_=$1."\n";$incomment = 0;}
			else { s!.*!!;}
			}
		s!//.*$!! if $type ne "LINEfirst";
		last unless s!/\*(.*)!!;
		$s=$1;
		s/[\r\n]*$//;
		print;
		$_=$s."\n";
		$incomment = 1;
		}
	print;
	}

if($incomment) {
	print "/*DELCOMMENT message: comment not terminated*/\n";
	}
#end
2005/02/19 Webにアップ

 

寄付/援助をしたいかた用の広告はこちら：↑この小さなソフトただで使ってかまいませんがこちらのリンクから辿って教科書でも漫画でもＤＶＤでも消耗品でも備品でもお買い上げいただけると有難いです。アマゾンや楽天その他へのリンクですがこちらから辿ってお買い上げいただけると値段は同じまま売り上げの一部たとえば１％（楽天市場の場合）リンク元の私にバックされます。たとえばパソコンを百個お買い上げいただくと私が一個パソコン買えますしジョージア缶コーヒーを百個お買い上げいただければ缶コーヒーが一杯飲めます。一万人の役に立ってそのうち1％の百人が何かお買い上げになっていただければさらにその1％がお小遣いになるという万に一つの遠大な計画でありますのでよろしくお願いいたします。

 

i16(愛一郎)