Hi there,
the following code is giving me an error: 
$Threscount=0;
open(THRESHOLDS, "$Thresholds") or die("Could not open Thresholds file
+.");
foreach (<THRESHOLDS>) {
 chomp($_);
 if ($_ =~/^(\w+);(\d+);$/ && $_ !~/^\#/) {
  print "DEBUG: use constant $1 => $2;\n";
  use constant $1 => $2;
  log_msg("Setting: use constant $1 => $2;");
  if ($Threslabels[$Threscount] ne $1) {
   log_msg("There is something wrong with the thresholds labels, check
+ thresholds file!");
   exit(2);
  }
 $Threscount++;
 }
}
if ($Threscount != 8) {
print "$Threscount\n";
 log_msg("Wrong number of thresholds they should be 8 there are $Thres
+count");
 exit(2);
}
close(THRESHOLDS);

[download]

Constant name '' is invalid at ./getlogs.pl line 75
BEGIN failed--compilation aborted at ./getlogs.pl line 75.
Thanks monks.
Nuno A

Further Details
Im trying to read the thresholds from a file since im going to compile de the script with pp it would be easier to have a wana be conf file.
Trying to substitute this dynamically:
#Define Warning values
use constant  SIMULWAR => 30;
use constant MEMINUSEWAR => 200000000;
use constant SIMULSNAGWWAR => 40;
use constant CONDBWAR => 200;

#Define Critical Values
use constant SIMULCRIT => 50;
use constant MEMINUSECRIT => 240000000;
use constant SIMULSNAGWCRIT => 60;
use constant CONDBCRIT => 240;

[download]

In reply to Define constant in loop by penantes

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.