コメントの削除 in Perl DouKaku?

コメントの削除

ソースコードからコメント部分を削除するプログラム decomment を書いてください．
すくなくとも，decomment を記述したのと同じ言語で書かれているソースコードが
扱えるようにしてください．

post comment

Posted feedbacks - Perl

CPANモジュール PPI を利用して。
# SYNOPSISにまんまコメント削除の例が載ってたし

see: PPI

use strict;
use warnings;

use PPI;

=head1 NAME

decomment - strip comments/pods from code

=head1 SYNOPSIS

  decomment.pl <some.pl>

=head1 SEE ALSO

L<http://ja.doukaku.org/185/>

PPI L<http://search.cpan.org/~adamk/PPI-1.203/lib/PPI.pm>

=cut

if ( !$ARGV[0] ) {
  print "usage: $0 <some.pl>\n";
  exit 0;
}
# test data
my $testdata = "string with # :)"; # this is a comment;

# use PPI to strip comment from code
my $doc = PPI::Document->new($ARGV[0]);
$doc->prune(q/PPI::Token::Pod/);
$doc->prune(q/PPI::Token::Comment/);
print $doc->content;

__END__
this section is not a comment.

DouKaku?

コメントの削除

Posted feedbacks - Perl

Index

Feed

Other

Link

Pathtraq