Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- open ORCCONF, "/etc/orc/orc.conf";
- my @orcconf = <ORCCONF>;
- close ORCCONF;
- my @processList = map { /^PROC:(.*?):/ ? $1 : () } @orcconf;
- map { print "$_\n"; } @processList;
Add Comment
Please, Sign In to add comment