show_flow.pl: Added option to output the flow as yml array.

show_flow.pl

@@ -5,7 +5,12 @@ use warnings;
 use YAML;
 use Cwd 'abs_path';
 use Data::Dumper;
+use Getopt::Long;
 
+my $yml = '';
+GetOptions ("y|yml+" => \$yml)
+  or die("Error in command line arguments\n");
+                                      
 if($#ARGV!=0)
 {
   die "usage: show_flow.pl file.yml\n";
@@ -17,7 +22,8 @@ foreach my $i (@{$ylog->{'flow'}})
 {
   foreach my $key (keys %{$i})
   {
-    print "$key\n";
+    if($yml) { print "- ".$key.":\n"; }
+    else { print "$key\n"; }
   }
 }
 #EOF