Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my %task_options;
- # debugging loop
- for(@options) { # parse this as task:option=value
- if(/(.+?):(.+?)=(.*)/) {
- my ($task, $option, $value) = ($1, $2, $3);
- $task_options{$task}{$option} = $value;
- print "Found option: (Task: $task, Option: $option, Value: $value)\n" if $verbose;
- }
- }
Add Comment
Please, Sign In to add comment