Как добавить строку об авторских правах, используя файл perl для записи в файл образца perl

Question

Поэтому мне нужно написать файл Perl, который добавит строку информации об авторских правах в другой файл Perl.

У меня есть этот файл с именем «copyright.pl», и я хочу, чтобы он записал в файл с именем «exerc.pl».

Это copyright.pl:

$^I = ".bak"; # make backups
while (<>) {
     if (/\A#!/) { # is it the shebang line?
     $_ .= "## Copyright (C) 2020 by Rashter\n";
     }
print;
}

Это упражнение.pl:

 print "This is an exercise file!";

Что я должен сделать, чтобы запустить файл с информацией об авторских правах, чтобы он мог добавить строку об авторских правах в файл exerc.pl? Я перепробовал все ...

Answer 1

Одним из самых простых решений было бы вставить лицензию после первой строки кода, которая предположительно должна быть 'shebang', используя специальную переменную $..

Пожалуйста, посмотрите, дает ли следующий код желаемый результат

use strict;
use warnings;
use feature 'say';

$^I = ".bak";

my $licence = '
# This a licence agreement about the code present in this file
# 
# Copyright (C) 2020 by Owner <owner@inter.net>
#
# Text of licence agreement....
# ....
# ....
# End of licence agreement
';

while(<>) {
    chomp;
    say $licence if $. == 2;
    say;
}