Guest User

Untitled

a guest
Jul 19th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. my %task_options;
  2. # debugging loop
  3. for(@options) { # parse this as task:option=value
  4. if(/(.+?):(.+?)=(.*)/) {
  5. my ($task, $option, $value) = ($1, $2, $3);
  6. $task_options{$task}{$option} = $value;
  7. print "Found option: (Task: $task, Option: $option, Value: $value)\n" if $verbose;
  8. }
  9. }
Add Comment
Please, Sign In to add comment