2

テキストに下線を引く方法は 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');

これについて何かアドバイスをください。ありがとう。

4

2 に答える 2

5

これは、達成しようとしているものではなく、変数のスコープと厳密モードを有効にしたことに関係している可能性があります。コードに「my」を追加すると何かが変わりますか?

#!/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');
于 2010-09-17T06:23:01.033 に答える
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";

コードのアドバイスありがとうございます！

于 2010-09-17T06:35:34.780 に答える