我正在處理一項任務,而我對Perl真的很陌生。不太瞭解它。 你們可以指導我提取這三種文件(C,C++和Java)的註釋和函數名嗎?我如何從C++或C或Java中提取註釋和函數名與Perl
我已經嘗試過這樣的:
use strict;
use warnings;
use File::Basename;
use File::Find;
use File::Slurp;
use Regexp::Common qw /comment/;
my $fileName = "a.java";
my $wordsIn = "";
my $wordsIdentifier="";
my $numRemoved = 0;
#$wordsOut = `xscc.awk extract=comment prune=copyright $fileName`;
$wordsIn = read_file($fileName) ;
# Find all matches of comments, and put them into @arr
my @arr = $wordsIn =~ m/$RE{comment}{Java}/g;
my $wordsOut = join(" ", @arr);
print "Comments:\n";
print $wordsOut;
$wordsIn =~ s/$RE{comment}{Java}//g;
print "Identifiers:\n";
print $wordsIn;
它完美地得到評論(連我自己都不知道怎麼辦!),但用於檢索標識符和方法的名稱,我應該爲$ {RE做評論} {}的Java
問候 伊赫桑
你嘗試過什麼嗎?分享給我們 – Serge
你在做什麼的目的是什麼?這只是一個練習,還是你正在用這些信息解決問題?如果你讓我們知道最終目標,我們可能會找到一個更簡單的方法來做到這一點。 – Schwern
這是一個練習,但因爲我是一個研究生,所以它會以某種方式解決調查問題:) – Ehsan