numcut.pl


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

numcut.pl

>perl numcut.pl ***.c(または***.h)

で使ってください。出力されるファイルの名前は適当です。


use strict;
use warnings;

use encoding 'utf8';
use open IO => "encoding(euc-jp)";

open(C, "$ARGV[0]") or die $!;
open(NEWC, ">>001.c") or die $!;
while (my $line = <C>) {
	$line =~ s/^[0-9]....\s//;
	print NEWC $line;
}
close(NEWC);
close(C);