Shell Programming and Scripting

Hi All,

I'm trying to test a Hash variable but it's not working. Here is my code - can anyone tell me if the test is valid?

Code:

for (keys %enabled_yn) {

  if ($enabled_yn{$1} =~ m/\s+Y/) {

      $html =~ s/%(\w+)%/\<b\>\<font color\=orange\>$enabled_yn{$1}\<\/font\>\<\/b\>/g;

      } else {

      $html =~ s/%(\w+)%/$enabled_yn{$1}/g;

  }
}

If the variable contains a Y (there is some leading white space hence the \s) then it should output it in bold orange (to a place holder %%). Anything else just gets put into its relevant place holder.

Any ideas on how I can do this?

Many thanks,

pondlife.

I don't think $1 will contain the key name..... may be you can try with $_

replace $enabled_yn{$1} with $enabled_yn{$_}

or you can declare a variable to be more clear


for my $k1 (keys %enabled_yn) {

if ($enabled_yn{$k1} =~ m/\s+Y/) {

$html =~ s/%(\w+)%/\<b\>\<font color\=orange\>$enabled_yn{$k1}\<\/font\>\<\/b\>/g;

} else {

$html =~ s/%(\w+)%/$enabled_yn{$k1}/g;

}
}

I have not tested... try