Select Code to Download

print PC "$id|";
foreach $userdirective(@userdirectiveslist){
...
        }
        print PC ',';
}

smpd300:/jr/patrol/ba/data/BA_AUDIT# cat smpd300_patrol.apache_misc.da
+t
smpd300_1|On,
smpd300_2|On,
...
,mpd300_5|On
smpd300_6|On,
smpd300_7|Off,

smpd300:/jr/patrol/ba/data/BA_AUDIT# grep smpd300_5 smpd300_patrol.apa
+che_misc.dat
,mpd300_5|On
smpd300:/jr/patrol/ba/data/BA_AUDIT#

od -c smpd300_patrol.apache_misc.dat
0000000   s   m   p   d   3   0   0   _   1   |   O   n   ,  \n   s   
+m
...
0000120   |   O   n   ,  \n   s   m   p   d   3   0   0   _   7   |   
+O
0000140   f   f   ,  \n
0000144