Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...
EFFECT EFFECT_FIRST
CAUSE CAUSE_SECOND
ENDTYPE
  2. or download this
    $ pm_multiline_parse.pl
VALUE1:FAIL,ERROR
...
VALUE3:DEGRADED,UNDEF
VALUE4:UNDEF,WARNING
VALUE5:CAUSE_SECOND,EFFECT_FIRST
  3. or download this
    $ perl -Mstrict -Mwarnings -E '
    my @x = qw{VALUE10 VALUE2 VALUE1};
...
VALUE1
VALUE2
VALUE10