SHARE
TWEET

Untitled

a guest Dec 16th, 2018 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     while (<SCONF>) {
  2.         chomp;
  3.         push @SERV_LIST, $_;
  4.     }
  5.     %serv = map { split /\:/ } @SERV_LIST;
  6.     print $serv{$service} . "\n";
  7. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top