[ad_1]
\n<\/p>\n
As has been explained, your If you intended <\/p>\n However I think you meant the message to vary with the values of these variables, which is impossible with a constant. The usual way is to define an error message to have constant error message string that contain <\/p>\n An alternative way that choroba<\/strong> hinted at in his comment is to make the value of the Note the additional parentheses at the end of ERROR_SW<\/code> is a constant<\/em>, and may not contain run-time variables<\/p>\n$switch_ip<\/code> and $timeout<\/code> to also be constant values then, because use constant<\/code> is evaluated at compile time, you would also have to declare and define these two variables beforehand. Like this<\/p>\nuse strict;\nuse warnings 'all';\n\nmy ($switch_ip, $timeout);\n\nBEGIN {\n ($switch_ip, $timeout) = qw\/ 127.0.0.1 30 \/;\n}\n\nuse constant {\n ERROR_SW => {\n errorCode => 727,\n message => \"Not able to ping switch $switch_ip in $timeout seconds\",\n fatal => 1,\n web_page => 'http:\/\/www.errorsolution.com\/727',\n }\n};\n\nsub error_post {\n my ($error) = @_;\n print( $error->{message} );\n}\n\nerror_post(ERROR_SW);\n<\/code><\/pre>\n
\nprintf<\/code> field specifiers. Like this, for instance<\/p>\nuse strict;\nuse warnings 'all';\n\nuse constant {\n ERROR_SW => {\n errorCode => 727,\n message => \"Not able to ping switch %s in %s seconds\",\n fatal => 1,\n web_page => 'http:\/\/www.errorsolution.com\/727',\n }\n};\n\nmy ( $switch_ip, $timeout ) = qw\/ 127.0.0.1 30 \/;\n\nsub error_post {\n my ($error) = @_;\n printf $error->{message}, $switch_ip, $timeout;\n}\n\nerror_post(ERROR_SW);\n<\/code><\/pre>\noutput<\/h3>\n
Not able to ping switch 127.0.0.1 in 30 seconds\n<\/code><\/pre>\n
\nmessage<\/code> field a subroutine reference<\/em>. That can be executed at run time to incorporate the current values of the parameters. That solution looks like this<\/p>\n$error->{message}()<\/code> to call the reference to be called<\/em> instead of evaluated<\/em><\/p>\nuse strict;\nuse warnings 'all';\n\nmy ($switch_ip, $timeout);\n\nuse constant {\n ERROR_SW => {\n errorCode => 727,\n message => message => sub { \"Not able to ping switch $switch_ip in $timeout seconds\"},\n fatal => 1,\n web_page => 'http:\/\/www.errorsolution.com\/727',\n }\n};\n\n($switch_ip, $timeout) = qw\/ 192.168.0.1 99 \/;\n\nsub error_post {\n my ($error) = @_;\n print( $error->{message}() );\n}\n\nerror_post(ERROR_SW);\n<\/code><\/pre>\noutput<\/h3>\n
Not able to ping switch 192.168.0.1 in 99 seconds\n<\/code><\/pre>\n<\/p><\/div>\n