Как мне подчеркнуть текст в Perl Linux?

Question

Есть ли способ подчеркнуть текст в Perl?Я читал из нескольких источников, но текст в сценариях не может быть подчеркнут.

Выводится ошибка: глобальному символу "$ finalAddition" требуется явное имя пакета в C: \ Documents and Settings \ PCS \ Desktop \ Perl Scripts \ script.pl строка 7.

Коды сценариев:

#!/usr/bin/perl

use warnings;
use strict;
use Term::ANSIColor;

$finalAddition = 8;

print "\n\nThe Final Number after addtion would be ".coloured($finalAddition, 'bold 
underline');

Пожалуйста, дайте несколько советов по этому вопросу.Спасибо.

Answer 1

Это может быть связано с изменением области видимости и включением строгого режима, а не с тем, чего вы пытаетесь достичь. Меняет ли что-нибудь изменение, добавляя «мой» в код?

#!/usr/bin/perl

use warnings;
use strict;
use Term::ANSIColor;

my $finalAddition = 8;

print "\n\nThe Final Number after addition would be " .
      colored($finalAddition, 'bold underline');

Answer 2

После нескольких раундов тестирования и почти полного разрушения экрана ответ был на самом деле довольно простым ... [РЕДАКТИРОВАТЬ] Новые и лучшие коды!

#!/usr/bin/perl

use warnings;
use strict;
use Term::ANSIColor;

my $totalinput = $userinput * $userinput2;

my $coloredText = colored($totalinput, 'bold underline blue');

print "\n\nThe final answer to the question is: $coloredText\n\n";

Спасибо за советы по коду!