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

show_flow.pl

@@ -5,6 +5,11 @@ 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)
 {
@@ -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