У меня есть существующий проект, который требует, чтобы заголовки лицензий использовались в начале каждого исходного файла. Проблема в том, что заголовок лицензии не является статическим:
#+======================================================================
# \$HeadURL [filled in by svn] \$
# \$Id [filled in by svn] \$
#
# Project : Project blah blah - only one line
#
# Description : A longer description
# which may or may not span multiple lines
#
# Author(s) : some author text
# but there may be a few more authors, too!
#
# Copyright (c) : 2010-YYYY Some company,
# and a few fixed lines of
# address
#
# and a few more lines of fixed license code
# that does not change
#
#-======================================================================
У меня есть существующий perl-скрипт, который просматривает список файлов, чтобы определить тип файла (C, Java, bash и т. д.), и выполняет элементарную проверку, чтобы увидеть, существует ли преамбула лицензии.
Если это не так, он может вставить пустой заголовок лицензии, который необходимо обновить вручную.
Но я хотел бы знать, как я могу:
- Обнаружение существующей лицензии с нестатической информацией и
- Расширить существующую функцию Perl processFile($fileName, $type) (ниже), чтобы сохранить существующую информацию «Проект», «Описание» и «Автор(ы)»?
Я подозреваю, что мне может понадобиться разместить маркеры в шаблонах лицензий для обозначения динамического текста, который должен быть сохранен в перегенерированном заголовке..?
Не могли бы вы дать мне указания о том, как использовать регулярные выражения perl или сопоставители шаблонов для получения текущей информации о переменной, чтобы я мог повторно вставить ее в заголовок и обновить год?
Я вижу, что вся магия должна происходить в цикле for ($i = 0; $i ‹ 5; ++$i)...
sub processFile {
my $i;
my $lineno = 0;
my $filename = $_[0];
my $type = $_[1];
my @license = split(/\n/, $licenses{$type});
my @contents;
#print "$filename is a $type file\n";
tie @contents, 'Tie::File', $filename or die $!;
if ($prolog{$type}) { # should not insert license at line 0
my $len = scalar(@contents);
while ($lineno < $len) {
if ($contents[$lineno] =~ /^$prolog{$type}$/) {
last;
} else {
$lineno++;
}
}
if ($lineno >= $len) {
# no prolog, so let's just insert it into the start
$lineno = 0;
} else {
$lineno = $lineno + 1;
}
} else {
$lineno = 0;
}
# Compare the first 5 lines excluding prolog with the license
# header. If they match, the license header won't be inserted.
for ($i = 0; $i < 5; ++$i) {
my $line = $contents[$i + $lineno];
$line =~ s/\$(\w+)\:.*\$/\$$1\$/;
if ($line ne $license[$i]) {
splice @contents, $lineno, 0, @license;
push @processedFiles, $filename;
last
}
}
untie @contents;
}