Thank you for your quick reply. I'm horribly new to Perl and it's nice to have someone looking over my shoulder. I made the change you suggested and sadly am getting an error - probably since I didn't show you all the code....
#all the checks have been run - now sort the 2 hashes, and print out t +heir contents to the note. my $ReleventCount = scalar keys %Relevent; if ($ReleventCount >= 1) { foreach my $name (sort { $b <=> $a } keys %Relevant) { $RESULTS = $RESULTS . "Severity: " . $name . "\n" . $Relevent{ +$name} . "\n\n" } }
Error: Global symbol "%Relevant" requires explicit package name at PSFT_Automation.pl line 641. Execution of PSFT_Automation.pl aborted due to compilation errors. Again, Thanks for helping me out
In reply to Re^2: My Perl-foo... SORT is not strong
by Greg@Work
in thread My Perl-foo... SORT is not strong
by Greg@Work
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |