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

Question

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

Выходы ошибок: глобальный символ «$ Finaladdition» требует явного имени пакета на C: Documents и Settings PCS Desktop Perl Scripts Script.pl Line 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 $totalinput = $userinput * $userinput2;

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

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

Спасибо за консультации кода!

Answer 2

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

#!/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');