使用未初始化的值

Question

我正在尝试执行这个简单的代码,但它已经给我以下错误:

在permutation.pl第11行的字符串中使用未初始化的值$ string.

#!usr/bin/perl

use strict ;
use warnings ;



sub message {
my ($string) = @_ ;
print "$string" ;
    }
message() ;

Answer 1

你没有传递任何参数message,所以它@_是空的,所以你分配undef给了$string,这会在$string字符串化时产生警告.

固定:

message("Hello, world\n");